% This file is inserted into the PSPRINT User Guide using \special. % It draws a shaded rectangle. 72 72 scale % units are now inches instead of big points % uncomment the next line if you want to "psprint greybox.ps" % 2 2 translate newpath % prepare to draw a rectangle -.25 0.1 moveto % top left corner is a little left and above origin 0 -.7 rlineto % down .7 4.5 0 rlineto % right 4.5 0 .7 rlineto % up .7 closepath % complete rectangle gsave % save current path 0.9 setgray % light grey statusdict /product known { statusdict /product get 0 11 getinterval (LaserWriter) eq {.99 setgray} if % if LaserWriter use very light shading (0=black, 1=white) } if fill % paint interior of rectangle grestore % restore current path .01 setlinewidth % thickness of borders stroke % paint borders showpage