-

What a wonderful creation.
-

-
![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]](http://25.media.tumblr.com/tumblr_m5mzo8xVvE1qfjvexo1_500.gif)
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 seafoamdicks)
-
GPOY
(via itsexclusive)
-
Flaws and all im just me
i love when when females use their shirt like a bra
-
(via herhustle)
-
(via darksideoftheshroom)
-
Swag like a geniusĀ
-
(via smilenownow)
-

(via socialsmoking)
-
(via seafoamdicks)
-

(via seafoamdicks)
-
(via breaking-the-girl)








