Jälg

w = 6 (slider from -5 to 10, step 1)
F = Point(yAxis)
E: (w, 1)
f = Segment(F, E)
B = Intersect(xAxis, yAxis)
A = Point(f)
D: (w, 0)
g = OrthogonalLine(A, f)
G = Intersect(g, xAxis)
d = Circle(A, G)
C = Point(d)
h = Segment(A, C)
H = Point(yAxis)
i = OrthogonalLine(H, g)
J: ((2 * w), 1)
A1: A + (π, 0)
c = Circle(A1, 1)
C1: C + (π, 0)
j = Segment(A1, C1)
A2: A + ((2 * π), 0)
C2: C + ((2 * π), 0)
e = Circle(A2, 1)
k = Segment(A2, C2)
m = Line(A, C)
I = Intersect(d, m, 2)
n = OrthogonalLine(A, m)
K = Intersect(d, n, 2)
L = Intersect(d, n, 1)
p, q = AngularBisector(m, n)
M = Intersect(d, p, 1)
N = Intersect(d, p, 2)
O = Intersect(d, q, 2)
P = Intersect(d, q, 1)
l = Segment(K, L)
r = Segment(O, P)
s = Segment(M, N)
a = Segment(A, I)
I1: I + (π, 0)
J1: J + (π, 0)
K1: K + (π, 0)
L1: L + (π, 0)
M1: M + (π, 0)
N1: N + (π, 0)
O1: O + (π, 0)
P1: P + (π, 0)
t = Segment(N1, M1)
b = Segment(K1, L1)
f_1 = Segment(O1, P1)
g_1 = Segment(I1, A1)
I2: I + ((2 * π), 0)
P2: P + ((2 * π), 0)
O2: O + ((2 * π), 0)
N2: N + ((2 * π), 0)
M2: M + ((2 * π), 0)
L2: L + ((2 * π), 0)
J2: J + ((2 * π), 0)
K2: K + ((2 * π), 0)
h_1 = Segment(K2, L2)
i_1 = Segment(N2, M2)
j_1 = Segment(O2, P2)
k_1 = Segment(I2, A2)
o = true
Q: ((2 * x(A)), 2)
Laud, q_1, l_1, m_1, n_1 = Polygon(Q, Q + ((-2 * π), 0), Q + ((-2 * π), 0.5), Q + (0, 0.5))
R = Intersect(d, i, 1)
u(y) = y ≤ 0
p_1 = OrthogonalLine(J, i)
S = Intersect(u, ((-(x(p_1) / y(p_1))) * x) - z(p_1) / y(p_1), (12.57, 0))
T = Intersect(p_1, xAxis)
r_1 = Ray(T, J)
U: (0, 0)
s_1 = Ray(U, F)
t_1 = Line(U, T)