Be happy!

Mathematica code:

r[n_] := ( SeedRandom[n]; RandomReal[])Fireworks2[IS_, pr_, x_, y_, h_, R_, P_, F_, g_, v_, u_, z_,                  o_, O_, w_, d_, q_, e_, A_, k_, s_, t_] := Graphics[  Table[   If[t < r[R*f] s, {Black, Opacity[0], Disk[]},    Table[     Table[      {Hue[r[R*f]],        Opacity[If[a == 0,          If[t - r[R*f] s < o + r[R*f] s, O,           O*Exp[-d*(t - r[R*f] s - o)]],          If[(t - r[R*f] s - a) < q + r[R*f] s, 0,           O*Exp[-e*(t - r[R*f] s + a - q)]]]],       Disk[        {x + (v + u*r[2 R*f*n])*           Cos[2 Pi*r[f*R*n]]*(t - r[R*f] s - a),         y +           h + (v + u*r[2 R*f*n])*           Sin[2 Pi*r[f*R*n]]*(t - r[R*f] s -              a) - .5 g*(t - r[R*f] s - a)^2},        (z + .2 r[6 f*R*n])*k^a]},      {n, 1, P}],     {a, 0, A, .05}]],   {f, 1, F}],  Background -> Black, PlotRange -> pr, ImageSize -> IS]Manipulate[Fireworks[500, 40, 0, 9, 0, 1, 70, 3, .6,               If[t < 6, 6, 6 - .05 (t - 6)^2],               -1, .2, 3, .7, 2, .5, 0, .4,               5, .9, 1, t], {t, 0, 11, .25}]]
Filed under: #GIF  #Mathematica  #fireworks  #2013

1. purple-mor reblogged this from intothecontinuum
2. emmahooks reblogged this from intothecontinuum
3. helena-troy reblogged this from intothecontinuum
4. whataniceone reblogged this from intothecontinuum
5. catsandlight reblogged this from openframeworks
6. nlrp-me reblogged this from intothecontinuum
7. giferronous reblogged this from intothecontinuum
8. chudontnome reblogged this from kayt-eiya
9. kayt-eiya reblogged this from fluoresentadolesents
10. chthonica reblogged this from intothecontinuum
11. lorddust reblogged this from intothecontinuum
12. reddishgrey reblogged this from psychicdisco
13. openframeworks reblogged this from rindarindanindanin
14. 10elements reblogged this from mogatrat
15. jaeger-bombasticc reblogged this from intothecontinuum
16. smoot reblogged this from intothecontinuum
17. microlina reblogged this from intothecontinuum
18. tyb reblogged this from intothecontinuum