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