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}]
 
  1. rnario64 reblogged this from intothecontinuum and added:
    I love this shit so much.
  2. caballerojaguar reblogged this from intothecontinuum and added:
    Se que dije que no mas imagenes Psico pero fue irresistible. Perdon
  3. rienfleche reblogged this from intothecontinuum
  4. giferronous reblogged this from intothecontinuum
  5. haxpaxmax reblogged this from intothecontinuum
  6. devildroid reblogged this from intothecontinuum
  7. iomikron said: smashing!!!
  8. luccica reblogged this from intothecontinuum
  9. insertcleverdomainnamehere reblogged this from intothecontinuum
  10. intothecontinuum posted this