🚀 go-pugleaf

As something 'inbetween' the fancy athena one and the quick-and-dirty one,
here's a font sampler that was posted here a couple of years ago.
  /Bernie\


%!  PostScript!
%

/Times-Roman findfont 10 scalefont setfont

/inch { 72 mul } def

/LM 1.0 inch def
/RM 7 inch def
/BM .5 inch def
/TM 10 inch def
/tmpstr 80 string def

/xpos LM def
/ypos TM def
xpos ypos moveto
/dy 18 def

/crlf
{
  /xpos LM def
  /ypos ypos dy sub def
  ypos BM lt
  { showpage /ypos TM def } if
  ypos xpos exch moveto
} def

/c-crlf { stringwidth pop currentpoint pop add RM gt { crlf } if } def

/c-show { dup c-crlf show } def

/putnum { tmpstr cvs c-show ( ) show } def

/puttype { type tmpstr cvs c-show ( ) show } def



/showfont
{
  crlf
  dup findfont 15 scalefont setfont
  tmpstr cvs show (:     ) show
  (ABCDEFGHIJKLMNOPQRSTUVWXYZ   ) c-show
  (abcdefghijklmnopqrstuvwxyz   ) c-show
  (0123456789   ) c-show
  (!"#$%&' ) c-show (\(\)*+,-./ ) c-show
  (:;<=>?@ ) c-show ([\\]^_` ) c-show
  ({|}~ ) c-show
  (                                ) tmpstr copy
  0 1 31 { tmpstr exch dup 8#240 add put } for tmpstr c-show
  0 1 31 { tmpstr exch dup 8#300 add put } for tmpstr c-show
  0 1 31 { tmpstr exch dup 8#340 add put } for tmpstr c-show
  crlf
} def


FontDirectory length (length = ) show putnum crlf crlf

FontDirectory
{pop showfont} forall


showpage