K = (6, 6)
J = (-5.954365210532526, -3.242262953215804)
f = Segment(J, K)
B = (-3, 4)
C = (-3, -4)
D = (3, -4)
E = (5, 0)
F = (3, 4)
c = Conic(B, C, D, E, F)
A = (1, 0)
d = Circle(A, 1)
A_1: (x(A) + 1, y(A))
n = 16 (slider from 1 to 30, step 1)
myPoints = Sequence(Rotate[A_1, ((360°) / n * k), A], k, 0, n - 1)
intersectConic1 = Sequence(Intersect[c, Ray[A, myPoints(k)]], k, 1, n)
tangents1 = Sequence(Tangent[intersectConic1(k), c], k, 1, n)
G, H = Focus(c)
I = Mirror(intersectConic1(1), tangents1(1))
Rays2 = Sequence(Ray[intersectConic1(k), Mirror[Mirror[A, tangents1(k)], intersectConic1(k)]], k, 1, n)
Rays2Points = Sequence(Mirror[Mirror[A, tangents1(k)], intersectConic1(k)], k, 1, n)
intersectConic2 = Sequence(Intersect[c, Rays2(k)], k, 1, n)
tangents2 = Sequence(Tangent[intersectConic2(k), c], k, 1, n)
Rays3 = Sequence(Ray[intersectConic2(k), Mirror[Mirror[intersectConic1(k), tangents2(k)], intersectConic2(k)]], k, 1, n)
intersectConic3 = Sequence(Intersect[c, Rays3(k)], k, 1, n)
l1 = Sequence(PolyLine[A, intersectConic1(k), intersectConic2(k), intersectConic3(k)], k, 1, n)
m1 = Sequence({Distance[A, intersectConic1(k)], Distance[intersectConic1(k), intersectConic2(k)], Distance[intersectConic2(k), intersectConic3(k)]}, k, 1, n)
t = 1 (slider from 0 to 1, step 0.01)
L = Point(l1(1), t)