F = (-7.1000000000000005, 2.52)
G = (2, 3)
a = 5.4 (slider from 1 to 10, step 0.2)
e = Ellipse(F, G, a)
A = Point(e)
b = Tangent(A, e)
B = Point(b)
c = OrthogonalLine(B, b)
d, e_1 = Tangent(c, e)
C = Intersect(e, e_1)
D = Intersect(e, d)
f, g = Tangent(b, e)
M = Midpoint(F, G)
H = Intersect(g, d)
h = Circle(M, H)
u = Vector(F, A)
v = Vector(G, A)
I = Intersect(e, g)
i = AngularBisector(F, A, G)
j = Line(F, G)
E, J = Intersect(e, j)
k = Segment(E, J)
l = OrthogonalLine(M, k)
K, L = Intersect(e, l)
m = Segment(L, K)
O, P = Intersect(h, d)
R, S = Intersect(h, b)