home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 077.lha / Postscript / Examples / letters < prev    next >
Encoding:
Text File  |  1986-11-20  |  389 b   |  32 lines
  1.  
  2. save
  3.  
  4. 2 pencolor
  5.  
  6. /simplex findfont 12 scalefont setfont
  7.  
  8. /char (x) def
  9.  
  10. /caps {
  11.    65 1 65 25 add  % for A to Z
  12.    { char exch 0 exch put
  13.      char show } for
  14.    } def
  15.  
  16. /small {
  17.    97 1 97 25 add
  18.    { char exch 0 exch put
  19.      char show } for
  20.    } def
  21.  
  22. 50 300 moveto  small
  23. 50 250 moveto  caps
  24.  
  25. /simplex findfont  20 scalefont setfont
  26.  
  27. 50 200 moveto  small
  28. 50 150 moveto  caps
  29.  
  30. restore
  31.  
  32.