RosettaCodeData/Task/Draw-a-rotating-cube/Mathematica/draw-a-rotating-cube.math
2023-07-01 13:44:08 -04:00

7 lines
215 B
Text

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