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

Manipulate bug (?) when stepping by degrees?

• To: mathgroup at smc.vnet.net
• Subject: [mg123277] Manipulate bug (?) when stepping by degrees?
• From: Chris Young <cy56 at comcast.net>
• Date: Wed, 30 Nov 2011 03:20:06 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

When I try to specify 5 degree increments for the rotation steps, the 
amount of rotation actually is much bigger and unpredictable. Does 
Manipulate have a problem handling degrees as increment amounts?

http://home.comcast.net/~cy56/ManipulateBugDegrees.png

http://home.comcast.net/~cy56/ManipulateBugDegrees.nb

Manipulate[
 Plot3D[
   Sin[x y],
   {x, 0, 3}, {y, 0, 3},

   PlotRange -> All,
   PlotStyle -> Opacity[opac],
   PlotPoints -> plotPts,
   MeshFunctions -> ( {x, y, z} \[Function] z),
   Mesh -> mesh,
   MeshStyle -> Directive[Gray, Thin],
   AxesLabel -> {"x", "y", "z"}
   ]  /.

  Graphics3D[graphics_, opts___] :>
   Graphics3D[
    {
     graphics,
     (scale \[Function]
        Scale[graphics, scale, {\[ScriptX], \[ScriptY], \[ScriptZ]}])
      /@
      (1 + spread - IdentityMatrix[3])
     },
    opts,
    ViewPoint -> Dynamic[{viewR Cos[view\[Theta]] Sin[view\[Phi]],
       				  viewR Sin[view\[Theta]] Sin[view\[Phi]],
       				  viewR Cos[view\[Phi]]}]
    ],

 {{opac, 0.2}, 0, 1},
 {{plotPts, 50}, 10, 100, 1},
 {{\[ScriptX], -1}, -1, 0},
 {{\[ScriptY], -1}, -1, 0},
 {{\[ScriptZ], -1}, -1, 0},
 {{mesh, 10}, 0, 20, 1},
 {{spread, 0.1}, -0.1, 0.1, 0.001},
 {{viewR, 100}, 0, 100},
 {{view\[Theta], 0 \[Degree]}, 0 \[Degree], 360 \[Degree],
  5 \[Degree]},
 {{view\[Phi], 70 \[Degree]}, 0 \[Degree], 180 \[Degree],
  5 \[Degree]}
 ]