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

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}]
 
  1. wanderingl0tus reblogged this from atemporal-emptiness
  2. spoirme reblogged this from bostongeorge17
  3. gajuu reblogged this from cpjose
  4. cpjose reblogged this from do-math
  5. thordeurantia reblogged this from thephynster
  6. thephynster reblogged this from chillypepperhothothot
  7. chillypepperhothothot reblogged this from lillypotpie
  8. jeanderoche reblogged this from intothecontinuum
  9. interrialltumbler44 reblogged this from thepoemthatdoesntrhyme
  10. thepoemthatdoesntrhyme reblogged this from microcosmicmorganism
  11. celestialfrequenciesalign reblogged this from microcosmicmorganism
  12. maxovodc reblogged this from microcosmicmorganism
  13. microcosmicmorganism reblogged this from starpillow
  14. dreamer232 reblogged this from nomatternevermind
  15. 0111897 reblogged this from starpillow
  16. nomatternevermind reblogged this from cabdawg12
  17. cabdawg12 reblogged this from starpillow
  18. starpillow reblogged this from a-ltmer
  19. alterbeing reblogged this from intothecontinuum
  20. thevertical360 reblogged this from intothecontinuum
  21. nampura reblogged this from intothecontinuum
  22. rosenclitter reblogged this from atemporal-emptiness
  23. clazzjassicalrockhop reblogged this from intothecontinuum
  24. sherms9 reblogged this from plusventus
  25. first-date-kit reblogged this from awtistictrippyfeyboy
  26. awtistictrippyfeyboy reblogged this from mentalalchemy
  27. dzumeister reblogged this from worldkelser
  28. ancienteyeskid reblogged this from thewizardofweird