home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d101 / psintrp.lha / PsIntrp / tletters < prev   
Text File  |  1987-09-05  |  459b  |  36 lines
  1.  
  2. save
  3.  
  4. 2 pencolor    1 penmode
  5.  
  6. /simplex findfont 12 scalefont setfont
  7.  
  8. /char (x) def
  9.  
  10. /tshow { false charpath stroke } def
  11.  
  12. /caps {
  13.    65 1 65 25 add  % for A to Z
  14.    { char exch 0 exch put
  15.      char tshow } for
  16.    } def
  17.  
  18. /small {
  19.    97 1 97 25 add
  20.    { char exch 0 exch put
  21.      char tshow } for
  22.    } def
  23.  
  24.  3 setlinewidth
  25.  
  26. 50 300 moveto  small
  27. 50 250 moveto  caps
  28.  
  29. /simplex findfont  20 scalefont setfont
  30.  
  31. 50 200 moveto  small
  32. 50 150 moveto  caps
  33.  
  34.  
  35. restore
  36.