home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 077.lha / Postscript / Examples / show-fonts < prev   
Encoding:
Text File  |  1986-11-20  |  622 b   |  36 lines
  1.  
  2. save
  3.  
  4. /psize 20 string def
  5.  
  6. /Fsample   {
  7.    2 copy
  8.    /simplex findfont 12 scalefont setfont
  9.    exch show
  10.    (  ) show
  11.    psize cvs show
  12.    exch findfont exch scalefont setfont
  13.    currentpoint exch pop 145 exch moveto
  14.    (abcdef ABCDEF ) show
  15.    } def
  16.  
  17. /newline  {
  18.    currentpoint exch pop 30 exch 30 sub
  19.    moveto
  20.    } def
  21.  
  22. 30 350 moveto
  23.  
  24. (topaz)    8  Fsample newline
  25. (topaz)    9  Fsample newline
  26. (diamond) 12  Fsample newline
  27. (garnet)   9  Fsample newline
  28. (garnet)  16  Fsample newline
  29. (ruby)     8  Fsample newline
  30. (ruby)    12  Fsample newline
  31. (sapphire)19  Fsample newline
  32. (emerald) 20  Fsample newline
  33.  
  34.  restore
  35.  
  36.