Watch in ‘HD’ (1280x720) here

This video shows continuous variation in angle for three different regions of the connect-the-dots algorithm while keeping all other parameters fixed. Unlike the previous video, there is no length contraction of the lines in the iteration. Each instant is a valid 2-coloring.

Music: “Intensives Leben” by Triosk

Mathematica code:

S := 
{{2.8785, .000004, 300, 1000}, 
  {3.05165, .000005, 361, 1070}, 
  {2.6985, .000007 , 301, 929}}

Manipulate[
 ImageCrop[
  Graphics[
   GraphicsComplex[
    Table[
     {-Sin[n*(Part[Part[S, s], 1] + Part[Part[S, s], 2] f)], 
      Cos[n*(Part[Part[S, s], 1] + Part[Part[S, s], 2] f)]}, 
    {n, 0, Part[Part[S, s], 3]}],
   Polygon[Table[i, {i, 1, Part[Part[S, s], 3], 1}]]], 
  PlotRange -> .826787, ImageSize -> 1280],
 {1280, 720}],
{s, {1, 2, 3}}, {f, 1, Part[Part[S, s], 4], 1}]