Inversions échangeant deux cercles sécants
Author: Patrice Debart

O = (-0.84, 2)
V = (-3.42, 3.7600000000000002)
O' = (2.64, 2)
V' = (4.26, 2.2800000000000002)
c = Circle(O, V)
c' = Circle(O', V')
R = Point(c)
OR = Segment(O, R)
d = Line(O', OR)
S = Intersect(c', d, 2.0)
S_1 = Intersect(c', d, 1.0)
I = Intersect(Line[O, O'], Line[R, S])
J = Intersect(Line[O, O'], Line[R, S_1])
K = Midpoint(O, I)
k = Circle(K, I)
T = Intersect(c, k, 1.0)
T_1 = Intersect(c, k, 2.0)
dIT = Ray(I, T)
dIT1 = Ray(I, T_1)
Q = Midpoint(I, J)
e = Circle(Q, I)
A, B = Intersect(c, e)
Δ = Line(A, B)
Γ = Circle(I, A)
M = Point(c)
M' = Mirror(M, Γ)
P = Point(Δ)
P' = Mirror(P, Γ)
dOO' = Ray(I, O)
dIM = Ray(I, M)
dIP = Ray(I, P)
T' = Intersect(c', dIT, 1.0)
T'_1 = Intersect(c', dIT1, 1.0)
TT1 = Line(T, T_1)
T'T1 = Line(T', T'_1)