A = (3, 2)
B = (10, 2)
f = Segment(A, B)
C = (1, 3)
D = (10, 3)
g = Segment(C, D)
a = 1 (slider from 0 to 1, step 0.01)
u: (a * Vector[C, D])
F: C + u
q1, h, i, j, n = Polygon(F, F + (2, 0), F + (2, 1), F + (0, 1))
q2, c, k, l, m = Polygon(C, C + (2, 0), C + (2, 1), C + (0, 1))