Assignment: Take a close up photo of an object with a unique texture or pattern; make us guess what it is.
This was another interesting assignment...I'm not going to say exactly what it is but I had to mix it around a bit before I got to this...
My name is Jessica and I'm a part of CyberARTS...that's it.
F[a_, L_, r_, s_, t_] := Table[ {-(r + s*Cos[t])^n*Sin[n*a], (r + s*Cos[t])^n*Cos[n*a]}, {n, 0, L}] V := {{1.45631, 556, .995, .003}, {2.94712, 502, .998, .001}, {4.50891, 485, .9955, .0025}, {4.9367, 630, .997, .002}} Table[ ListAnimate[ Table[ Graphics[ Polygon[ F[Part[Part[V, G], 1], Part[Part[V, G], 2], Part[Part[V, G], 3], Part[Part[V, G], 4], t]], PlotRange -> 1, ImageSize -> 250], {t, 0, 2 Pi, 2 Pi/40}]], {G,1,4,1}