Help functions to simplify plotting
ConvertToMesh[SurfaceGraphics[points_,opts_]]:=
MakeMesh[points,opts[[39,2]]]; (*MeshRange*)
Converted by
Mathematica
February 7, 2002