Posts tagged: C16

A more detailed view of output from the same algorithm as the previous video, but with slightly different parameters and 16-fold rotational symmetry.

View in ‘HD’ (1280x720) here.

Music: “upianox” by Topdown Dialectic

Mathematica code:

RR[n_, m_] := (SeedRandom[n*m]; RandomReal[])

GD[t_, Q_] :=
Graphics[
Table[
Table[
{RGBColor[RR[i, Q], RR[i, 2*Q], RR[i, 3*Q],
.25*Exp[-(Mod[t, 2] - .5 - RR[i, Q])^2/.1]],
Disk[
RotationTransform[(k + (-1)^(i)*Mod[t, 2])*2 Pi/16]
[{.3*RR[2 i, 4*Q], .3*RR[2 i + 1, 4*Q]}],
(.01 + .06*RR[i, Q])*Exp[-(Mod[t, 2] - .5 - RR[i, Q])^2/.1]]},
{k, 0, 15, 1}],
{i, 1, 40, 1}],
PlotRange -> .3, ImageSize -> 1280, Background -> Black]

Manipulate[
ImageCrop[
Show[
Table[
GD[.02 t + k,
2*Ceiling[(.02 t + k)/2] + k],
{k, 0, 1, 1}]],
{1280, 720}],
{t, 1, 1000, 1}]