T[u_,v_]:={Cos[u]*Sin[v],Sin[u]*Sin[v],Cos[v]+Log[Tan[v/2]]+0.2*u};

Surface:=ParametricPlot3D[T[a,b],{a,0,4*Pi},{b,1/20,1},
   Axes->False, ViewVertical->{-1,0,0}, Background->GrayLevel[0.0],
   RenderAll->True,
   Boxed->False]; 

LiveForm[g_] := NumberForm[InputForm[N[g]], 5];

WriteLiveForm[filename_, g_] := (
         WriteString[filename, 
         ToString[NumberForm[InputForm[N[g]], 5]]];
         Close[filename];)

WriteLiveForm["surface.m",Surface]

(* O.K. for Math 21a, Fall 2000 *)
