Message Boards Message Boards

1
|
7775 Views
|
2 Replies
|
8 Total Likes
View groups...
Share
Share this post:

Get rid of a controller/variable in Animate?

Posted 7 years ago
POSTED BY: Null Null
2 Replies

You can use Dynamic and Clock:

Dynamic@Graphics3D[Cuboid[], 
  ViewPoint -> RotationTransform[Clock[2 Pi], {0, 0, 1}][{3, 0, 3}]]
POSTED BY: Gianluca Gorni
Posted 7 years ago

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

enter image description here

POSTED BY: Kyle Martin
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract