Insert Creative Title Here.
My name is Jessica and I'm a part of CyberARTS...that's it.
I'm secretly a ninja...but shhhhh.
Wednesday, January 5, 2011
Fork Animation!
So here is my Fork Animation, we were supposed to use it for an emotion. Can you guess what it is? Anyways, hope you enjoy, this was my first animation which explains all the jumps and glitches. Kay thanks! :)
Newer Posts
Older Posts
Home
Subscribe to:
Posts (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}
