Ways to draw a heart in JMP?

[#1]

Here's one way to do it, using parametric equations found at Math World: Heart Curve.

New Table( "heart",
	New Column( "t", Set Values( Index( 0, 2 * Pi(), 0.1 ) ) ),
	New Column( "x", Formula( 16 * Power( Sin(t), 3 ) ) ),
	New Column( "y", Formula( 13 * Cos(t) - 5 * Cos(2 * t) - 2 * Cos(3 * t) - Cos(4 * t) ) )
);

Graph Builder( Show Control Panel( 0 ), Variables( X( :x ), Y( :y ), Legend( 1 )), Elements( Formula( X, Y ) ),
	SendToReport( Dispatch( {}, "400", ScaleBox,
		{Legend Model( 1, Properties( 0, {Line Color( "Red" ), Line Width( 4 )} ) )})
	)
 );

[#2]

As Valentine's Day approaches I was reminded of this fun thread. I wonder if there are any new ways to do this in the last two years? Please share them here, and your JMP valentine could be featured on our social media channels -- thanks!

[#3]

This way of drawing a heart isn't new, but making it interactive with the help of JMP Public is new. 

Press the play button and sliders at the bottom and use the menu beside 'Animated Heart' to change bubbleplot settings. See it on public.JMP.com.

[#4]

This is great -- thanks, John!

[#5]

Time has created many shapes on Earth's surface. Here's a hearty one. There must be more out there?

nw = New Window("Galešnjak Island", Graph Box());
nw[AxisBox(1)] << Scale("Geodesic") << Min(43.9761119) << Max(43.9806944);
nw[AxisBox(2)] << Scale("Geodesic") << Min(15.379375) << Max(15.387375);
nw[framebox(1)] << Background Map(Images("street map service"));

[#6]

The Boldt Castle is on Heart Island. http://www.boldtcastle.com/visitorinfo/

---

[#7]

This is wonderful!

[#8]

dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << colorByColumn(:sex);
dt<<New Column( "Heart Column",
              Expression,
              "None",
              Formula(
                     Text Box(
                           "♡",
                           <<FontColor( If( :sex == "F", "RED", "BLUE" ) ),
                           <<setFontSize( 30 )
                     ) << getpicture
              ),
              Use for Marker
       );
dt << Graph Builder(
	Size( 845, 669 ),
	Show Control Panel( 0 ),
	Variables( X( :height ), Y( :age ), Group X( :sex ) ),
	Elements( Points( X, Y, Legend( 16 ) ) ),
	SendToReport(
		Dispatch(
			{},
			"graph title",
			TextEditBox,
			{Set Text( "Height by Age/Gender" )}
		),
		Dispatch( {}, "X title", TextEditBox, {Set Text( "Height" )} ),
		Dispatch( {}, "Y title", TextEditBox, {Set Text( "Age" )} )
	)
);

 

Hearts ...

[#9]

Very cute! Thanks, Mandy!