LA SUPERFICIE DEL TRIÁNGULO ES SIEMPRE 
LA MITAD DEL RECTÁNGULO QUE LO CONTIENE

poligono2

D = (7, 0)
E = (4, -5)
F = (10, -5)
d = Line(E, F)
e = OrthogonalLine(D, d)
G = Intersect(d, e)
g = Segment(D, G)
f = Line(D, d)
h = OrthogonalLine(E, f)
i = OrthogonalLine(F, f)
H = Intersect(f, h)
I = Intersect(f, i)
j = Segment(H, I)
polígono2, f_1, d_1, e_1 = Polygon(D, E, F)
polígono4, h_2, d_2, e_3 = Polygon(D, E, H)
polígono5, d_3, f_3, i_2 = Polygon(F, I, D)
J = Midpoint(D, E)
K = Midpoint(F, D)
a = 0 (slider from 0 to 3.14, step 0.01)
D'_2 = Rotate(D, a, J)
E' = Rotate(E, a, J)
H' = Rotate(H, a, J)
polígono4', h'_1, d'_1, e'_1 = Polygon(D'_2, E', H')
b = 0 (slider from 0 to 3.14, step 0.01)
F' = Rotate(F, -(b), K)
I' = Rotate(I, -(b), K)
D' = Rotate(D, -(b), K)
polígono5', d', f'_1, i'_1 = Polygon(F', I', D')