Seashell
Scroll(a,1.05,1.65,0.05,1.2)
Scroll(b,0,6,0.1,2)
Scroll(c,0.4,1.6,0.1,1.5)
Scroll(d,1,4,0.1,1)
Scroll(e,0,1.2,0.2,1.2)
Scroll(age,6,50,1,25)
ParametricPlot3D(a^\phi*[cos(\phi)(1+c*(cos(e)cos(\theta)+d*sin(e)sin(\theta))),sin(\phi)(1+c*(cos(e)cos(\theta)+d*sin(e)sin(\theta))),b+c*(cos(\theta)sin(e)-d*cos(e)sin(\theta))],[\theta,-\pi,\pi,20],[\phi,-age,0,60],axis=0,gradient=height,backgroundColor=0)
