A = (-0.52, -0.9400000000000001)
B = (4.96, -0.76)
a = Line(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
C = Point(b)
d = Line(C, a)
D = Intersect(c, d)
abstandCA = Distance(C, A)
TextCA: "\overline{" + (Name[C]) + (Name[A]) + "} \, = \, " + abstandCA
abstandAB = Distance(A, B)
TextAB: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + abstandAB