A = Point(yAxis)
B = Point(yAxis)
C = (8, 6)
D = Point(xAxis)
a = Segment(B, C)
b = Segment(C, D)
c = Segment(D, A)
d = Segment(A, B)
M = Point(d)
distanceAM = Distance(A, M)
TexteAM: Name[A] + (Name[M]) + " \, = \, " + distanceAM
N: (distanceAM, 6.0)
R: (8.0, 6.0 - distanceAM)
S: (8.0 - distanceAM, 0.0)
e = Segment(M, N)
f = Segment(N, R)
g = Segment(R, S)
h = Segment(S, M)
poly1, m, n, r, s = Polygon(M, N, R, S)
Textepoly1: "Aire " + (Name[M]) + (Name[N]) + (Name[R]) + (Name[S]) + " = " + poly1
T: (distanceAM, poly1)
distanceME: distanceAM
k = Circle(M, Segment[A, M])
E = Intersect(k, e)
p = Circle(N, Segment[B, N])
F = Intersect(p, f)
i = Segment(E, F)
q = Circle(R, Segment[C, R])
G = Intersect(q, g)
t = Circle(S, Segment[D, S])
H = Intersect(t, h)
j = Segment(F, G)
l = Segment(G, H)
a_1 = Segment(H, E)
c_1 = Circle(E, Segment[M, E])
d_1 = Circle(F, Segment[N, F])
e_1 = Circle(G, Segment[R, G])
f_1 = Circle(H, Segment[S, H])
I = Intersect(c_1, i)
J = Intersect(d_1, j)
K = Intersect(e_1, l)
L = Intersect(f_1, a_1)
b_1 = Segment(I, J)
g_1 = Segment(J, K)
h_1 = Segment(K, L)
i_1 = Segment(L, I)
k_1 = Circle(I, Segment[E, I])
p_1 = Circle(J, Segment[F, J])
q_1 = Circle(K, Segment[G, K])
r_1 = Circle(L, Segment[H, L])
O = Intersect(k_1, b_1)
P = Intersect(p_1, g_1)
Q = Intersect(q_1, h_1)
U = Intersect(r_1, i_1)
j_1 = Segment(O, P)
l_1 = Segment(P, Q)
m_1 = Segment(Q, U)
n_1 = Segment(U, O)
poly2, p_2, q_2, u, o = Polygon(P, Q, U, O)
poly3, j_2, k_2, l_2, i_2 = Polygon(J, K, L, I)
poly4, f_2, g_2, h_2, e_2 = Polygon(F, G, H, E)
poly5, n_2, r_2, s_1, m_2 = Polygon(N, R, S, M)
poly6, b_2, c_2, d_2, a_2 = Polygon(B, C, D, A)
t_1 = Circle(O, Segment[I, O])
s_2 = Circle(P, Segment[J, P])
t_2 = Circle(Q, Segment[K, Q])
c_3 = Circle(U, Segment[L, U])
V = Intersect(t_1, o)
W = Intersect(s_2, p_2)
Z = Intersect(t_2, q_2)
A_1 = Intersect(c_3, n_1)
a_3 = Segment(V, W)
b_3 = Segment(W, Z)
d_3 = Segment(Z, A_1)
e_3 = Segment(A_1, V)
poly7, v, w, z, a_4 = Polygon(V, W, Z, A_1)
f_3 = Circle(V, Segment[O, V])
g_3 = Circle(W, Segment[P, W])
h_3 = Circle(Z, Segment[Q, Z])
k_3 = Circle(A_1, Segment[U, A_1])
B_1 = Intersect(f_3, v)
C_1 = Intersect(g_3, w)
D_1 = Intersect(h_3, z)
E_1 = Intersect(k_3, a_4)
i_3 = Segment(B_1, C_1)
j_3 = Segment(C_1, D_1)
l_3 = Segment(D_1, E_1)
m_3 = Segment(E_1, B_1)
poly8, b_4, c_4, d_4, e_4 = Polygon(B_1, C_1, D_1, E_1)