Swing

(via barbeskumpe-blog)

intothecontinuum:

Mathematica code:

R[n_] := (SeedRandom[n]; RandomReal[])
G[A_, s_, c_, T_, x_] := A*T*Exp[-(x - c)^2/s]

ListAnimate[
 Show[
   Table[
    Plot[
     100 - n + 
     Sum[G[20, 5, 100*R[2n], 
                 Sum[G[1, .15, k - R[4 n], 1, m/100 + t], 
                 {k, -3, 3, 1}], 
                x],
     {n, 1, 30, 1}], 
   {x, -10, 110}],
    PlotStyle -> Directive[Black], PlotRange -> {{0, 90}, {0, 100.5}},
    Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full, 
    ImageSize -> {450, 600}],
  {n, 0, 100, 1}]],
{t, 0, 14/15, 1/15}, AnimationRunning->False]

Poster Design for La Fabrique 2012 by Studio Frederic Tacer

(Source: ockupationsmakt)

DAVID GENCO

davidgenco.com

(Source: my-tumblrisbetterthanyours)

intothecontinuum:

Mathematica code:

R[n_] := (SeedRandom[n]; RandomReal[])
G[A_, s_, c_, T_, x_] := A*T*Exp[-(x - c)^2/s]

ListAnimate[
 Show[
   Table[
    Plot[
     100 - n + 
     Sum[G[2, 8, 100*R[n], 
                 Sum[G[1, .01, k - R[2 n], 1, m/100 + t], 
                 {k, -3, 3, 1}], 
                x],
     {n, 1, 50, 1}], 
   {x, -10, 110}],
    PlotStyle -> Directive[Black], PlotRange -> {{-10, 105}, {0, 100.5}},
    Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full, 
    ImageSize -> {500, 700}],
  {n, 0, 100, 1}]],
{t, 0, 14/15, 1/15}, AnimationRunning->False]

(via 57577)

(Source: marskvoz, via planetaryfolklore)

intothecontinuum

(via mathunderwood)

Head Space Audio

headspaceaudio.ca

(Source: my-tumblrisbetterthanyours)