x = %v

a = %v cm

b = %v cm

c = %v

k = 3 (slider from 0.25 to 3, step 0.01)
A = (-1, -4)
B: A + ((4 * k), 0)
C: A + (0, (3 * k))
D: A + ((4 * k), (3 * k))
polígono1, a, b, d, c = Polygon(A, B, D, C)
Textopolígono1: "Área = " + polígono1 + " cm²"
lista1 = Sequence(Segment[A + (t, 0), A + (t, b)], t, 1, (4 * k))
lista2 = Sequence(Segment[A + (0, t), A + (a, t)], t, 1, (3 * k))
polígono2, e, f, g, h = Polygon(A, B, D, C)
i, E, F, G, H, caraABFE, caraBDGF, caraCDGH, caraACHE, caraEFGH, aristaAE, aristaBF, aristaDG, aristaCH, aristaEF, aristaFG, aristaGH, aristaEH = Prism(polígono2, (2 * k))
aa = Segment(A, B)
bb = Segment(B, D)