       Re: 3D view direction

• To: mathgroup at smc.vnet.net
• Subject: [mg110898] Re: 3D view direction
• From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
• Date: Sat, 10 Jul 2010 06:32:45 -0400 (EDT)

```Hi,

you could simply write your on rotation by setting the ViewPoint.
Using Manipulate and ContinuousAction->False makes that you can set the
angle without waiting for the rendering of every frame:

gr3d = ListPlot3D[Table[Sin[x + y]/(0.5 + x^2 + y^2),
{x, -1, 1, 2/256.}, {y, -1, 1, 2/256.}],
PlotRange -> All];
Manipulate[Block[{viewcenter = {0.5, 0.5, 0.5}, viewpoint},
viewpoint = {3*Sin[theta]*Cos[phi], 3*Sin[theta]*Sin[phi],
3*Cos[theta]} + viewcenter; Show[gr3d,
ViewPoint -> viewpoint, ViewCenter -> viewcenter,
AxesLabel -> {"x", "y", "z"}, PlotLabel ->
StringJoin["ViewPoint\[Rule]", ToString[viewpoint]]]],
{phi, 0, 2*Pi}, {{theta, Pi/3}, 0, Pi},
ContinuousAction -> False]

Cheers
Patrick

On Sat, 2010-07-10 at 03:58 -0400, eric g wrote:
> Hello Group,
> My computer is very slow with a 256x256 array with listplot3d I can move
> the graph with the mouse or it takes forever, I always use arrayplot for
> this but I need the 3D graph this time. How to set up a view direction
> in ListPlot3D so I wont have to move it ?
>
> ListPlot3D[
>   Table[Sin[x + y]/(.5 + x^2 + y^2), {x, -1, 1, 2/256.}, {y, -1, 1,
>     2/256.}], PlotRange -> All]
>
> thnks,
> Eric
>

```

• Prev by Date: Re: Chi Square Areas
• Next by Date: Re: replacement x->y except in Exp[x]
• Previous by thread: 3D view direction
• Next by thread: Re: 3D view direction