A = (-0.04, 0.62)
B = (6.44, -0.8200000000000001)
a = Line(A, B)
d_1 = OrthogonalLine(B, a)
C = Point(d_1)
d_2 = Line(C, a)
d_3 = Line(A, d_1)
D = Intersect(d_2, d_3)