User Portlet User Portlet

Discussions
Not sure exactly what you mean by "make it move". Take a look at the documentation for [Manipulate][1] and [ListAnimate][2]. e.g. zRotations = Table[Graphics3D[ Rotate[Scale[Cylinder[{{0, 0, 0}, {0, 0, 4}}, 1], {a, b, 1}], t,...