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