A_1 = (1.44, 0.76)
B_1 = (3.94, 4.12)
A = (1.66, -0.86)
c = Ellipse(A_1, B_1, A)
O = Center(c)
f = Segment(O, A)
P = Point(f)
C = Point(c)
D = Point(c)
g = Segment(C, D)
E = Point(c)
B = Point(c)
h = Segment(E, B)
F = Midpoint(C, D)
G = Midpoint(E, B)
H = Point(c)
i = Line(H, g)
j = Line(H, h)
I = Intersect(c, i, 2)
J = Intersect(c, j, 2)
k = Segment(I, H)
l = Segment(H, J)
K = Midpoint(k)
L = Midpoint(l)
m = Segment(F, O)
n = Segment(O, G)
p = Line(D, E)
q = Line(A, B)
r = Line(E, A)
s = Line(C, B)
M = Intersect(r, s)
N = Intersect(p, q)
t = Line(M, N)
a = Line(C, D)
Q = Intersect(t, a)
b = Line(Q, A)
d = Line(P, b)
F', G' = Intersect(c, d)
e = Tangent(F', c)
f_1 = Tangent(G', c)
Focus = Intersect(e, f_1)
S = Intersect(e, f_1)
g_1 = Line(D, P)
h_1 = Line(B, P)
R = Intersect(c, g_1, 2)
T = Intersect(c, h_1, 2)
U = Intersect(c, h_1, 2)
i_1 = Line(D, T)
j_1 = Line(B, R)
k_1 = Line(T, R)
l_1 = Line(B, D)
V = Intersect(i_1, j_1)
W = Intersect(k_1, l_1)
Focal_ plane = Line(Focus, V)
c_1 = Semicircle(W, V)
Principal_ Axis = OrthogonalLine(Focus, Focal_ plane)
Optical_ Center = Intersect(c_1, Principal_ Axis, 1)
Lens = Line(Optical_ Center, Focal_ plane)