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}]
]