A = (-2.04, -0.04)
B = (2.16, -0.54)
a = Line(A, B)
b = OrthogonalLine(A, a)
H = Point(b)
c = Line(H, a)
d = Segment(H, A)
C = Point(c)
poly1, b_1, c_1, a_1 = Polygon(C, A, B)
u = Vector(A, H)
v = Vector(A, B)
slices = 10 (slider from 1 to 50, step 1)
w = Vector(A, C)
z = Vector(B, C)
list1 = Sequence(Polygon[A + w * i / slices, B + z * i / slices, B + z * i / slices + u * 1 / slices, A + w * i / slices + u * 1 / slices], i, 0, slices - 1, 1)