home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 077.lha / Postscript / Examples / a-box next >
Encoding:
Text File  |  1986-11-20  |  346 b   |  24 lines
  1.  
  2. save
  3.  
  4. /A { /simplex findfont 100 scalefont setfont
  5.      300 100 moveto
  6.      (A) true charpath
  7.      stroke
  8.    } def
  9.  
  10. /B { 100 100 moveto
  11.      100 200 lineto
  12.      200 200 lineto
  13.      200 100 lineto
  14.      closepath
  15.      stroke
  16.    } def
  17.  
  18.  2 pencolor 18 setlinewidth  B  A
  19.  1 pencolor  8 setlinewidth  B  A
  20.  3 pencolor  4 setlinewidth  B  A
  21.  
  22. restore
  23.  
  24.