T[u_,v_]:={Sin[v] Sin[u/2],Cos[v] Cos[u/2],Cos[u]};

Surface:=ParametricPlot3D[T[a,b],{a,0,2Pi},{b,0,2Pi},
   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 *)
