t = 0 (slider from 0 to 2159, step 1)
S: (2, 0)
f = Line(S, xAxis)
β: ((2 * t))°
f' = Rotate(f, β, S)
F = Point(xAxis)
F' = Mirror(F, yAxis)
B = Point(yAxis)
c = Ellipse(F, F', B)
C, D = Intersect(c, f')
r1 = Segment(S, D)
g = Tangent(D, c)
f'' = Mirror(f', g)
E = Intersect(c, f'', 2)
l1: 1 + floor(t / 180)
l2: l1 - r1
r2 = Segment(D, E)
d = Circle(D, l2)
G = Intersect(d, r2, 1)
e = Circle(D, (-l2))
A = Intersect(e, r1)