Re: convert graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg30658] Re: convert graphics
- From: bghiggins at ucdavis.edu (Brian Higgins)
- Date: Mon, 3 Sep 2001 20:32:33 -0400 (EDT)
- References: <9mngnq$58e$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Borut,
Here is an alternative method to modify the Graphics3D object.
Folloing up on David Park's example:
plt1 = ParametricPlot3D[{Cos[t]Cos[s], Sin[t]Cos[s], Sin[s]},
{s, -Pi/2,
Pi/2}, {t, 0, 2 Pi}, Axes -> False, Boxed -> False];
Then we use the following replacement rule to modify the Graphics3D
object which has the form:
Graphics3D[{Polygon[{xxxx}],Polygon[{xxx}],...},{graphic directives}]
plt2 = plt1 /.
Graphics3D[{p__}, {z__}] -> Graphics3D[Prepend[{p}, EdgeForm[ ]],
{z}]
Show[plt2]
This method works fine with SurfaceOfRevolution plots, where it is
not possible to "add" an addition parameter to the first argument if
you want to suppress ofr modify the color /thickness of mesh lines.
Cheers,
Brian
"Borut L" <borut at email.si> wrote in message news:<9mngnq$58e$1 at smc.vnet.net>...
> Hi,
>
>
> I have a ParametricPlot3D object (Graphic3D object), which I would like to
> have no mesh-lines. The option for Sufrace Graphics (Mesh -> False) is what
> I would like. But I can't convert the first to the later. Is there a way to
> convert it or is there alternative to disable mesh in Graphics3D object?
>
>
> Thank you,
>
> Borut Levart