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]} ]