S = (-1, 1)
a = 0 (slider from 0 to 10, step 0.1)
T = Point(Circle[S, a])
A = (-1, 4)
B = (12, 4)
C = (12, -3)
D = (-1, -3)
poly1, a_2, b, c, d = Polygon(A, B, C, D)
E = Point(a_2)
F = Point(d)
e = OrthogonalLine(E, a_2)
f = OrthogonalLine(F, d)
G = Intersect(e, f)
H = Intersect(e, c)
g = Segment(E, H)
I = Intersect(f, b)
h = Segment(F, I)
poly2, a_1, e_1, g_1, f_1 = Polygon(A, E, G, F)
poly3, e_2, b_1, i, g_2 = Polygon(E, B, I, G)
poly4, f_2, g_3, h_1, d_1 = Polygon(F, G, H, D)
poly5, g_4, i_1, c_1, h_2 = Polygon(G, I, C, H)
texte2: "Aire (EBIG) =" + poly3 + ""
texte3: "Aire (FGHD) =" + poly4 + ""
texte1: "Aire (AEGF) = " + poly2 + ""
texte4: "Aire (GICH)=" + poly5 + ""
texte5: "Aire (ABCD) = " + poly1 + ""
j: poly2 + poly3 + poly4 + poly5
texte6: "Aire (AEGF) + Aire (EBIG) + Aire (FGHD) + Aire (GICH) =" + poly2 + "+" + poly3 + "+" + poly4 + "+" + poly5 + "=" + j + " "
J = (-1, 1)
K = Point(Circle[J, a])
k = Segment(J, K)
L = (-1, -3)
M = Point(Circle[L, a])
l = Segment(L, M)
w = (0, 0)
N = (14, 0)
O = Point(Circle[N, a])
m = Segment(N, O)
P = (14.127698156617587, -1.995468038195133)
Q = Point(Circle[P, a])
n = Segment(P, Q)
q = (0, 0)
R = (-4, 3)
s = Segment(S, T)
U = (0, 5)
V = (-3, 6)
p = Line(U, V)
r = Circle(U, a)
W, Z = Intersect(r, p)
u = Vector(U, Z)
A' = Translate(A, u)
E' = Translate(E, u)
G' = Translate(G, u)
F' = Translate(F, u)
poly2', a', e', g', f' = Polygon(A', E', G', F')
v = Vector(U, W)
G'_1 = Translate(G, v)
I' = Translate(I, v)
C' = Translate(C, v)
H' = Translate(H, v)
poly5', g'_1, i', c', h' = Polygon(G'_1, I', C', H')
A_1 = (-2, -6)
B_1 = Point(c)
t = Line(A_1, B_1)
k_1 = Circle(B_1, a)
C_1, D_1 = Intersect(k_1, t)
z = Vector(B_1, C_1)
F'_1 = Translate(F, z)
G'_2 = Translate(G, z)
H'_1 = Translate(H, z)
D' = Translate(D, z)
poly4', f'_1, g'_2, h'_1, d' = Polygon(F'_1, G'_2, H'_1, D')
u_1 = Vector(B_1, D_1)
E'_1 = Translate(E, u_1)
B' = Translate(B, u_1)
I'_1 = Translate(I, u_1)
G'_3 = Translate(G, u_1)
poly3', e'_1, b', i'_1, g'_3 = Polygon(E'_1, B', I'_1, G'_3)