A = (5.68, -7.1)
D = (5.66, -2.6)
f = Line(A, D)
g = OrthogonalLine(A, f)
h = OrthogonalLine(D, f)
B = Point(g)
C = Point(h)
q1, a_{1}, b, c, d = Polygon(A, B, C, D)
α, β, γ, δ = InteriorAngles(q1)
distanceAB = Distance(A, B)
Midpoint(A, B)
TexteAB: Name[A] + (Name[B]) + " = " + distanceAB
distanceBC = Distance(B, C)
Midpoint(B, C)
TexteBC: Name[B] + (Name[C]) + " = " + distanceBC
distanceCD = Distance(C, D)
Midpoint(C, D)
TexteCD: Name[C] + (Name[D]) + " = " + distanceCD
distanceAD = Distance(A, D)
Midpoint(A, D)
TexteAD: Name[A] + (Name[D]) + " = " + distanceAD
O = (15.04, -2.78)
a = 2.792526803190927 rad (slider from 0 to 6.283185307179586, step 10°)