El área del triángulo es la mitad 
del rectángulo que lo contiene

A = (4, -3)
B = (9, -3)
a = Segment(A, B)
C = (8, 1)
b = Line(C, a)
c = OrthogonalLine(C, a)
D = Intersect(c, a)
E = Midpoint(C, D)
d = Line(E, a)
e = Segment(C, A)
f = Segment(B, C)
F = Intersect(d, e)
G = Intersect(d, f)
g = OrthogonalLine(F, a)
h = OrthogonalLine(G, a)
H = Intersect(g, a)
I = Intersect(h, a)
i = OrthogonalLine(A, b)
j = OrthogonalLine(B, b)
J = Intersect(b, i)
K = Intersect(b, j)
polígono1, a_1, f_1, g_1, b_1 = Polygon(A, F, G, B)
polígono2, c_1, f_2, e_1 = Polygon(F, E, C)
polígono3, g_2, c_2, e_2 = Polygon(C, E, G)
k = 0 (slider from 0 to 3.14, step 0.01)
l = 0 (slider from 0 to 3.14, step 0.01)
F' = Rotate(F, k, F)
E'_1 = Rotate(E, k, F)
C'_1 = Rotate(C, k, F)
polígono2', c', f', e' = Polygon(F', E'_1, C'_1)
C' = Rotate(C, -(l), G)
E' = Rotate(E, -(l), G)
G' = Rotate(G, -(l), G)
polígono3', g', c'_1, e'_1 = Polygon(C', E', G')
polígono4, j_1, a_2, b_2, k_1 = Polygon(J, A, B, K)
Textopolígono4: "Area  rectángulo = base x altura  = " + polígono4