Re: Avoid meshing
- To: mathgroup at smc.vnet.net
- Subject: [mg17381] Re: Avoid meshing
- From: adam.smith at hillsdale.edu
- Date: Thu, 6 May 1999 02:44:05 -0400
- Organization: Deja News - The Leader in Internet Discussion
- References: <7gjedj$cmm@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <7gjedj$cmm at smc.vnet.net>,
Alexander Kricke <kricke at student.uni-kassel.de> wrote:
> Hello,
>
> how can I prevent that Mathematica 3.0 generates a mesh for following
> object
>
> ParametricPlot3D[{r*Cos[phi],r*Sin[phi],0,RGBColor[1,0,0]},
> {phi,0,Pi/2},{r,0,1},Lighting->False];
>
> Mesh->False does not work.
>
> Thanks for help
>
> Alexander Kricke
>
>
Alexander:
This may not be the most elegant way to remove the mesh in ParametricPlot3D
but here is some code that does what you want:
In[1]:=
thing = ParametricPlot3D[{r*Cos[phi],r*Sin[phi],0,RGBColor[1,0,0]}, {phi,0,
Pi/2},{r,0,1},Lighting->False,DisplayFunction->Identity];
In[2]:=
Show[Graphics3D[{EdgeForm[],thing[[1]]},thing[[2]]],
DisplayFunction->$DisplayFunction];
If you want to know the details of what is happening, please email me.
Adam Smith
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own