Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!IDA.ORG!pbs!bhall
From: bhall@pbs.uucp (Dark Star)
Newsgroups: comp.lang.postscript
Subject: Re: valentine hearts?
Message-ID: <6395.25e3aa10@pbs.uucp>
Date: 22 Feb 90 14:00:00 GMT
References: <13049@cbnewse.ATT.COM> <3873@daisy.UUCP>
Distribution: usa
Organization: PBS:Public Broadcasting Service, Alexandria, VA
Lines: 79

In article <3873@daisy.UUCP>, cplai@daisy.UUCP (Chung-Pang Lai) writes:
> In article <13049@cbnewse.ATT.COM> pwyc@cbnewse.ATT.COM (peter.w.chen) writes:
>>
>>Does anyone have a PostScript description of a valentine heart
>>suitable for inclusion in a card?  
> 
> Try using
> 	(\251) show
> in Symbol font.  Scale it up to any size you want.

That's clever.  I just ran across an Adobe sample PostScript program that
also creates a heart, but in a different way.

---------------------------Cut Here------------------------------------
%!  bumper sticker demo    Adobe Systems, Inc.
/LMargin 55 def
/in. {72 mul} def

90 rotate
0 -612 translate

/PTsize 150 def
/Times-Roman findfont PTsize scalefont setfont

LMargin 350 moveto
gsave
(PS  ) show
/--Save0-- save def
/showpage {} def
  340 310 translate
  1.8 1.8 scale

%	Glenn Reid
% 	draws a 1 inch heart at .5 setgray

/heart
{
	/height exch def
	currentpoint
	/Y exch def
	/X exch def
	/half height 2 div def

	half neg half rlineto
	half neg half
	 0 height
	  half half
	   rcurveto
	half half
	 height 0
	  half half neg
	   rcurveto
	closepath
} def

0 0 moveto
1 in. heart
.5 setgray
fill

showpage

--Save0-- restore
 % @Execute heart.ps
grestore

% move to next "row"
0 PTsize .9 mul neg rmoveto

({ honk } if) show


showpage 

--
Bruce Hall                            ...{csed-1,ida.org,vrdxhq}!pbs!bhall
Public Broadcasting Service           703/739-5048

"Experience is the name everyone gives to their mistakes" - Oscar Wilde