A = (1.32, 2.16)
B = (6.58, 2.24)
B' = Rotate(B, 24.0*°, A)
α = Angle(B, A, B')
a = Ray(A, B)
b = Ray(A, B')
c = OrthogonalLine(B, a)
C = Intersect(c, b)
abstandCB = Distance(C, B)
TextCB: "\overline{" + (Name[C]) + (Name[B]) + "} \, = \, " + abstandCB
abstandBA = Distance(B, A)
TextBA: "\overline{" + (Name[B]) + (Name[A]) + "} \, = \, " + abstandBA
abstandAC = Distance(A, C)
TextAC: "\overline{" + (Name[A]) + (Name[C]) + "} \, = \, " + abstandAC