A = (1, -1)
a_1 = 5
B = Point(Circle[A, 5])
a = Segment(A, B)
A' = Rotate(A, -32*°, B)
α = Angle(A', B, A)
b = Ray(B, A')
c = OrthogonalLine(A, a)
C = Intersect(c, b)
d = OrthogonalLine(B, a)
D = Intersect(α, b, 1)
abstandAC = Distance(A, C)
Midpoint(A, C)
TextAC: "\overline{" + (Name[A]) + (Name[C]) + "} \, = \, " + abstandAC