Motivation
----------

I'm trying to do a nice animation of the rotation of a [`ParametricPlot3D`](http://reference.wolfram.com/language/ref/ParametricPlot3D.html) . My problem is that the `Ticks` numbers and `AxesLabel` text wiggle randomly as the [`ViewPoint`](http://reference.wolfram.com/language/ref/ViewPoint.html) changes.

[![Rotating ParametricPlot3D][1]][1]

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`](http://reference.wolfram.com/language/ref/TracePrint.html) 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]

 [1]: https://i.sstatic.net/K8t8h.gif