MathGroup Archive 2011

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

Search the Archive

Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg123258] Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)
  • From: Ralph Dratman <ralph.dratman at gmail.com>
  • Date: Tue, 29 Nov 2011 07:05:46 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Of course I mean TransformationFunction, or just Transform. Time blurs
the specifics of verbal memory, and soon one feels like a fool.

On Mon, Nov 28, 2011 at 11:05 AM, Ralph Dratman <ralph.dratman at gmail.com> wrote:
> I would also like to have that information, preferably in the form of
> a transfer function from 3D to 2D.
>
> Ralph Dratman
>
> On Mon, Nov 28, 2011 at 5:53 AM, Chris Young <cy56 at comcast.net> wrote:
>> 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[
>> =C2 StringForm[
>> =C2  "ViewPoint==``",
>> =C2  NumberForm[Chop[{
>> =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =
=C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2=
  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =
=C2 viewR Cos[view=CE=B8] Sin[view=CF=86],
>> =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =
=C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2 viewR =
Sin[view=CE=B8] Sin[view=CF=86],
>> =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =
=C2  =C2  =C2  =C2  =C2  =C2  =C2  viewR Cos[view=CF=86]
>> =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =
=C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2=
  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =
=C2 }],
>> =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =
=C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2=
  =C2  =C2  =C2  =C2  =C2  =C2  =C2 3
>> =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =
=C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2  =C2=
  =C2  =C2  =C2 ]
>> =C2  ]
>> =C2 ]
>>
>> There's a picture at http://home.comcast.net/~cy56/ViewPoint2.tiff and
>> a notebook at http://home.comcast.net/~cy56/ViewPoint2.nb .
>>
>>
>>
>



  • Prev by Date: Re: How to solve or approximate a first order differential equation ?
  • Next by Date: Re: How to integrate a function over a polygon
  • Previous by thread: Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)
  • Next by thread: Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)