Objectif = (0, 0)
f1 = 4 (slider from 0 to 20, step 1)
F1: Objectif + (-f1, 0)
F1': Objectif + (f1, 0)
f2 = 4.6 (slider from 0 to 20, step 0.1)
Delta = 4 (slider from 0 to 10, step 0.1)
Occulaire: Objectif + (f1 + Delta + f2, 0)
F2: Occulaire - (f2, 0)
F2': Occulaire + (f2, 0)
b = Line(Objectif, Occulaire)
d = OrthogonalLine(Objectif, b)
e = OrthogonalLine(Occulaire, b)
A = Point(b)
B: A + (0, 2)
a = Segment(A, B)
c = Line(B, b)
C = Intersect(d, c)
f = Segment(B, C)
g = Ray(C, F1')
h = Ray(B, Objectif)
B' = Intersect(g, h)
i = OrthogonalLine(B', b)
A' = Intersect(b, i)
j = Segment(B', A')
D = Intersect(e, h)
E = Intersect(e, g)
k = Segment(C, E)
l = Segment(B, D)
n = Line(B', b)
F = Intersect(e, n)
m = Line(F, F2')
p = Line(B', Occulaire)
G = Intersect(m, p)
H = (34.49030597174443, 12.552440948126922)
q = OrthogonalLine(H, b)
r = Line(G, D)
s = Line(E, G)
I = Intersect(q, r)
J = Intersect(q, s)
t = Segment(D, I)
a_1 = Ray(D, I)
b_1 = Ray(E, J)
c_1 = Line(B, F1)
K = Intersect(d, c_1)
d_1 = Line(K, B')
L = Intersect(e, d_1)
e_1 = Segment(B, K)
f_1 = Segment(K, L)
g_1 = Ray(L, F2')
Cristallin = Point(b)
h_1 = OrthogonalLine(Cristallin, b)
Retine: Cristallin + (5, 0)
i_1 = OrthogonalLine(Retine, b)
j_1 = Line(Cristallin, b_1)
M = Intersect(h_1, b_1)
N = Intersect(i_1, j_1)
k_1 = Segment(M, N)
l_1 = Segment(E, M)
m_1 = Line(Cristallin, t)
O = Intersect(i_1, m_1)
P = Intersect(h_1, t)
n_1 = Segment(P, O)
p_1 = Segment(D, P)
q_1 = Line(Cristallin, g_1)
Q = Intersect(i_1, q_1)
R = Intersect(h_1, g_1)
r_1 = Segment(R, Q)
s_1 = Segment(L, R)