A = (0.7891602909934559, 1.17225306829959)
B = (-0.4198638817374925, -0.26571721647545904)
C = (-0.7257836159084547, -1.2181417502861844)
f = Segment(B, C)
c = Circle(A, B)
d = Circle(B, A)
D = Intersect(c, d, 1)
g = Ray(D, A)
h = Ray(D, B)
e = Circle(B, C)
E = Intersect(e, h, 2)
k = Circle(D, E)
F = Intersect(k, g, 1)
i = Segment(A, F)
distanceBC = Distance(B, C)
Midpoint(B, C)
TexteBC: Name[B] + (Name[C]) + " = " + distanceBC
distanceAF = Distance(A, F)
Midpoint(A, F)
TexteAF: Name[A] + (Name[F]) + " = " + distanceAF