Motivation
I'm trying to do a nice animation of the rotation of a ParametricPlot3D . My problem is that the Ticks numbers and AxesLabel text wiggle randomly as the ViewPoint changes.
Questions
How can I figure out why it wiggles?
How do I avoid it?
I'm guessing that there is some "round up to nice values" going on somewhere, but the output of TracePrint its not too revealing to me.
Code
examplePlot = ParametricPlot3D[ Evaluate@Table[ { k , s , Sin[k s] + k s/50 } , {k, 7} ] , {s, 0, 4 Pi} , PlotRange -> {{-2, 4 Pi}, {0, 4 Pi}, {-2, 4}} , BoxRatios -> {1, 3, 1} , PlotStyle -> Array[Hue, 7, {0, 0.75}] , PlotPoints -> 150 , MaxRecursion -> 5 , BaseStyle -> {FontSize -> 14, FontFamily -> "Helvetica", FontTracking -> "Plain", TextJustification -> 0, PrivateFontOptions -> {"OperatorSubstitution" -> False}} , ImageSize -> {700, 300} , ViewAngle -> 0.19 , Ticks -> {Range[7], Automatic, Automatic} ] animExample = Table[ Show[ examplePlot , ViewPoint -> {3, 0.4 + 0.5 Sin[j], 0.5 + 0.2 Cos[j]} , RotationAction -> "Clip" , ViewVertical -> {0, 0, 1} , ViewAngle -> 0.22 , AxesEdge -> {{1, -1}, Automatic, {1, -1}} , AxesLabel -> {"Axis 1", "Axis 2", "Axis 3"} ] , {j, 0, 2 π, π/25}]; Export["animExample.GIF", animExample, "DisplayDurations" -> 0.15, "AnimationRepetitions" -> Infinity] 