maihudson: Animated GIF (700 x 700)Mathematica code:vertices = ...
blog post from archery
maihudson: Animated GIF (700 x 700) Mathematica code: vertices = Table[Table[ RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]], {v, 1,8, 1}], {a, 0, 2 Pi, Pi/80}]; Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2} CubeTrail[N_, s_, r_, z_, t_] := Graphics[ Table[ Scale[ Translate[{AbsoluteThickness[1.5], Opacity[1], White, Line[ Table[ {vertices[[1 + Mod[t, 80]]][[Edge[[e]]]][[1]], vertices[[1 + Mod[t,...
READ FULL ARTICLE »
Become a member to take advantage of more features, like commenting and voting.
Register or sign in today!