A = (10, 4)
tmp1 = (10, -7)
a = Line(tmp1, A)
C = Point(a)
c = Circle(C, A)
D = Point(c)
b = Line(C, D)
E = Point(b)
d = Circle(E, D)
tmp2 = (2, -7)
e = Line(tmp1, tmp2)
f = Line(E, e)
B = Intersect(d, f, 2)
g = Line(B, a)
distanceGE = Distance(B, E)
circonférenced = Circumference(d)
h = Circumference(d)
H = Intersect(a, f)
k = CircleArc(E, D, B)
p = CircleArc(E, D, B)
α_1 = Angle(a, b)
i = Line(D, f)
j = Line(E, a)
h1 = Distance(f, i)
distanceAf = Distance(A, f)
Midpoint(A, ClosestPoint[f, A])
TexteAf: Name[A] + (Name[f]) + " \, = \, " + distanceAf
distanceBa = Distance(B, a)