Ask me anythingIGNDeliciousTwitteryoutubeNext pageArchive
theswingingsixties:
The Beach Boys — You Still Believe In Me - 1966
(Source: arocketnamedjustice)
Will never forget
![intothecontinuum:
Mathematica code:
P[t_, u_] := Mod[t + 10 u, 31]Op[t_, u_] := If[-1 < P[t, u] < 21 - 10 u, 1, If[20 - 10 u < P[t, u] < 31, 3 - .1P[t, u] - 1 u, 0]]ListAnimate[ Table[ Show[ Table[ Graphics[ Table[ {Thickness[.002], Opacity[Op[t, u]], White, Circle[ {-.987^n*Sin[n*6], .987^n*Cos[n*6]}, .985^n*.03*P[t, u]]}, {n, 0, 150}], PlotRange -> .5, ImageSize -> 500, Background -> Black], {u, 0, 1, 1}]], {t, 1, 30, 1}]]](http://25.media.tumblr.com/tumblr_m30j3hRDkw1qfjvexo1_r1_250.gif)
