Mathematica code: G[X_, Y_, Z_, S_, p_, q_, r_, a_, b_, c_, N_, e_, t_, PR_, IS_] := Graphics[ Table[ Disk[ {X*Cos[a (e*t + n)*2 Pi/N + p], Y*Cos[b (e*t + n)*2 Pi/N + q]}, Z*Cos[c (e*t + n)*2 Pi/N + r*t*2 Pi] + S], {n, 1, N}], PlotRange - PR, ImageSize - IS] Manipulate[ G[.5, 1, .02, .03, 0, Pi/4, -.05, 2, 1, 1, 40, 1, .1, t, {{-.786, .786}, {-1.1, 1.1}}, 500], {t, 1, 20, 1}] ?

Mathematica code: RotAxis = Table[Table[ Table[ R[o, {.01 + x, .01 + y, 0}, {0, 0, 0}], {o, 0, 2 Pi, 2 Pi/80}], {x, -10, 10, 1}], {y, -10, 10, 1}]Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}CubeProjections[color_, pr_, b_, s_, h_, w_, m_, o_] :=Graphics[ Table[ Translate[ {AbsoluteThickness[h], If[color == 0, Black, White], Line[ Table[ Table[ RotAxis[[11 + y]][[11 + x]] [[1 + Mod[Round[ (Pi + ArcTan[.01 + x, .01 + y])/2Pi] + o, 80]]]…

Mathematica code:Rot80 = Table[ Table[ RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]], {v, 1, 8, 1}],{a, 0, 2 Pi, ...

Inspired by Visual illusions based on single-field contrast asynchronies and by beesandbombs. Mathematica code: v[a_] := {{Cos[a], 0}, {0,...

Mathematica code: P[A_, f_, w_, h_, M_, Y_, t_] := Plot[ Table[ A*Sin[f*x + t + n*2 Pi/w] + h*n, {n, 1, M, 1}], {x, 0, 4 Pi}, PlotSty...

Inspired by Intermodular Distortion by Volume2a. Mathematica code: ListAnimate[Table[ Graphics[ Table[ Table[ {Red, Disk[{(1 + 2 n) .5/N + Mod[((-1)^N) t/N, ((-1)^N) 1], If[N == 3, 0, Sum[.5/j, {j, 3, N - 1}]]}, .5/N, {0, Pi}]}, {n, -1, N, 1}], {N, 3, 35}], PlotRange - {{0, 1}, {0, 1.33}}, ImageSize - {500, 652}, Background - Blue],{t, 0, .95, .05}]

intothecontinuum.tumbler.com - a perspective on mathematics, the pattern, and the abstract with animated GIFs and code to reproduce.

### Tokyo type gif animation

Shamil Karim Kristina Udovichenko Tokyo type

### #NovGifs

one seamlessly looping gif for each day of november | imgur

Great Stellated Dodeca

Pinterest