2. Snail

blaurot = 
{{{-1,  .5,  .5}, 
            RGBColor[0,  .7, 1]}, 
{{ .5,  .1,  .1}, 
            RGBColor[ .5,  .2, 0]}, 
{{1,  .3,  .3}, 
            RGBColor[0,  .1,  .1]}};

enneVar[u_, v_, 
          n_] := 
{u - u^3/3 - 
            3.  (Sin[2  n/3])^2*u*Sin[v] + u v^2, 
          v - v^3/3 - 3.  (Sin[2  n/3])^2*v*Cos[u] + 
            v u^2, 
u^2 - v^2};

snail  =  
        Table[
ParametricPlot3D[
Evaluate[
              enneVar[u, v, n]], 
{u, -2, 
              2}, {v, -2, 2}, 
SphericalRegion -> 
              True, 
ViewPoint -> 
{2.6*Cos[n + Pi], 3.  Sin[n + Pi], 
                2.6}, 
LightSources -> 
              blaurot, 
AmbientLight  ->  
              GrayLevel[ .5], 
Background -> 
              GrayLevel[ .9], 
PlotRange  ->  
              All, 
Axes -> 
              None, 
Boxed -> 
              False, 
DisplayFunction  ->  $DisplayFunction
], 
 (*{n, 0, 
              3  Pi -  .375  Pi,  .375  Pi} *) 
{n, 0, 
            3  Pi -  .15  Pi,  .15  
              Pi}
];