summaryrefslogtreecommitdiff
path: root/dviware/psprint/unix/greybox.ps
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