A = (7, -1)
B = (12, -1)
c = Circle(A, B)
α = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 1.0E-7°)
M = Rotate(B, α, A)
β = Angle(B, A, M)
f = Segment(M, B)
I = Midpoint(f)
g = Segment(A, I)
J = Midpoint(g)
h = Line(M, J)
d = Circle(B, M)
C = Intersect(d, h, 2)