A = (-3.62, 3.22)
B = (4.48, 4.4)
a = Line(A, B)
b = OrthogonalLine(B, a)
c = OrthogonalLine(A, a)
C = Point(c)
d = OrthogonalLine(C, c)
D = Intersect(d, b)
e = Segment(A, B)
f = Segment(B, D)
g = Segment(D, C)
h = Segment(C, A)