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}]]

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}]]
 
  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