A = (4, 0)
β = 0.6 (slider from 0 to 6.283185307179586, step 0.1)
A_1 = Rotate(A, β)
A_2 = Rotate(A_1, β)
B = Intersect(xAxis, yAxis)
a = Segment(B, A_1)
b = Segment(B, A_2)
c = Segment(A_1, A)
d = Segment(A_1, A_2)
e = Circle(B, A)
f = OrthogonalLine(A_1, a)