Twist

Very simple one this time. 100 points on the unit circle, each with a line segment passing through it, all rotating at the same speed but at different initial angles (the initial angles make 1.5 additional rotations relative to the radial line).

Here's the code:

With[{n = 100},
 Manipulate[
  Graphics[
   {CapForm["Round"], Thickness[.004],
    Table[
     {Hue[Mod[? + t, 2 ?]/(2 ?)], 
      Line[{#, #} + RotationTransform[3/2 ? + t][.4 {-#, #}]] &[{Cos[?], Sin[?]}]},
     {?, 0, 2 ? - 2 ?/n, 2 ?/n}]},
   PlotRange -> 2, ImageSize -> 540, Background -> GrayLevel[.15]],
  {t, -?/4, 2 ? - ?/4}]
 ]