Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!motcid!derosa
From: derosa@motcid.UUCP (John DeRosa)
Newsgroups: comp.sys.mac
Subject: Re: enormous fonts
Message-ID: <2267@crystal9.UUCP>
Date: 12 Apr 90 22:03:03 GMT
References: <1431@ac.dal.ca>
Organization: Motorola Inc., Cellular Infrastructure Div., Arlington Heights, IL
Lines: 43


ATM will print very good looking printer fonts on Imagewriters 
up to the limit of the program.  MacDraw will only go to 127 
point while MacWrite will go to 500.  Neither will fully 
fill that page.

On a laserwriter you have the same problem.  I got ahold on
this group a postscript file that will print one letter per
page.  Just fill in the blank near the bottom.

vvvvvvvvvvvvvvvvvvv   Cut Here   vvvvvvvvvvvvvvvvvvv
%!
%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

(put text here){bigchar}chrforall
%statusdict begin /manualfeed false def end