Controlling StepLeftButton and StepRightButton in Animator

*To*: mathgroup at smc.vnet.net*Subject*: [mg82406] Controlling StepLeftButton and StepRightButton in Animator*From*: "David Park" <djmpark at comcast.net>*Date*: Fri, 19 Oct 2007 05:05:33 -0400 (EDT)

If one sets DisplayAllSteps -> True in an Animator, then why doesn't this also apply to the StepLeftButton and StepRightButton? Here is an example. This is a stripped down case from a display that actually has a plot. What I want to do is illustrate that the following complex function maps the unit circle into the real axis. w[z_] := (\[ImaginaryI] (1 - z))/(1 + z) Manipulate[ Column[ {Row[{HoldForm[w[\[ExponentialE]^(\[ImaginaryI] "\[Theta]")]] == w[\[ExponentialE]^(\[ImaginaryI] "\[Theta]")], " maps to the real line"}], Row[{"Abs[Numerator] = ", Dynamic@Chop@ N@Abs[1 - \[ExponentialE]^(\[ImaginaryI] \[Theta])]}], Row[{"Abs[Denominator] = ", Dynamic@NumberForm[ N@Abs[1 + \[ExponentialE]^(\[ImaginaryI] \[Theta])], {10, 9}, ExponentFunction -> (Null &)]}], Row[{"w = ", Dynamic@NumberForm[ Chop@N@w[\[ExponentialE]^(\[ImaginaryI] SetPrecision[\[Theta], 22])], {10, 2}, ExponentFunction -> (Null &)]}], Row[{"\[Theta] = ", Dynamic[NumberForm[N[\[Theta]] // Chop, {10, 9}]]}]}], {\[Theta], Join[{-\[Pi] + 10^-8, -\[Pi] + 10^-5, -\[Pi] + 10^-3}, Range[-\[Pi] + .01, \[Pi] - .01, (2 \[Pi] - .02)/ 50], -Reverse@{-\[Pi] + 10^-8, -\[Pi] + 10^-5, -\[Pi] + 10^-3}], Animator, DisplayAllSteps -> True, AnimationDirection -> ForwardBackward}] I have a series of discrete steps on theta and I add extra specific points at each end to get very close to -Pi and Pi. If one moves the slider with the mouse, or runs the animation, one can see each of these steps. However, if one uses the StepLeft and StepRight buttons many steps are skipped. Is there a way to use every step? If not, this seems like a design flaw. -- David Park djmpark at comcast.net http://home.comcast.net/~djmpark/