A0 = (1, -2)
A = (1, 4)
c = Line(A0, A)
a = 1 (slider from 0 to 2, step 0.1)
A1 = Point(Circle[A0, a])
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)])
d = Line(A_3, A)
e = Line(A_2, A)
f = Line(A_1, A)
g = Line(A1, A)
h = Line(A2, A)
i = Line(A3, A)
b = Line(A0, u)
j = Line(A, u)