A = (4, -1)
B = (7, -1)
c = Circle(A, B)
C = (14, -1)
D = (17, -1)
d = Circle(C, D)
f = Line(B, A)
α = 0.9272934315845873 rad (slider from -53.13° to 53.13°, step 0.01°)
R = Rotate(B, α, A)
β = Angle(B, A, R)
O = Midpoint(A, C)
g = Line(R, O)
Q = Intersect(d, g, 2)
P = Intersect(d, g, 1)
M = Intersect(c, g, 1)
u = Vector(O, R)
v = Vector(O, Q)
w = Sum({u, v})
a = Vector(O, P)
b = Vector(O, M)
t = Sum({a, b})
O' = Translate(O, t)
O'_1 = Translate(O, w)
h, i = Tangent(O, d)
j = Line(M, O)
e = Vector(O, O')
k = Vector(O, O'_1)