Orthofigure
Author: Stéphane Clément et Patrice Debart

A = (0, 0)
B = (8, 0)
AB = Segment(A, B)
pAB_A = OrthogonalLine(A, AB)
C = Point(pAB_A)
AC = Segment(C, A)
BC = Segment(C, B)
M = Point(BC)
pAB_M = OrthogonalLine(M, AB)
N = Intersect(pAB_M, AB)
MN = Segment(M, N)
pAC_M = OrthogonalLine(M, AC)
P = Intersect(AC, pAC_M)
MP = Segment(P, M)
NP = Segment(P, N)
AM = Segment(A, M)
pBC_A = OrthogonalLine(A, BC)
H = Intersect(BC, pBC_A)
AH = Segment(A, H)