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[.5, 6, 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, 110}, {0, 100.5}},
    Filling -> Axis, FillingStyle -> White, Axes -> False, AspectRatio -> Full, 
    ImageSize -> {500, 700}],
  {n, 0, 100, 1}]],
{t, 0, .95, .5}, AnimationRunning->False]

1. mileysyrups gostou disto
2. corpvstristis reblogou isto de cubidez-blog
3. decadentfuntree reblogou isto de gree
4. sharingoursexxxcapades gostou disto
5. soundtracks-pagenine reblogou isto de intothecontinuum
6. sineeffect reblogou isto de waverider-clips
7. madisonpimpinmoreno gostou disto
8. holaerica reblogou isto de skeletonsinyourwardrobe
9. bielmeier gostou disto
10. joannennaoj reblogou isto de ico
11. shigemitani reblogou isto de waverider-clips
12. waverider-clips reblogou isto de ico
13. laloraskin gostou disto
14. skeletonsinyourwardrobe reblogou isto de ico
15. ico reblogou isto de manamiinoue
16. zwartevormen-gifs reblogou isto de intothecontinuum
17. mybelobru reblogou isto de intothecontinuum
18. besit gostou disto
19. estacoisaeumbocadodos2 reblogou isto de small--naomi
20. lovekatz reblogou isto de intothecontinuum
21. atripbetweenimpulses gostou disto
22. reggieandall reblogou isto de laustuff-blog-blog
23. hatopopoko gostou disto
24. sleepyface gostou disto
25. caiman212 reblogou isto de ultrazapping
26. elnuevajerusalem gostou disto
27. m0sca reblogou isto de r-a-u-s-c-h
28. m0sca gostou disto
29. fernandaesquinca reblogou isto de lefoqer
30. arclife gostou disto
31. chachapossum reblogou isto de intothecontinuum
32. lbha gostou disto
33. z-eswp reblogou isto de seen-by-warfield
34. cortnet gostou disto
35. intothecontinuum publicou isto
36. Mostrar mais notasA carregar...