A = (-1.82, 0.56)
B = Point(Circle[A, 40])
a = Segment(A, B)
B' = Rotate(B, 62°, A)
α = Angle(B, A, B')
b = Ray(A, B')
A' = Rotate(A, (-(51°)), B)
β = Angle(A', B, A)
c = Ray(B, A')
C = Intersect(b, c)
d = OrthogonalLine(C, a)
D = Intersect(a, d)
e = Segment(C, D)