deanb@axiom.UUCP (Dean Bandes) (03/16/89)
Here in the Boston area March 17th is a pretty big deal. Attached,
a present for everyone. You can figure out how to fold it. Along
the way, it has examples of using "curveto" and some not really
modular 4-up printing (The P1, P2, P3 procedures are pages which I
designed at 8.5x11; the X procedures arrange and scale them).
For best results, put a piece of green paper in your laser printer!
Take it as a card from me to you, or sign it and SnailMail it. You
may substitute your own messages on the line between "%%EndProlog"
and "%%Trailer", or print out several cards just by
replicating that line with different messages in the parentheses.
I had a nice Propellorhead Greetings beanie logo on the back, but it
took up almost half of the lines of the program.
Dean Bandes
Semiconductor Test Systems/Axiom Technologies
21 North Ave, Burlington MA 01803 (617) 229-6611
----------------cut here------------------------------------
%!
%%DocumentFonts: (atend)
%%Title: St. Pat's cards
%%Creator: patcard
%%CreationDate: Tue Mar 14 13:56:45 1989
%%For: deanb
%%Pages: (atend)
%%BoundingBox: 0 0 612 792
%%EndComments
/F {findfont exch scalefont setfont} bind def
/SRK { %% def size SRK --
gsave currentpoint translate
dup dup 1 exch div setlinewidth scale
newpath 0.38 0 moveto
0.48 0.15 0.48 0.25 0.43 0.45 curveto
0.25 0.10 0.07 0.10 0.07 0.25 curveto
0.07 0.30 0.10 0.35 0.10 0.40 curveto
0.10 0.45 0.03 0.53 0.03 0.58 curveto
0.03 0.68 0.15 0.68 0.41 0.53 curveto
0.15 0.85 0.23 0.95 0.30 0.95 curveto
0.35 0.95 0.40 0.91 0.45 0.91 curveto
0.50 0.91 0.57 0.95 0.62 0.95 curveto
0.73 0.95 0.80 0.85 0.52 0.54 curveto
0.90 0.80 0.97 0.72 0.97 0.67 curveto
0.97 0.62 0.87 0.51 0.87 0.46 curveto
0.87 0.41 0.89 0.38 0.89 0.33 curveto
0.89 0.28 0.75 0.15 0.51 0.47 curveto
0.56 0.27 0.56 0.20 0.49 0.06 curveto
0.44 0.07 0.43 0.06 0.38 0.00 curveto
stroke grestore
} bind def
/PCTR { %% def string PCTR --
dup stringwidth pop 612 exch sub 2 div 0 rmoveto show
} bind def
/MFG { %% def -- MFG --
10 /Helvetica F
0 104 moveto
(Propellerhead Greetings) PCTR
0 88 moveto
(STS-Axiom, 21 North Ave) PCTR
0 72 moveto
(Burlington, MA 01803) PCTR
} def
/P2 { % def string P2 --
30 /Helvetica F
0 425 moveto
PCTR
} bind def
/P1 { %% string P1 --
24 /Times-Italic F
72 600 moveto show
206 296 moveto 200 SRK
72 71 500 { 96 moveto 40 SRK } for
} bind def
/X1 { %% def -- X1 --
gsave
0.5 0.5 scale
MFG
grestore
} bind def
/X2 { %% def string X2 --
gsave
306 0 translate
0.5 0.5 scale
P1
grestore
} bind def
/X3 { % def string X3 --
gsave
306 396 translate 180 rotate
0 -396 translate
0.5 0.5 scale
P2
grestore
} bind def
%%EndProlog
(Across the Net on St. Pat's day) X1 X2 (Top o' the Day to You) X3 showpage
%%Trailer
%%DocumentFonts: Helvetica Times-Italic
%%Pages: 1