Mathematica code:
G[A_, B_, s_, N_, T_, t_, pr_, th_] :=
Graphics[
{EdgeForm[{AbsoluteThickness[th], Black}], FaceForm[White],
Polygon[
Table[
{{0, 0},
{(Cos[4a+s*t]+Sin[4a+s*t])Cos[a+s*t], (Cos[4a+s*t]+Sin[4a+s*t]) Sin[a+s*t]},
{(Cos[4a+s+s*t]+Sin[4a+s+s*t])Cos[a+s+s*t], (Cos[4a+s+s*t]+Sin[4a+s+s*t]) Sin[a+s+s*t]}},
{a, B + T, A + T, 2 Pi/N}]]},
PlotRange -> pr, ImageSize -> 500]
Manipulate[
G[2Pi, 0, .75, 200, T, 0, 1.5, .3],
{T,0,2Pi}]
Woah. What?
This reminds me if the time I accidentally stole a Spirograph from Kmart when I was a kid lol
O_O mind fuck