🚀 go-pugleaf

This routine prints letters 1 character to a sheet of paper.  I used it
to generate banners for hanging in the flea market when I was running
my business card printing program there.

%This file defines the routine to print large characters.

%bigchar takes a string with one character.
/bigchar
 {/str exch def
  t612 setfont
  gsave
  0 0 moveto
  str false charpath flattenpath pathbbox 
  /ury exch def /urx exch def
  /lly exch def /llx exch def
  grestore
  urx llx sub 2 div neg 4.25 inch add 8.5 inch 4 div .05 inch add translate
  newpath
  0 0 moveto
 str false charpath
  gsave .6 setgray fill grestore
  8 setlinewidth stroke
  showpage
 }def

/t612 (Bookman-Demi)findfont [600 0 0 792 0 0] makefont def
/inch {72 mul}def

/chrforall 
{/xqt  exch def dup length -1 exch {1 add 2 copy 1 getinterval xqt}repeat
 pop pop}def
%statusdict begin /manualfeed true def end

(BANNER MESSAGE){bigchar}chrforall
%statusdict begin /manualfeed false def end

Cheers
Woody