#!/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
