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