I saw this beautiful, hypnotic set of concentric circles rotating in 3D around the origin.
I thought I could produce the same on Mathematica, but terribly failed. So far this is what I tried:
Graphics[Table[{AbsoluteThickness[5], Lighter@Hue[0.42 + 0.1 r], Circle[{0, 0}, r]}, {r, 0, 10, 0.5}], Background -> Black]
The above code produces a nice set of circles. I used RotateTransform
inside Graphics3D
too, but it says CircleBox
is not a Graphics3D
primitive. I do not know how to implement further.
Any idea or hint is appreciated.