A0 = (1, -2)
B0 = (1, 1)
f = Line(A0, B0)
a = 1 (slider from 0 to 2, step 0.1)
A1 = Point(Circle[A0, a])
b = 0.4 (slider from 0 to 2, step 0.1)
B1 = Point(Circle[B0, b])
g = Line(A1, B1)
H = Intersect(f, g)
u = Vector(A0, A1)
A2 = Translate(A1, u)
A3 = Translate(A2, u)
A_1 = Translate(A0, Vector[-(u)])
A_2 = Translate(A_1, Vector[-(u)])
A_3 = Translate(A_2, Vector[-(u)])
v = Vector(B0, B1)
B2 = Translate(B1, v)
B3 = Translate(B2, v)
B_1 = Translate(B0, Vector[-(v)])
B_2 = Translate(B_1, Vector[-(v)])
B_3 = Translate(B_2, Vector[-(v)])
c = Line(A_3, B_3)
d = Line(A_2, B_2)
e = Line(A_1, B_1)
h = Line(A2, B2)
i = Line(A3, B3)