Création de la figure
Author: Vincent MAILLE

A = (-4.685000000000001, -2.4650000000000003)
B = Point(Circle[A, 14])
a = Segment(A, B)
c = Circle(A, 13)
d = Circle(B, 15)
C = Intersect(c, d, 1)
b = Segment(C, B)
e = Segment(C, A)
D = Point(a)
f = OrthogonalLine(D, a)
E = Intersect(e, f)
g = OrthogonalLine(E, f)
F = Intersect(b, g)
h = OrthogonalLine(F, g)
G = Intersect(a, h)
i = Segment(D, E)
j = Segment(E, F)
k = Segment(F, G)