A = (0.12, -2.98)
B = (8.26, 5.1)
C = (14.84, -4.88)
poly1, c, a, b = Polygon(A, B, C)
Pointpoly1_1 = PointIn(poly1)
d = Circle(A, c / 3)
F = Intersect(d, c, 1)
e = Circle(F, c / 3)
E = Intersect(e, c, 2)
f = Circle(B, a / 3)
H = Intersect(f, a, 1)
g = Circle(H, a / 3)
G = Intersect(g, a, 2)
h = Circle(C, b / 3)
J = Intersect(h, b, 1)
k = Circle(J, b / 3)
I = Intersect(k, b, 2)
i = Segment(C, E)
j = Segment(C, F)
l = Segment(B, I)
m = Segment(B, J)
n = Segment(A, G)
p = Segment(A, H)
R = Intersect(i, p)
M = Intersect(l, p)
N = Intersect(j, l)
O = Intersect(j, n)
P = Intersect(m, n)
Q = Intersect(i, m)
poly2, k_1, l_1, m_1, n_1, o, j_1 = Polygon(M, N, O, P, Q, R)
Textepoly1: "Aire de  " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + poly1
Pointpoly1 = PointIn(poly1)
Textepoly2: "Aire de  " + (Name[M]) + (Name[N]) + (Name[O]) + (Name[P]) + (Name[Q]) + (Name[R]) + " = " + poly2
Pointpoly2 = PointIn(poly2)
texte1: " " + Textepoly1 + ""
texte2: "" + Textepoly2 + ""