\frac{a}{b}

\frac{c}{d}

b = 3 (slider from 0 to 12, step 1)
a = 1 (slider from 0 to b, step 1)
A = (-2.88, 4.14)
ax: x(A)
ay: y(A)
u = 1
AT: (ax, ay + u)
AR: (ax + 4 * u, ay)
ART: (ax + 4 * u, ay + u)
c_2 = Segment(A, AR)
d_2 = Segment(AR, ART)
e = Segment(ART, AT)
f = Segment(AT, A)
list1 = Sequence(Segment[(ax + 4 * u * i / b, ay), (ax + 4 * u * i / b, ay + u)], i, 1, b - 1)
ARP: (ax + 4 * u * a / b, ay)
ARPT: (ax + 4 * u * a / b, ay + u)
poly1, a_1, arp, arpt, at = Polygon(A, ARP, ARPT, AT)
d = 9 (slider from 0 to 12, step 1)
c = 3 (slider from 0 to d, step 1)
A_1 = (-2.86, 2.66)
ax_1: x(A_1)
ay_1: y(A_1)
AT_1: (ax_1, ay_1 + u)
AR_1: (ax_1 + 4 * u, ay_1)
ART_1: (ax_1 + 4 * u, ay_1 + u)
c_1 = Segment(A_1, AR_1)
d_1 = Segment(AR_1, ART_1)
e_1 = Segment(ART_1, AT_1)
f_1 = Segment(AT_1, A_1)
list1_1 = Sequence(Segment[(ax_1 + 4 * u * i / d, ay_1), (ax_1 + 4 * u * i / d, ay_1 + u)], i, 1, d - 1)
ARP_1: (ax_1 + 4 * u * c / d, ay_1)
ARPT_1: (ax_1 + 4 * u * c / d, ay_1 + u)
poly1_1, a_2, arp_1, arpt_1, at_1 = Polygon(A_1, ARP_1, ARPT_1, AT_1)