Heart surface

By Paul Bourke

August 2002

r = 4 sqrt(1 - z2) sin|theta|(|theta|)

x = r sin(theta)

y = r cos(theta)

-0.98 <= z <= 0.98, -pi <= theta <= pi