Get rid of a controller/variable in Animate?

[swedew (Null Null)]

Hello!

I’m trying to get rid of controllers and the controller variable using Animate. I’ve gotten rid of the controllers, but the variable ? still shows up.

animate[obj_] := Animate[
   With[
    {v = RotationTransform[\[Theta], {0, 0, 1}][{3, 0, 3}]},
    Show[obj, ViewPoint -> v]], {\[Theta], 0, 2 Pi},
   Alignment -> Center,
   Paneled -> False,
   SaveDefinitions -> True,
   AnimationRate -> .01,
   AppearanceElements -> None,
   AnimationRunning -> True] /.
  (AppearanceElements -> _) ->
   (AppearanceElements -> {})

Giving the following animation:

If I use ControlType->None, ? does not show up…

animate2[obj_] := Animate[
   With[
    {v = RotationTransform[\[Theta], {0, 0, 1}][{3, 0, 3}]},
    Show[obj, ViewPoint -> v]], {\[Theta], 0, 2 Pi},
   Alignment -> Center,
   Paneled -> False,
   SaveDefinitions -> True,
   AnimationRate -> .01,
   AppearanceElements -> None,
   AnimationRunning -> True,
   ControlType -> None] /.
  (AppearanceElements -> _) ->
   (AppearanceElements -> {})

…but then it does not rotate. I realize it needs some sort of control object (or I’m guessing it does), but is there a way to hide ? so all I get is a rotating object that starts automatically upon code evaluation?

Any help is appreciated!

[kmartin (Kyle Martin)]

It’s kind of cheesy, but if this is purely for visualization purposes, have you considered making the label White or completely transparent?

animate[obj_] := 
 Animate[With[{v = RotationTransform[\[Theta], {0, 0, 1}][{3, 0, 3}]},
     Show[obj, ViewPoint -> v]], {\[Theta], 0, 2 Pi}, 
   Alignment -> Center, Paneled -> False, SaveDefinitions -> True, 
   AnimationRate -> .01, AppearanceElements -> {}, 
   AnimationRunning -> True, 
   LabelStyle -> Opacity[0]] /. 
   (AppearanceElements -> _) -> (AppearanceElements \
    -> {})

animate[Graphics3D[{Blue, Cylinder\[\]}]]

[gianlucagorni]

You can use Dynamic and Clock:

Dynamic@Graphics3D[Cuboid[], 
  ViewPoint -> RotationTransform[Clock[2 Pi], {0, 0, 1}][{3, 0, 3}]]