a = 7 (slider from 0 to 100, step 1)
B = (-9.175635623947743, -7.512132807595015)
A = (-2.2326816861576377, 1.6445165886209285)
A' = (16.013535425715883, -1.4076998767843862)
A'_1 = Dilate(A', (a - 30) / 70, A)
u = Vector(A, A'_1)
B'_1 = Translate(B, u)
v = Vector(B, B'_1)
image2 = Translate(image1_{14}, v)
w = Vector(A, A')
g = Segment(A, A')
B' = Translate(B, w)
f = Segment(B, B')
b = Vector(B, B')
h = Segment(A', B')