RE: SurfaceOfRevolution
- To: mathgroup at smc.vnet.net
- Subject: [mg33877] RE: [mg33833] SurfaceOfRevolution
- From: "David Park" <djmp at earthlink.net>
- Date: Sun, 21 Apr 2002 06:12:25 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Wes,
You can rotate a SurfaceOfRevolution plot about a point not the origin by
simply shifting the origin. Here is an example:
Needs["Graphics`SurfaceOfRevolution`"]
Needs["Graphics`Colors`"]
Needs["Graphics`Animation`"]
First, we plot a surface and extract the primitive graphics by taking the
First part.
surface = First[SurfaceOfRevolution[Sin[x], {x, 0, 2*Pi},
DisplayFunction -> Identity]];
Then we shift all the plot points so the origin is at {2Pi,0,0}.
surface = surface /. {x_?NumberQ, y_?NumberQ, z_?NumberQ} -> {x + 2 Pi, y,
z};
Now, we plot the shifted surface and a vertical line at the origin.
plot1 =
Show[
Graphics3D[
{surface,
AbsoluteThickness[2], Red,
Line[{{0, 0, -2}, {0, 0, 2}}]}],
PlotRange -> {{-4Pi, 4Pi}, {-4Pi, 4Pi}, {-2, 2}},
Boxed -> False,
ImageSize -> 400];
This rotates the resulting image.
SpinShow[plot1]
SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]
FrontEndTokenExecute["SelectionAnimate"]
There are other variations depending upon your exact need. The whole process
is slightly easier using my DrawGraphics package, at my web site, because
the primitive graphics are immediately available for manipulation, there is
a DrawingTransform command for mapping plot points, and there is a
CustomTicks command for transforming and relabeling ticks.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Wes [mailto:Negoham at insightBB.com]
To: mathgroup at smc.vnet.net
>
>
> Might anyone out there know of a method by which I could use the
> SurfaceOfRevolution command to rotate a graph about a line that does NOT
> pass through the origin? Can such a thing be done?
>
>