Help functions to simplify plotting

[Graphics:../Images/geometryerr_gr_12.gif]
ConvertToMesh[SurfaceGraphics[points_,opts_]]:=
    MakeMesh[points,opts[[39,2]]]; (*MeshRange*)


Converted by Mathematica      February 7, 2002