Article View: comp.sys.mac
Article #11833Re: enormous fonts
From: John DeRosa
Date: Thu, 12 Apr 1990 22:03
Date: Thu, 12 Apr 1990 22:03
43 lines
1607 bytes
1607 bytes
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
Technical Details
Message-ID:
<2267@crystal9.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!motcid!derosaReferences:
<1431@ac.dal.ca>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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