A = (-2, -1)
a_1 = 4.6
B = Point(Circle[A, 4.6])
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
C = Point(c)
C' = Rotate(C, -42*°, B)
α = Angle(C', B, C)
d = Ray(B, C')
C'_1 = Rotate(C, -29*°, B)
β = Angle(C'_1, B, C)
e = Ray(B, C'_1)
D = Intersect(b, d)
E = Intersect(b, e)
abstandDE = Distance(D, E)
Midpoint(D, E)
TextDE: "\overline{" + (Name[D]) + (Name[E]) + "} \, = \, " + abstandDE