Re: About plotting a surface
- To: mathgroup@smc.vnet.net
- Subject: [mg12655] Re: About plotting a surface
- From: "Allan Hayes" <hay@haystack.demon.cc.uk>
- Date: Sat, 30 May 1998 17:36:45 -0400
- References: <6k7d5r$1cc@smc.vnet.net> <6kdnqb$9s4@smc.vnet.net>
Paul Abbott wrote >Arhur Luiz Amaral da Cunha wrote:
>
>> I would like to know how to take the mesh off a parametric surface using
>> the command ParametricPlot3D. I tried to use the "Mesh->False" option
>> but it did not work within ParametricPlot3D despite it did work within
>> Plot3D. I would appriciate it wether you could give me an advice. I
>> look forward to your reply.
>
>Roman Maeder gives the following one-liner that removes mesh lines from
>any 3D graphic in The Mathematica Journal 2(3), 32:
>
> NoMesh[Graphics3D[c_,rest___]]:=Graphics3D[{EdgeForm[],c},rest]
This function needs a little help if there are already EdgeForm
directives (that we may not be aware of) - these need to be removed
NoMesh2[Graphics3D[c_,rest___]]:=
Graphics3D[{EdgeForm[],c/._EdgeForm :>Sequence[]},rest]
-------------------------------------------------------------
Allan Hayes
Training and Consulting
Leicester UK
http://www.haystack.demon.co.uk
hay@haystack.demon.co.uk
voice: +44 (0)116 271 4198
fax: +44(0)116 271 8642