MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Epilog with 3 dimensional graphics primitives

  • To: mathgroup at smc.vnet.net
  • Subject: [mg83725] Re: Epilog with 3 dimensional graphics primitives
  • From: Tom Burton <news at brahea.com>
  • Date: Thu, 29 Nov 2007 06:22:08 -0500 (EST)

You can use Show to combine 3D graphics, perhaps something like this:

With[{f=Function[{u,v},{(5+2 Cos[u]) Cos[v],(5+2 Cos[u]) Sin[v],2 Sin 
[u]}]},
Show[
ParametricPlot3D[f[u,v],{u,0,2Pi},{v,0,2\[Pi]},PlotStyle-> 
{Blue,Specularity[White,10],Opacity[.3]},Mesh->None,Axes->False,Boxed- 
 >False],
ParametricPlot3D[f[u,v],{u,0,2Pi},{v,0,2Pi-1},PlotStyle-> 
{Blue,Specularity[White,10]},Mesh->None],
ParametricPlot3D[f[u,2\[Pi]-1/2],{u,0,2\[Pi]},PlotStyle-> 
{Red,AbsoluteThickness[2]}]
]
]

I drew a full but partially transparent torus first, to establish the  
PlotRange (I'm too lazy to specify it manually), then overlaid a  
partial opaque torus. As long as one of two overlapping surfaces is  
transparent, the overlap seems to render well. Otherwise, you might  
get an ugly conflict. In version 5, one could resolve this conflict  
by wrapping 3D graphics in Graphics to convert them to 2D graphics,  
which always put the final graphic "on top". So far I have not found  
a way to do this in v6.

Tom

When responding, please replace news with my first initial and full  
last name, as one word.

Tom Burton

> ... ParametricPlot3D[{(5 + 2 Cos[u]) Cos[v], (5 + 2 Cos[u]) Sin[v],  
> 2 Sin[u]}, {u,0,2Pi},{v,0,2Pi}, Epilog->{Line and Circle here}]
>
> There are two problems. The first is that, I tried to put in the  
> Epilog above some 3D graphics primitive, e.g. Point[{0,0,0}]. But  
> it doesn't work! It seems that only 2D graphics primitives can be  
> put inside the Epilog. ...






  • Prev by Date: Re: Controlling evaluation
  • Next by Date: Re: Question about GUIkit and creating Tabs
  • Previous by thread: Epilog with 3 dimensional graphics primitives
  • Next by thread: Re: Epilog with 3 dimensional graphics primitives