Losange
Author: Léo

A = (4.663972431687849, 6.659524738058116)
B = (19.379203056901787, 8.560930942439697)
a = Segment(A, B)
C = Midpoint(a)
b = OrthogonalLine(C, a)
D = Point(b)
c = Circle(C, D)
E = Intersect(c, b, 2)
poly1, a_1, d, b_1, e = Polygon(A, D, B, E)
distanceAD = Distance(A, D)
Midpoint(A, D)
TexteAD: Name[A] + (Name[D]) + " \, = \, " + distanceAD
distanceDB = Distance(D, B)
Midpoint(D, B)
TexteDB: Name[D] + (Name[B]) + " \, = \, " + distanceDB
distanceBE = Distance(B, E)
Midpoint(B, E)
TexteBE: Name[B] + (Name[E]) + " \, = \, " + distanceBE
distanceEA = Distance(E, A)
Midpoint(E, A)
TexteEA: Name[E] + (Name[A]) + " \, = \, " + distanceEA