R_1 = (0, 30000)
S_1 = (30000, 30000)
e_2 = Ray(R_1, S_1)
d = 2280 (slider from 0 to 10000, step 10)
S_2 = Intersect(xAxis, yAxis)
λ = 650 (slider from 380 to 780, step 1)
d_2 = Circle(S_2, d / 2)
A = Intersect(d_2, yAxis, 1)
l_1 = 12900 (slider from 5000 to 15000, step 1)
B = Point(Circle[A, l_1])
a = Segment(A, B)
C = Point(Circle[A, l_1 + 1 λ])
b = Segment(A, C)
D = Point(Circle[A, l_1 + 2 λ])
c = Segment(A, D)
E = Point(Circle[A, l_1 + 3 λ])
d_3 = Segment(A, E)
F = Point(Circle[A, l_1 + 4 λ])
e = Segment(A, F)
G = Point(Circle[A, l_1 + 5 λ])
f = Segment(A, G)
H = Point(Circle[A, l_1 + 6 λ])
g = Segment(A, H)
I = Intersect(d_2, yAxis, 2)
h = Segment(A, I)
J = Point(Circle[I, l_1 + 0 λ])
i = Segment(I, J)
K = Point(Circle[I, l_1 + 1 λ])
j = Segment(I, K)
L = Point(Circle[I, l_1 + 2 λ])
k = Segment(I, L)
M = Point(Circle[I, l_1 + 3 λ])
l = Segment(I, M)
N = Point(Circle[I, l_1 + 4 λ])
m = Segment(I, N)
O = Point(Circle[I, l_1 + 5 λ])
n = Segment(I, O)
P = Point(Circle[I, l_1 + 6 λ])
p = Segment(I, P)
Q = Point(yAxis)
q = CircleArc(A, B, Q)
r = CircleArc(A, C, Q)
s = CircleArc(A, D, Q)
t = CircleArc(A, E, Q)
c_1 = CircleArc(A, F, Q)
d_1 = CircleArc(A, G, Q)
e_1 = CircleArc(A, H, Q)
f_1 = CircleArc(I, J, Q)
g_1 = CircleArc(I, K, Q)
h_1 = CircleArc(I, L, Q)
k_1 = CircleArc(I, M, Q)
p_1 = CircleArc(I, N, Q)
q_1 = CircleArc(I, O, Q)
r_1 = CircleArc(I, P, Q)
R = Point(e_2)
S = Intersect(q, q_1, 1)
T = Intersect(r, r_1, 1)
U = Intersect(q, p_1, 1)
V = Intersect(s, r_1, 1)
W = Intersect(q, k_1, 1)
Z = Intersect(t, r_1, 1)
A_1 = Intersect(c_1, r_1, 1)
B_1 = Intersect(q, h_1, 1)
C_1 = Intersect(e_1, r_1)
D_1 = Intersect(e_1, q_1, 1)
E_1 = Intersect(d_1, r_1, 1)
F_1 = Intersect(e_1, p_1, 1)
G_1 = Intersect(e_1, k_1, 1)
H_1 = Intersect(e_1, h_1, 1)
I_1 = Intersect(e_1, g_1, 1)
J_1 = Intersect(e_1, f_1, 1)
K_1 = Intersect(d_1, f_1, 1)
L_1 = Intersect(c_1, f_1, 1)
M_1 = Intersect(t, f_1, 1)
N_1 = Intersect(s, f_1, 1)
O_1 = Intersect(r, f_1, 1)
P_1 = Intersect(q, g_1, 1)
Q_1, W_1 = Intersect(f_1, q)
a_1 = Ray(S, T)
i_1 = Ray(U, V)
j_1 = Ray(W, Z)
m_1 = Ray(B_1, A_1)
n_1 = Ray(P_1, E_1)
s_1 = Ray(O_1, D_1)
t_1 = Ray(N_1, F_1)
a_2 = Ray(M_1, G_1)
b_2 = Ray(L_1, H_1)
c_2 = Ray(K_1, I_1)
Z_1 = Intersect(g_1, d_1)
A_2 = Intersect(c_1, g_1, 1)
B_2 = Intersect(d_1, h_1, 1)
C_2 = Intersect(t, g_1, 1)
D_2 = Intersect(c_1, h_1, 1)
E_2 = Intersect(d_1, k_1, 1)
F_2 = Intersect(s, g_1, 1)
G_2 = Intersect(t, h_1, 1)
H_2 = Intersect(c_1, k_1, 1)
I_2 = Intersect(d_1, p_1, 1)
J_2 = Intersect(r, g_1, 1)
K_2 = Intersect(s, h_1, 1)
L_2 = Intersect(t, k_1, 1)
M_2 = Intersect(c_1, p_1, 1)
N_2 = Intersect(d_1, q_1, 1)
O_2 = Intersect(r, h_1, 1)
P_2 = Intersect(s, k_1, 1)
Q_2 = Intersect(t, p_1, 1)
R_2 = Intersect(c_1, q_1, 1)
T_2 = Intersect(r, k_1, 1)
U_2 = Intersect(s, p_1, 1)
V_2 = Intersect(t, q_1, 1)
W_2 = Intersect(r, p_1, 1)
Z_2 = Intersect(s, q_1, 1)
A_3 = Intersect(r, q_1, 1)
b_1 = OrthogonalLine(R, e_2)
f_2 = Ray(Q_1, C_1)
T_1 = Intersect(a_1, b_1)
U_1 = Intersect(i_1, b_1)
V_1 = Intersect(j_1, b_1)
B_3 = Intersect(m_1, b_1)
C_3 = Intersect(n_1, b_1)
D_3 = Intersect(b_1, f_2)
E_3 = Intersect(s_1, b_1)
F_3 = Intersect(t_1, b_1)
G_3 = Intersect(a_2, b_1)
H_3 = Intersect(b_2, b_1)
I_3 = Intersect(c_2, b_1)
φ = 40.900000000000006 (slider from -90 to 90, step 0.1)