A = (-2.68, 0.22)
a = Ray(A, (x(A) + 1, y(A)))
B = Point(a)
b = Ray(A, (x(A), y(A) + 1))
H = Point(b)
c = Line(H, (x(H) + 1, y(H)))
C = Point(c)
base: x(B) - x(A)
poly1, a_1, b_1, d, c_1 = Polygon(A, B, (x(C) + base, y(C)), C)
e = Segment(H, A)
slices = 7 (slider from 1 to 50, step 1)
height: y(H) - y(A)
smht: height / slices
over: (x(C) - x(A)) / slices
list1 = Sequence(Polygon[(x(A) + i * over, y(A) + i * smht), (x(B) + i * over, y(B) + i * smht), (x(B) + i * over, y(B) + (i + 1) * smht), (x(A) + i * over, y(A) + (i + 1) * smht)], i, 0, slices - 1, 1)