El área del trapecio es la misma que
el área del rectángulo de base 
la suma de las bases del trapecio
y de altura la mitad.

M = (7, 3)
L = (9, 0)
e_1 = Segment(M, L)
K = (2, 0)
a_1 = Line(K, L)
b_1 = Line(M, a_1)
N = Point(b_1)
O = Midpoint(N, K)
c_1 = Line(O, a_1)
Q = Intersect(c_1, e_1)
t = 0 (slider from 0 to 2.1, step 0.01)
β: Max[t - 1.1, 0.0] * 180.0 * °
α: Min[t, 1.0] * 180.0 * °
d_1 = OrthogonalLine(M, c_1)
P = Intersect(d_1, c_1)
N' = Rotate(N, α, O)
O' = Rotate(O, α, O)
P'_1 = Rotate(P, α, O)
M'_1 = Rotate(M, α, O)
polígono4'_1, n', o'_1, p'_1, m'_1 = Polygon(N', O', P'_1, M'_1)
polígono4, q_2, m, p = Polygon(M, P, Q)
polígono5, q, l, k, o' = Polygon(Q, L, K, O')
P' = Rotate(P, -1.0 * β, Q)
Q' = Rotate(Q, -1.0 * β, Q)
M' = Rotate(M, -1.0 * β, Q)
polígono4', q', m', p' = Polygon(M', P', Q')
f_1 = Segment(N, O)
g_1 = Segment(M, Q')