#http://mathworld.wolfram.com/KissSurface.html
# x^2+y^2=(1-z)z^4 

vertices = D1:100 D2:100

u = from 0 to (PI*2) D1
v = from -1 to 1 D2

x = v*v*sqrt(0.5 - v/2)*cos(u)
y = v
z = v*v*sqrt(0.5 - v/2)*sin(u)

a = 10

x = x*a
y = y*a
z = z*a