Draw a rotating cube: Difference between revisions
Content added Content deleted
m (→{{header|MiniScript}}: fixed GIF animation and incorrect "works with" formatting) |
(restored {{header|Mathematica}}, accidentally deleted in previous edit (oops)) |
||
Line 2,039: | Line 2,039: | ||
i = 0..360, 20 ), |
i = 0..360, 20 ), |
||
insequence=true );</syntaxhighlight> |
insequence=true );</syntaxhighlight> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<syntaxhighlight lang="mathematica">Dynamic[ |
|||
Graphics3D[ |
|||
GeometricTransformation[ |
|||
GeometricTransformation[Cuboid[], RotationTransform[Pi/4, {1, 1, 0}]], |
|||
RotationTransform[Clock[2 Pi], {0, 0, 1}] |
|||
], |
|||
Boxed -> False]]</syntaxhighlight> |
|||
=={{header|MiniScript}}== |
=={{header|MiniScript}}== |