Recherche d’un point fixe
Author: Patrice Debart

O' = (3, 0)
O = (0, 0)
OO' = Segment(O, O')
d = OrthogonalLine(O, OO')
A = Point(d)
c = Circle(O, A)
c' = Circle(O', A)
B = Intersect(c, c', 2.0)
M = Point(c)
r_1 = Segment(A, O)
r_2 = Segment(A, O')
α = Angle(O, A, O')
M1 = Rotate(M, α, A)
M' = Dilate(M1, r_2 / r_1, A)
AM = Segment(A, M)
AM' = Segment(A, M')
MM' = Segment(M, M')
AB = Segment(A, B)
B1 = Rotate(B, α, A)
B' = Dilate(B1, r_2 / r_1, A)
BB' = Segment(B, B')
O'B' = Segment(O', B')