Author: Daniel Mentrard

Denom = 5 (slider from 1 to 10, step 1)
c = 10
longitud = 9 (slider from 0 to 14, step 1)
m = 9
n = 8
o = 7
s = 6
u = 5
v = 4
w = 3
z = 2
b_1 = 1
A = (2.4829206370351686, 2.092255342416475)
a = OrthogonalLine(A, yAxis)
B = Point(a)
b = Ray(A, B)
C = Point(b)
d = Segment(A, C)
e = 10
g = Circle(A, longitud + 0.02)
D = Intersect(g, d)
h = OrthogonalLine(A, d)
j = OrthogonalLine(D, d)
E = Point(h)
k = Ray(A, E)
altura = 7.7 (slider from 0 to 10, step 0.1)
p = Circle(A, altura)
F = Intersect(p, k)
q = OrthogonalLine(F, k)
G = Intersect(q, j)
P, f_1, g_1, d_1, a_1 = Polygon(F, G, D, A)
i: longitud / Denom
r = Circle(A, i)
H = Intersect(r, d_1)
l: longitud / Denom
c_1: longitud / Denom
h_1: longitud / Denom
i_1: longitud / Denom
j_1: longitud / Denom
l_1: longitud / Denom
m_1: longitud / Denom
n_1: longitud / Denom
o_1: longitud / Denom
t: (longitud / Denom * 2)
e_1 = Circle(A, t)
k_1: (longitud / Denom * 3)
p_1 = Circle(A, k_1)
q_1: (longitud / Denom * 4)
r_1 = Circle(A, q_1)
s_1: (longitud / Denom * 5)
t_1 = Circle(A, s_1)
u_1: (longitud / Denom * 6)
c_2 = Circle(A, u_1)
v_1: (longitud / Denom * 7)
d_2 = Circle(A, v_1)
w_1: (longitud / Denom * 8)
e_2 = Circle(A, w_1)
z_1: (longitud / Denom * 9)
f_2 = Circle(A, z_1)
I = Intersect(e_1, d_1)
J = Intersect(p_1, d_1)
K = Intersect(r_1, d_1)
L = Intersect(t_1, d_1)
M = Intersect(c_2, d_1)
N = Intersect(d_2, d_1)
O = Intersect(e_2, d_1)
Q = Intersect(f_2, d_1)
a_2 = OrthogonalLine(Q, f_1)
b_2 = OrthogonalLine(O, f_1)
g_2 = OrthogonalLine(N, f_1)
h_2 = OrthogonalLine(M, f_1)
i_2 = OrthogonalLine(L, f_1)
j_2 = OrthogonalLine(K, f_1)
k_2 = OrthogonalLine(J, f_1)
l_2 = OrthogonalLine(I, d_1)
m_2 = OrthogonalLine(H, f_1)
R = Intersect(m_2, f_1)
S = Intersect(l_2, f_1)
T = Intersect(k_2, f_1)
U = Intersect(j_2, f_1)
V = Intersect(i_2, f_1)
W = Intersect(h_2, f_1)
Y = Intersect(g_2, f_1)
Z = Intersect(b_2, f_1)
A_1 = Intersect(a_2, f_1)
n_2 = Segment(Q, A_1)
p_2 = Segment(O, Z)
q_2 = Segment(Y, N)
r_2 = Segment(M, W)
s_2 = Segment(V, L)
t_2 = Segment(K, U)
a_3 = Segment(J, T)
b_3 = Segment(I, S)
c_3 = Segment(H, R)
Numer = 3 (slider from 0 to 10, step 1)
u_2: (longitud / Denom * Numer)
d_3 = Circle(A, u_2)
B_1, D_1 = Intersect(d_3, d_1)
e_3 = OrthogonalLine(B_1, f_1)
C_1 = Intersect(e_3, f_1)
P_1, a_4, b_4, c_4, f_3 = Polygon(A, B_1, C_1, F)
g_3 = OrthogonalLine(D, q)
E_1 = Intersect(g_3, q)
h_3 = Segment(D, E_1)