(Source: peccoooo, via kenmat)

Numerografía 

http://www.behance.net/gallery/Numerografia-Yorokobu/3566257

(via gifhorseinthemouth)

intothecontinuum:

Mathematica code:

T[t_] := 
 If[0 < t < 11, 20 + 20 t,
 If[10 < t < 17, 30 t - 80, 
 If[16 < t < 23, 50 t - 400, 
 If[22 < t < 35, 700, 0]]]]

Op[t_] := 
 If[Mod[t, 29] < 23, 1, 1 - .2*(Mod[Mod[t, 29], 22])]

P[t_] :=
 If[0 < t < 29, 2.1021, 
 If[28 < t < 57, 1.5782, 
 If[56 < t < 85, 1.26674, 
 If[84 < t < 113, 1.0537, 
 If[112 < t < 145, .796898, 1]]]]]

ListAnimate[
Table[
  Graphics[
   {Opacity[Op[t], White],
    Line[
     Table[
      {-.99^n*Sin[n*P[t]], .99^n*Cos[n*P[t]]}, {n, 0, T[Mod[t, 29]]}]]},
   PlotRange -> 1/4, ImageSize -> 500, Background -> Black],
  {t, 0, 145, 1}]]

(via illleagle-deactivated20140822)

(Source: mrdiv, via swaptv)

(Source: rational-works, via 57577)

(Source: rational-works, via optore-deactivated20180306)

f0rget-it:

counting waves

(Source: ramswork)

(Source: johndenny, via whenthennow)

(Source: dethjunkie, via popular-socialist-sith)