Article View: comp.lang.postscript
Article #6675Re: Saint Valentine's Day card in PostScript
From: Tim Poston
Date: Thu, 18 Feb 1993 08:33
Date: Thu, 18 Feb 1993 08:33
51 lines
1612 bytes
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!timReferences:
<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