<< 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]]