t = 0 (slider from 0 to 864, step 1)
S: (2, 0)
f = Line(S, xAxis)
β: ((5 * 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 / 72)
L2: L1 - r1
r2 = Segment(D, E)
d = Circle(D, L2)
G = Intersect(d, r2, 1)
e = Circle(D, (-L2))
A = Intersect(e, r1)
r3 = Segment(D, G)