A = (3, 3)
B = (6, 3)
C = (5, 4)
polígono1, c, a, b = Polygon(A, B, C)
A_1 = (5, 2)
B_1 = (8, 2)
C_1 = (7, 3)
D = (5, 4)
E = (5, 1)
d = Line(D, E)
F = Mirror(A_1, d)
G = Mirror(B_1, d)
H = Mirror(C_1, d)
I = (7.61119091384229, 1.4067012420748692)
J = (1, 3)
K = (5, 3)
e = Line(J, K)
F' = Mirror(F, e)
G' = Mirror(G, e)
H' = Mirror(H, e)
polígono2', h', f', g' = Polygon(F', G', H')
Textopolígono1: "Área de  " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + polígono1
L = Intersect(f', h')
M = Intersect(b, c)
N = Intersect(a, c)
O = Intersect(b, a)
polígono2, l, m, n, o = Polygon(L, M, N, O)
P = Point(c)
polígono3, n_1, o_1, p = Polygon(O, P, N)
Q = (2, 3)
polígono4, m_1, l_1, q = Polygon(L, Q, M)
polígono5, l_2, o_2, p_1, q_1 = Polygon(L, O, P, Q)
Textopolígono2: "Área de  " + (Name[L]) + "" + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + " = " + polígono2 + ""