home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1990
/
16
/
boxes.pst
< prev
next >
Wrap
Text File
|
1990-06-18
|
981b
|
37 lines
% Define drawtext subroutine
/drawtext {
/Times-Roman findfont % Select font and print
36 scalefont % a string centered on the
setfont % page
(Boxes by PostScript) stringwidth pop
612 exch sub 2 div 200 moveto
(Boxes by PostScript) show
} def
% Define drawbox subroutine
/drawbox {
newpath
0 0 moveto % Move to lower left corner
100 0 lineto % Draw sides of box
100 100 lineto
0 100 lineto
closepath
setrgbcolor % Set color value
fill % Fill the box
} def
% Main body of program
drawtext % Draw text
206 296 translate 0 .8 1 drawbox % Draw box
50 50 translate .4 .6 0 drawbox % Draw box
50 50 translate .8 .2 0 drawbox % Draw box
newpath
showpage % Print the page