Message Boards Message Boards

[GIF] Turn Yourself Around (Turning lines)

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

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: 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