Snail

Mathematica Code

      << Makepolygons.m ;

      Needs["Graphics`ThreeScript`"]

      rad[u_] := Exp[u/(6 Pi)] - 1 ;

     pitch = 2/3 ;

     x[u_, v_] := rad[u] * Cos[u] * (1 + Cos[v]) ;
     y[u_, v_] := rad [u] * Sin[u] * (1 + Cos[v]) ;
     z[u_, v_] := -pitch * (Exp[u/(3 Pi)] - 1) + rad[u] * Sin[v] ;

     SnailPolys = MakePolygons[Table[ { x[u, v], y[u, v], z[u, v]},
		 {u, 0, 6 Pi, Pi/8.125},
		 {v, 0, 2 Pi, Pi/8}]] ;

     Show[Graphics3D[SnailPolys], PlotRange -> All] ;

     ThreeScript["Snail.3s", Graphics3D[SnailPolys]]