pwm@unix.cis.pitt.edu (Paul W. Munro) (06/13/91)
Here is the cover of a PostScript birth announcement that I made
by combining two recipies from the blue book for the birth of our
son a while ago (today he is one year old). I like how it came
out, especially in his case, since his initials spell a sentence
so relevant to a birth announcement. Anyway, here it is. Feel
free to use it, but remember to change the name and initials (of
either your child or the code :-) ...
For those new to PostScript who have access to a PostScript
printer (an apple laserwriter, for example). Delete everything in
the message before the line with %! (but keep the %! -- it's
crucial). Then send it to the printer as you would a text file.
In unix: lpr -Plw announce
if your printer is named lw and the file is named announce.
- Paul Munro
-------------------------- DELETE UP TO AND INCLUDING THIS LINE ------
%!
%------ Varables and Procedures ------
/TM 325 def
/BM -12 def
/LM 100 def
/RM 612 def
/newline
{currentpoint 13 sub
exch pop LM
exch moveto} def
/nllfNec
{currentpoint pop RM gt
{newline} if} def
/done?
{currentpoint exch pop
BM lt} def
/fillpage
{/strg exch def
{ {pop pop nllfNec} strg kshow
done? {exit} if
} loop
} def
/printName
{0 0 moveto (I AM!) show} def
%------ Begin Program ------
/Times-Bold findfont 10 scalefont setfont
LM TM moveto
.5 setgray
(Isaac Alexander Munro ) fillpage
/Times-Roman findfont 100 scalefont setfont
250 125 translate
.95 -.02 0 %start incr. end
{setgray printName -1 .5 translate} for
1 setgray printName
showpage