defineps loadPSProcedures() /Rectfill { 0 0 4 2 roll rectfill } bind def endps defineps tweakWindow(userobject windowNum ; int level) % tweaks a window so it works as a background window level windowNum setwindowlevel true windowNum setautofill gsave windowNum windowdeviceround 0 setgray setexposurecolor grestore endps defineps PSWmakeWindowGray(userobject windowNum) % sets a windows tier to level gsave windowNum windowdeviceround 0.333 setgray setexposurecolor grestore endps defineps PSWDefineFont(char *fontname) 9 dict dup begin /FontName /fontname def /FontType 3 def /FontMatrix [1 0 0 1 0 0] def /FontBBox [0 0 7 7] def /Encoding 256 array def 0 1 255 {Encoding exch /.notdef put} for Encoding dup (a) 0 get /az put dup (b) 0 get /bz put dup (c) 0 get /cz put dup (d) 0 get /dz put dup (e) 0 get /ez put dup (f) 0 get /fz put dup (g) 0 get /gz put dup (h) 0 get /hz put dup (i) 0 get /iz put dup (j) 0 get /jz put dup (k) 0 get /kz put (l) 0 get /lz put /CharProcs 14 dict def CharProcs begin /.notdef { } def /az {1 1 Rectfill} bind def /bz {2 1 Rectfill} bind def /cz {2 2 Rectfill} bind def /dz {3 2 Rectfill} bind def /ez {3 3 Rectfill} bind def /fz {3 3 Rectfill} bind def /gz {3 4 moveto 3 4 lineto stroke} bind def /hz {2 4 moveto 3 4 lineto 3 5 lineto stroke} bind def /iz {2 4 moveto 4 4 lineto 3 3 moveto 3 5 lineto stroke} bind def /jz {1 4 moveto 5 4 lineto 3 2 moveto 3 6 lineto stroke} bind def /kz {1 4 moveto 5 4 lineto 3 2 moveto 3 6 lineto 2 3 moveto 4 5 lineto 2 5 moveto 4 3 lineto stroke} bind def /lz {0 4 moveto 6 4 lineto 3 1 moveto 3 7 lineto 2 3 moveto 4 5 lineto 2 5 moveto 4 3 lineto stroke} bind def end /BuildGlyph { 7 0 0 0 7 7 setcachedevice true setstrokeadjust exch /CharProcs get exch 2 copy known not {pop /.notdef } if get exec } bind def /BuildChar { 1 index /Encoding get exch get 1 index /BuildGlyph get exec } bind def % currentdict end /fontname exch definefont pop endps defineps PSWXYShow (float X, Y; char *CharString; float XYScratch[j]; int j) X Y moveto (CharString) XYScratch xyshow endps defineps PSWorkspaceWindow(|float *x,*y,*w,*h) workspaceWindow currentwindowbounds h w y x endps