RosettaCodeData/Task/Draw-a-rotating-cube/Mathematica/draw-a-rotating-cube.math

8 lines
215 B
Plaintext

Dynamic[
Graphics3D[
GeometricTransformation[
GeometricTransformation[Cuboid[], RotationTransform[Pi/4, {1, 1, 0}]],
RotationTransform[Clock[2 Pi], {0, 0, 1}]
],
Boxed -> False]]