Message Boards Message Boards

[GIF] Turn, Magic Wheel (Spinning squares)

Spinning squares

Turn, Magic Wheel

Just something incredibly simple: three squares rotating around an axis. But the slightly unusual perspective makes it interesting, I think.

Here's the code:

With[{n = 3, cols = {GrayLevel[.15], RGBColor["#F6F5F5"]}},
 Manipulate[
  Graphics3D[{
    Thickness[.01], cols[[1]],
    Table[
     Line[RotationTransform[? + t, {0, 1,  0}] 
        /@ {{0, -1, -1}, {0, -1, 1}, {0, 1, 1}, {0, 1, -1}, {0, -1, -1}}], {t, 0, 2 ? - 2 ?/n, 2 ?/n}]
    },
   ViewPoint -> {.65, 0, 0}, ViewAngle -> ? - .5, Boxed -> False, 
   PlotRange -> 1, ImageSize -> 540, Background -> cols[[-1]]],
  {?, 0, ?/n}]
 ]

enter image description here - Congratulations! This post is now a Staff Pick! Thank you for your wonderful contributions. Please, keep them coming!

POSTED BY: EDITORIAL BOARD
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