(* LINEAR *)

v=1/2; s[text_]:=Style[text, FontFamily->"Consolas", FontSize->72];
Do[Export["Y:\\export\\le"<>ToString[t 250+100000]<>".png", Rasterize[Graphics[{
{PointSize[0.006], Red, Thickness[0.0009], Point[{{v t, +0.5}}]}, 
{PointSize[0.006], Blue, Thickness[0.0009], Point[{{-v t, -0.5}}]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 0 π/4, +0.5}, Max[0, t+2.4/v-0 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 1 π/4, +0.5}, Max[0, t+2.4/v-1 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 2 π/4, +0.5}, Max[0, t+2.4/v-2 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 3 π/4, +0.5}, Max[0, t+2.4/v-3 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 4 π/4, +0.5}, Max[0, t+2.4/v-4 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 5 π/4, +0.5}, Max[0, t+2.4/v-5 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 6 π/4, +0.5}, Max[0, t+2.4/v-6 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 7 π/4, +0.5}, Max[0, t+2.4/v-7 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 8 π/4, +0.5}, Max[0, t+2.4/v-8 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 9 π/4, +0.5}, Max[0, t+2.4/v-9 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 10 π/4, +0.5}, Max[0, t+2.4/v-10 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 11 π/4, +0.5}, Max[0, t+2.4/v-11 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 12 π/4, +0.5}, Max[0, t+2.4/v-12 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 13 π/4, +0.5}, Max[0, t+2.4/v-13 π/4]]}, 
{Red, Thickness[0.0009], Circle[{-2.4+v 14 π/4, +0.5}, Max[0, t+2.4/v-14 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 0 π/4, -0.5}, Max[0, t+2.4/v-0 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 1 π/4, -0.5}, Max[0, t+2.4/v-1 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 2 π/4, -0.5}, Max[0, t+2.4/v-2 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 3 π/4, -0.5}, Max[0, t+2.4/v-3 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 4 π/4, -0.5}, Max[0, t+2.4/v-4 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 5 π/4, -0.5}, Max[0, t+2.4/v-5 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 6 π/4, -0.5}, Max[0, t+2.4/v-6 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 7 π/4, -0.5}, Max[0, t+2.4/v-7 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 8 π/4, -0.5}, Max[0, t+2.4/v-8 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 9 π/4, -0.5}, Max[0, t+2.4/v-9 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 10 π/4, -0.5}, Max[0, t+2.4/v-10 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 11 π/4, -0.5}, Max[0, t+2.4/v-11 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 12 π/4, -0.5}, Max[0, t+2.4/v-12 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{2.4-v 13 π/4, -0.5}, Max[0, t+2.4/v-13 π/4]]}, 
{Darker[Gray], Thickness[0.0013], Line[{{-2.4, +0.5}, {+2.4, +0.5}}]}, 
{Darker[Gray], Thickness[0.0013], Line[{{-2.4, -0.5}, {+2.4, -0.5}}]}}, 
Frame->True, PlotRange->{{-2.4, 2.4}, {-1.35, 1.35}}, 
ImageSize->3880, FrameTicks->None, ImagePadding->0]]], {t, -2.4/v, 2.4/v, 1/250}]
Quit[]




(* CIRCULAR *)

v=1/2; s[text_]:=Style[text, FontFamily->"Consolas", FontSize->72];
Do[Export["Y:\\export\\se"<>ToString[t 250]<>".png", Rasterize[Graphics[{
{PointSize[0.006], Red, Thickness[0.0009], Point[{{+Sin[v t], +Cos[v t]}}]}, 
{PointSize[0.006], Blue, Thickness[0.0009], Point[{{-Sin[v t], -Cos[v t]}}]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 0 π/4], +Cos[v 0 π/4]}, Max[0, t-0 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 1 π/4], +Cos[v 1 π/4]}, Max[0, t-1 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 2 π/4], +Cos[v 2 π/4]}, Max[0, t-2 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 3 π/4], +Cos[v 3 π/4]}, Max[0, t-3 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 4 π/4], +Cos[v 4 π/4]}, Max[0, t-4 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 5 π/4], +Cos[v 5 π/4]}, Max[0, t-5 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 6 π/4], +Cos[v 6 π/4]}, Max[0, t-6 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 7 π/4], +Cos[v 7 π/4]}, Max[0, t-7 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 8 π/4], +Cos[v 8 π/4]}, Max[0, t-8 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 9 π/4], +Cos[v 9 π/4]}, Max[0, t-9 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 10 π/4], +Cos[v 10 π/4]}, Max[0, t-10 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 11 π/4], +Cos[v 11 π/4]}, Max[0, t-11 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 12 π/4], +Cos[v 12 π/4]}, Max[0, t-12 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 13 π/4], +Cos[v 13 π/4]}, Max[0, t-13 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 14 π/4], +Cos[v 14 π/4]}, Max[0, t-14 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 15 π/4], +Cos[v 15 π/4]}, Max[0, t-15 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 16 π/4], +Cos[v 16 π/4]}, Max[0, t-16 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 17 π/4], +Cos[v 17 π/4]}, Max[0, t-17 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 18 π/4], +Cos[v 18 π/4]}, Max[0, t-18 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 19 π/4], +Cos[v 19 π/4]}, Max[0, t-19 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 20 π/4], +Cos[v 20 π/4]}, Max[0, t-20 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 21 π/4], +Cos[v 21 π/4]}, Max[0, t-21 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 22 π/4], +Cos[v 22 π/4]}, Max[0, t-22 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 23 π/4], +Cos[v 23 π/4]}, Max[0, t-23 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 24 π/4], +Cos[v 24 π/4]}, Max[0, t-24 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 25 π/4], +Cos[v 25 π/4]}, Max[0, t-25 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 26 π/4], +Cos[v 26 π/4]}, Max[0, t-26 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 27 π/4], +Cos[v 27 π/4]}, Max[0, t-27 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 28 π/4], +Cos[v 28 π/4]}, Max[0, t-28 π/4]]}, 
{Red, Thickness[0.0009], Circle[{+Sin[v 29 π/4], +Cos[v 29 π/4]}, Max[0, t-29 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 0 π/4], -Cos[v 0 π/4]}, Max[0, t-0 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 1 π/4], -Cos[v 1 π/4]}, Max[0, t-1 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 2 π/4], -Cos[v 2 π/4]}, Max[0, t-2 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 3 π/4], -Cos[v 3 π/4]}, Max[0, t-3 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 4 π/4], -Cos[v 4 π/4]}, Max[0, t-4 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 5 π/4], -Cos[v 5 π/4]}, Max[0, t-5 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 6 π/4], -Cos[v 6 π/4]}, Max[0, t-6 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 7 π/4], -Cos[v 7 π/4]}, Max[0, t-7 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 8 π/4], -Cos[v 8 π/4]}, Max[0, t-8 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 9 π/4], -Cos[v 9 π/4]}, Max[0, t-9 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 10 π/4], -Cos[v 10 π/4]}, Max[0, t-10 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 11 π/4], -Cos[v 11 π/4]}, Max[0, t-11 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 12 π/4], -Cos[v 12 π/4]}, Max[0, t-12 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 13 π/4], -Cos[v 13 π/4]}, Max[0, t-13 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 14 π/4], -Cos[v 14 π/4]}, Max[0, t-14 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 15 π/4], -Cos[v 15 π/4]}, Max[0, t-15 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 16 π/4], -Cos[v 16 π/4]}, Max[0, t-16 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 17 π/4], -Cos[v 17 π/4]}, Max[0, t-17 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 18 π/4], -Cos[v 18 π/4]}, Max[0, t-18 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 19 π/4], -Cos[v 19 π/4]}, Max[0, t-19 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 20 π/4], -Cos[v 20 π/4]}, Max[0, t-20 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 21 π/4], -Cos[v 21 π/4]}, Max[0, t-21 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 22 π/4], -Cos[v 22 π/4]}, Max[0, t-22 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 23 π/4], -Cos[v 23 π/4]}, Max[0, t-23 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 24 π/4], -Cos[v 24 π/4]}, Max[0, t-24 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 25 π/4], -Cos[v 25 π/4]}, Max[0, t-25 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 26 π/4], -Cos[v 26 π/4]}, Max[0, t-26 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 27 π/4], -Cos[v 27 π/4]}, Max[0, t-27 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 28 π/4], -Cos[v 28 π/4]}, Max[0, t-28 π/4]]}, 
{Blue, Thickness[0.0009], Circle[{-Sin[v 29 π/4], -Cos[v 29 π/4]}, Max[0, t-29 π/4]]}, 
{Darker[Gray], Thickness[0.0013], Circle[]}}, 
Frame->True, PlotRange->{{-2.4, 2.4}, {-1.35, 1.35}}, 
ImageSize->3880, FrameTicks->None, ImagePadding->0]]], {t, 0, 4π, 1/250}]
Quit[]




(* MATHEMATICA SYNTAX *) (* YUKTEREZ.NET *)