(Source: dundermifflinscranton, via pr0paganda)

killquincy:

my fuckin movie

(Source: threeminutesleft, via swagtitsandapplesauce)

(Source: sluttyoliveoil, via therighteousphyferr)

(Source: haave-you-met-ted, via fuckstressmokeweed)

+ Load More Posts
R[n_] := (SeedRandom[n]; RandomReal[]) RE[n_] := (SeedRandom[n]; RandomReal[ExponentialDistribution[4]]) G[Q_, t_] := Graphics[ Table[ {PointSize[ .06* (Sqrt[RE[Q*2 i^2] + RE[Q*2 i + 1]^2])], Opacity[ .5*Sum[Exp[-(t - (R[Q*i] + j))^2/.1], {j, {-1, 0, 1}}]], Point[ Table[ RotationTransform[(k + (-1)^(i)*t)*2 Pi/8] [{RE[Q*2 i],RE[Q*2 i +1]}], {k, 0, 7, 1}]]}, {i, 1, 200, 1}], PlotRange -> If[Q == 25, 1.4, 1.2], ImageSize -> 700] Table[ ListAnimate[ Table[ G[Q,t], {t, 0, .95, .05}], AnimationRunning -> False], {Q, {25, 35}}]