🚀 go-pugleaf

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