a_1 = 9.200000000000001 (slider from 0 to 10, step 0.1)
b_1 = 6.9 (slider from 0 to 10, step 0.1)
α_1 = 56 (slider from 0 to 180, step 1)
A = (6, 2)
B = Point(Circle[A, a_1])
a = Segment(A, B)
B' = Rotate(B, α_1 °, A)
α = Angle(B, A, B')
b_2 = Ray(A, B')
c = Circle(A, b_1)
D = Intersect(c, b_2, 1)
b' = Segment(D, A)
C = Point(Circle[D, a_1])
a' = Segment(D, C)
b = Segment(C, B)
d = OrthogonalLine(B, a')
E = Intersect(a', d)
h_a = Segment(E, B)