This is colorcursor.pl in view mode; [Download] [Up]
#!/usr/local/bin/perl5 # # everything between here and __END__ just starts pft and pipes # everything after the __END__ into pft. Obviously, this can be # used to spew any customizations you want at pft (and, hence, the # windowserver). if you use this to do other cool things to the # window server, please send me (<bbum@friday.com>) your hacquage. # If I receive some cool hacquage, I will compile a hacquage-package # and submit to the net (complete w/credits, docs, and all that # rot). # # have a nice day. # # b.bum # <bbum@friday.com> # open PFT -- die if we can't open (PFT, "| /usr/bin/pft") || die "could not open /usr/bin/pft"; # write everything after the __END__ to pft while (<DATA>) { print PFT; } # close pft close (PFT); # everything after the __END__ is available on <DATA>; 'tis perl # magic. __END__ %!PS-Adobe-2.0 EPSF-1.2 %%Creator: (a postscript god @next.com) %%Title: (cursortest.eps) %%CreationDate: (19/3/92) (3:00 PM) %%BoundingBox:0 0 20 20 %% %% Another stupid EPS trick. %% %%EndComments 0 0 16 16 Retained window dup windowdeviceround gsave 16 16 scale 16 16 4 [16 0 0 -16 0 16] {< 000f000f00000000000000000000000000000000000000000000000000000000 000f0d0f000f0000000000000000000000000000000000000000000000000000 000f0d0f0d0f000f000000000000000000000000000000000000000000000000 000f0d0ffd0f0d0f000f00000000000000000000000000000000000000000000 000ffd0ffd0ffd0ffd0f000f0000000000000000000000000000000000000000 000ffd0ff50ff50ff50ffd0f000f000000000000000000000000000000000000 000ff50ff50ff50ff50ff50ff50f000f00000000000000000000000000000000 000ff50fd00fd00fd00fd00fd00f908f000f0000000000000000000000000000 000fd00fd00fd00fd00fd00fd00f908f908f000f000000000000000000000000 000fd00fd00fd00f908f908f000f000f000f000f000f00000000000000000000 000f908f908f000f00ff00ff000f000000000000000000000000000000000000 000f908f000f0000000f00ff00ff000f00000000000000000000000000000000 000f000f00000000000f00ff00ff000f00000000000000000000000000000000 000f0000000000000000000f00ff00ff000f0000000000000000000000000000 00000000000000000000000f00ff00ff000f0000000000000000000000000000 000000000000000000000000000f000f00000000000000000000000000000000 >} false 3 alphaimage grestore gstate nextdict /_NXSharedGrayAlpha get NX_TwelveBitRGB 1 index setwindowdepthlimit windowdeviceround 0 0 16 16 5 4 roll 0 32 Copy composite nulldevice termwindow
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.