🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.mac
Article #11833

Re: enormous fonts

#11833
From: John DeRosa
Date: Thu, 12 Apr 1990 22:03
43 lines
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!derosa
References: <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