I'm secretly a ninja...but shhhhh.

Sunday, January 27, 2013

Can you guess what this is?: Daily Create #6

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...
Posted by at 8:57 AM

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)
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}