lib/fonts/fonttest.ps

   1 %!Adobe-Postscript
   2 %
   3 %  Print a list of all PostScript fonts resident on the printer
   4 %
   5 % To get the same list each printed in its own font, set "usefonts" to 1 below.
   6 %
   7 % Note:  This is NOT an xcircuit file!  The list of files returned may be
   8 %  used to give xcircuit the proper name for a font when using the "Add New
   9 %  Font" command.
  10 %
  11 /usefonts 0 def
  12 %
  13 /y 72 def
  14 /x 72 def
  15 /Times-Roman findfont 12 scalefont setfont
  16 FontDirectory {pop usefonts 1 eq {dup findfont 12 scalefont setfont} if
  17 50 string cvs x y moveto show y 15 add dup 690 gt {pop /y 72 def /x 300 def}
  18 {/y exch def} ifelse } forall
  19 /Times-Roman findfont 14 scalefont setfont
  20 305 700 moveto (Resident PostScript Fonts) dup stringwidth pop 2 div neg
  21 0 rmoveto show
  22 showpage