Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)
- To: mathgroup at smc.vnet.net
- Subject: [mg123236] Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)
- From: Chris Young <cy56 at comcast.net>
- Date: Mon, 28 Nov 2011 05:53:53 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j6e684$ke8$1@smc.vnet.net>
On 2011-10-04 05:40:20 +0000, Theo Moore said:
> Hi,
>
> I'm looking for an easy way to specify the 3d viewing options that you
> can alter by clicking a 3d plot and dragging your mouse. For example,
> plot a graph using:
>
> Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}]
>
> And then click and rotate it (or click and zoom in/out, etc.). Is
> there a way to output the parameters which were used as I manually
> rotated it, so that one could duplicate this (now-changed) graphic
> from an explicit command?
I forgot to add the ViewPoint readout. For this, all you need is the
PlotLabel option. (I got this from a Google online sample from Stan
Wagon's "Mathematica in Action", a great book.)
PlotLabel -> Dynamic[
StringForm[
"ViewPoint=``",
NumberForm[Chop[{
viewR Cos[viewθ] Sin[viewÏ?],
viewR Sin[viewθ] Sin[viewÏ?],
viewR Cos[viewÏ?]
}],
3
]
]
]
There's a picture at http://home.comcast.net/~cy56/ViewPoint2.tiff and
a notebook at http://home.comcast.net/~cy56/ViewPoint2.nb .