D = (1.92, -0.76)
A = (2.98, 3.02)
a = Segment(D, A)
C = (11.06, 0.38)
b = Segment(D, C)
c = Circle(C, Segment[D, A])
d = Circle(A, Segment[D, C])
B = Intersect(c, d, 2)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, D, C, B)
e = Segment(A, C)
f = Segment(B, D)
E = Intersect(e, f)
g = Circle(B, Segment[A, E])
h = Circle(A, Segment[B, E])
F = Intersect(g, h, 2)
poly2, a_2, e_1, b_2, f_1 = Polygon(A, E, B, F)
distanceAF = Distance(A, F)
Midpoint(A, F)
TexteAF: Name[A] + (Name[F]) + " = " + distanceAF
distanceFB = Distance(F, B)
Midpoint(F, B)
TexteFB: Name[F] + (Name[B]) + " = " + distanceFB
distanceAD = Distance(A, D)
Midpoint(A, D)
TexteAD: Name[A] + (Name[D]) + " = " + distanceAD
distanceDC = Distance(D, C)
Midpoint(D, C)
TexteDC: Name[D] + (Name[C]) + " = " + distanceDC
α = Angle(A, F, B)
β = Angle(C, D, A)