
The 821 knot parametrized as a Lissajous curve.
Mathematica code:
Manipulate[
Graphics[
Table[
Disk[
{Cos[3 (.1*t + n)*2 Pi/100 + .1], Cos[4 (.1*t + n)*2 Pi/100 + .7]},
.03*Cos[7 (.1*t + n)*2 Pi/100] + .05],
{n, 1, 100}],
PlotRange -> 1.1, ImageSize -> 500],
{t,1,10,1}]
would love to see this running in processing.js
i don’t know what this means but i like it