t = 0.7696902001294994 (slider from 0 to π, step π / 1000)
t_1: (3 / 2 * π) - t
Q: ((sqrt((2 * cos((2 * t_1)))) * cos(t_1)), (sqrt((2 * cos((2 * t_1)))) * sin(t_1)))
lrechts = CurveCartesian((sqrt((2 * cos((2 * t)))) * cos(t)), (sqrt((2 * cos((2 * t)))) * sin(t)), t, ((-π)) / 4, (5 / 4 * π))
P1: ((sqrt((2 * cos((2 * t)))) * cos(t)), (sqrt((2 * cos((2 * t)))) * sin(t)))
P: ((sqrt((2 * cos((2 * t)))) * cos(t)), (sqrt((2 * cos((2 * t)))) * sin(t)))
A_1 = If(0 < t < π / 4, P)
A = Point(xAxis)
c = Circle(A, sqrt(2))
C = Intersect(c, xAxis, 1)
D = Intersect(c, xAxis, 2)
d = Semicircle(C, D)
B = If(π / 4 < t < π / 2, Q)
G = Point(xAxis)
k = Circle(B, 1)
H = Intersect(k, d)
H' = Mirror(H, B)
i = Segment(A, H)
j = Segment(H, H')
l = Segment(H', G)
e = Circle(G, sqrt(2))
E, F = Intersect(e, xAxis)
f = Semicircle(F, E)
g = Circle(A_1, 1)
I = Intersect(g, f)
I' = Mirror(I, A_1)
h = Segment(A, I')
m = Segment(I', I)
n = Segment(I, G)
R = If(π / 2 < t < (3 / 4 * π), Q)
p = Circle(R, 1)
q = Semicircle(D, C)
J = Intersect(q, p)
r = Segment(A, J)
J' = Mirror(J, R)
s = Segment(J, J')
a = Segment(J', G)
t_2: t + π
S: ((sqrt((2 * cos((2 * t_2)))) * cos(t_2)), (sqrt((2 * cos((2 * t_2)))) * sin(t_2)))
T = If((3 / 4 * π) < t < π, S)
d_1 = Circle(T, 1)
c_1 = Semicircle(E, F)
K = Intersect(c_1, d_1)
b = Segment(G, K)
K' = Mirror(K, T)
f_1 = Segment(K, K')
g_1 = Segment(K', A)
r_1: 0.05
e_1 = Circle(A, r_1)
h_1 = Circle(G, r_1)
k_1 = Circle(J, r_1)
p_1 = Circle(R, r_1)
q_1 = Circle(J', r_1)
s_1 = Circle(J', 3.4917478708447107)
L = Point(s_1)
c_2 = Circle(I', r_1)
d_2 = Circle(A_1, r_1)
e_2 = Circle(I, r_1)
f_2 = Circle(H, r_1)
g_2 = Circle(B, r_1)
h_2 = Circle(H', r_1)
k_2 = Circle(H', 2.635999993043381)
p_2 = Circle(K', r_1)
q_2 = Circle(T, r - 1)
r_2 = Circle(T, r_1)
s_2 = Circle(K, r_1)