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