Path: utzoo!attcan!uunet!snorkelwacker!usc!cs.utexas.edu!rutgers!texbell!chinacat!woody
From: woody@chinacat.Unicom.COM (Woody Baker @ Eagle Signal)
Newsgroups: comp.lang.postscript
Subject: Re: Postscript Banner Programs
Summary: here is one
Message-ID: <1112@chinacat.Unicom.COM>
Date: 23 Mar 90 13:10:18 GMT
References: <900315211614.0b2@mv2.UCalgary.CA> <5342@jarthur.Claremont.EDU>
Organization: a guest of Unicom Systems Development, Austin
Lines: 39


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