blob: 220564810a15c9bfb76fcedc5a71c50700b7e9fd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
% 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
|
