This is colortextbar.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] {< 00000000f00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00f00000000 00000000f00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00f00000000 000000000000000000000000f009f00ff0090000000000000000000000000000 000000000000000000000000f009f00ff0090000000000000000000000000000 000000000000000000000000f009f00ff0090000000000000000000000000000 000000000000000000000000f009f00ff0090000000000000000000000000000 000000000000000000000000f00f0000f00f0000000000000000000000000000 000000000000000000000000f00f0000f00f0000000000000000000000000000 000000000000000000000000f00f0000f00f0000000000000000000000000000 000000000000000000000000f00f0000f00f0000000000000000000000000000 000000000000000000000000f009f00ff0090000000000000000000000000000 000000000000000000000000f009f00ff0090000000000000000000000000000 000000000000000000000000f009f00ff0090000000000000000000000000000 000000000000000000000000f009f00ff0090000000000000000000000000000 00000000f00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00f00000000 00000000f00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00f00000000 >} false 3 alphaimage grestore gstate nextdict /_NXSharedGrayAlpha get NX_TwelveBitRGB 1 index setwindowdepthlimit windowdeviceround 0 0 16 16 5 4 roll 32 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.