O = Intersect(xAxis, yAxis)
B = Point(xAxis)
a = Line(O, B)
U = Point(a)
K_v = Semicircle(O, B)
K_L = Semicircle(O, U)
K_D = Semicircle(U, B)
D = Point(a)
K_i = Circle(O, D)
B' = Mirror(B, K_i)
U' = Mirror(U, K_i)
b = OrthogonalLine(B', a)
g = OrthogonalLine(U', a)
h = LineBisector(B', U')
k = Semicircle(B', U')
S'_D = Center(k)
F = Intersect(k, h, 1.0)
S'_1 = Mirror(S'_D, F)
F'_1 = Mirror(F, S'_1)
S'_2 = Mirror(S'_1, F'_1)
F'' = Mirror(F'_1, S'_2)
S'_3 = Mirror(S'_2, F'')
F'''_1 = Mirror(F'', S'_3)
G = Mirror(S'_3, F'''_1)
H = Mirror(F'''_1, G)
G' = Mirror(G, H)
H'_1 = Mirror(H, G')
G'' = Mirror(G', H'_1)
H'' = Mirror(H'_1, G'')
G''' = Mirror(G'', H'')
p = Circle(S'_1, F'_1)
q = Circle(S'_2, F'')
r = Circle(S'_3, F'''_1)
s = Circle(G, H)
t = Circle(G', H'_1)
c_1 = Circle(G'', H'')
H'''_1 = Mirror(H'', G''')
d_1 = Circle(G''', H'''_1)
I = Intersect(p, b, 1.0)
J = Intersect(q, b, 1.0)
K = Intersect(r, b, 1.0)
L = Intersect(s, b, 1.0)
M = Intersect(t, b, 1.0)
N = Intersect(c_1, b, 1.0)
O_1 = Intersect(d_1, b, 1.0)
F' = Mirror(F, K_i)
I' = Mirror(I, K_i)
P = Mirror(F'_1, K_i)
J' = Mirror(J, K_i)
F''' = Mirror(F'', K_i)
K' = Mirror(K, K_i)
Q = Mirror(F'''_1, K_i)
L' = Mirror(L, K_i)
H' = Mirror(H, K_i)
M' = Mirror(M, K_i)
R = Mirror(H'_1, K_i)
N' = Mirror(N, K_i)
H''' = Mirror(H'', K_i)
O' = Mirror(O_1, K_i)
S = Mirror(H'''_1, K_i)
e_1 = Circle(F', P, I')
f_1 = Circle(P, J', F''')
g_1 = Circle(F''', K', Q)
h_2 = Circle(Q, L', H')
k_1 = Circle(H', M', R)
p_1 = Circle(R, N', H''')
q_1 = Circle(H''', O', S)
S_1 = Center(e_1)
S_2 = Center(f_1)
S_3 = Center(g_1)
i = Segment(O, S'_1)
j = Segment(S'_1, S'_D)
l = Segment(S'_D, O)
m = OrthogonalLine(S_1, l)
n = OrthogonalLine(S_1, l)
A_1 = Intersect(n, l)
α = Angle(S_1, A_1, O)
h_1 = Segment(S_1, A_1)
b_1 = Segment(O, S'_D)
i_1 = Segment(S'_1, S'_D)
j_1, l_1 = Tangent(O, p)
T'_1 = Intersect(p, l_1, 1.0)
T_1 = Intersect(e_1, l_1)
r_1 = Segment(S_1, T_1)
R_i = Segment(S'_1, T'_1)
r_2 = Segment(T'_1, O)
β = Angle(O, T'_1, S'_1)
γ = Angle(r_2, r_1)
δ = Angle(S'_1, S'_D, O)
razdaljaA1T = Distance(T_1, S_1)
TekstA1T: "\overline{" + (Name[T_1]) + (Name[S_1]) + "} \, = \, " + razdaljaA1T
B_1 = Intersect(K_L, e_1)
R_1 = Segment(U', S'_D)
S_L = Center(K_L)
S_D = Center(K_D)
R_L = Segment(S_L, U)
R_D = Segment(S_D, D)
A = Intersect(p, b, 1.0)
C = Intersect(p, g, 1.0)
d_2 = Ray(U', C)
E = Intersect(p, d_2, 1.0)
c = OrthogonalLine(S'_1, d_2)
T = Intersect(p, c, 2.0)
e = OrthogonalLine(T, l)
f = Ray(B', T)
d = 7 (slider from 0 to 7, step 1)