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