🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.postscript
Article #6675

Re: Saint Valentine's Day card in PostScript

#6675
From: Tim Poston
Date: Thu, 18 Feb 1993 08:33
51 lines
1612 bytes
anthony@csd4.csd.uwm.edu (Anthony J Stieber) writes:
: Here's a Saint Valentine's Day card written in PostScript.



Try the following heart, rather than a font one:

%!
-130 100 translate
 1 .8 scale

0 1 40 {
40.0 div dup 2 sub mul neg setgray
newpath
300 120 moveto
400 300  0 740  400 660 curveto
800 900  600 250  300 120 curveto
fill
[.9 .03 -.02 .95 50 13] concat
} for

showpage

Easily adapted to fit your front page.

A nice personalising trick is first to fill the background
with black, then gray it with the recipient's name,
as in

1 setgray
20 0 translate
/Times-Italic findfont 20 scalefont setfont
-120 15 920 {           % for
dup -6 div exch moveto
0 1 12 {pop (Rebecca) show} for
} for

and _then_ draw the heart;
fewer iterations in the for loops with a bigger typeface,
longer name, or smaller space,
more for smaller/shorter/larger respectively.

With a colour printer,
try replacing the
  40.0 div dup 2 sub mul neg setgray
in the heart by (for instance)
  40.0 div dup 2 sub mul neg 0 0 setrgbcolor
or to your taste;
the possibilities alone are endless.

Tim
Technical Details
Message-ID: <1993Feb18.083305.6885@nuscc.nus.sg>
Path: arc1-ca.pugleaf.net!wupost!howland.reston.ans.net!newsserver.jvnc.net!newsserver.technet.sg!nuscc!tim
References: <1lpedtINNar7@uwm.edu>

Show Full Headers
Complete Article Headers
Newsgroups: comp.lang.postscript,alt.sources
Path: arc1-ca.pugleaf.net!wupost!howland.reston.ans.net!newsserver.jvnc.net!newsserver.technet.sg!nuscc!tim
From: tim@iss.nus.sg (Tim Poston)
Subject: Re: Saint Valentine's Day card in PostScript
Message-ID: <1993Feb18.083305.6885@nuscc.nus.sg>
Sender: usenet@nuscc.nus.sg
Organization: Institute of Systems Science, NUS, Singapore
X-Newsreader: Tin 1.1 PL4
References: <1lpedtINNar7@uwm.edu>
Date: Thu, 18 Feb 1993 08:33:05 GMT
Lines: 54