Message Boards Message Boards

[GIF] Turn Yourself Around (Turning lines)

GROUPS:

Turning lines

Turn Yourself Around

Here's the code:

DynamicModule[{n = 64, r = .25, cols},
 cols = RGBColor /@ {"#00EAFF", "#284184"};
 Manipulate[
  Graphics[{Thickness[.003], CapForm["Round"], Table[Block[{ψ},
      ψ = π Haversine[
         Clip[θ - 3/2 Cos[t], {0, π}]];
      {Blend[cols, Sin[ψ]], 
       Line[{Cos[t], Sin[t]} +
            # r {-Sin[t + ψ], Cos[t + ψ]} 
             & /@ {-1, 1}]}], {t, 0, 2 π - 2 π/n, 2 π/n}]}, 
      PlotRange -> 1.5, 
   ImageSize -> 540, Background -> Last[cols]], {θ, -π/2, 3 π/2}]
 ]
POSTED BY: Clayton Shonkwiler
Answer
1 year ago

enter image description here - another post of yours has been selected for the Staff Picks group, congratulations !

We are happy to see you at the top of the "Featured Contributor" board. Thank you for your wonderful contributions, and please keep them coming!

POSTED BY: Moderation Team
Answer
1 year ago

Group Abstract Group Abstract