home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d101 / psintrp.lha / PsIntrp / show-fonts < prev    next >
Text File  |  1987-09-05  |  621b  |  35 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.