Area=\frac{1}{2}bh_1

Area=\frac{1}{2}bh_2

A = (0.6580839386765427, 8.025430930837226)
B = (-2, 2)
C = (2.7747159194115185, 2.000328290532266)
poly1, c, a, b = Polygon(A, B, C)
d = OrthogonalLine(C, a)
e = OrthogonalLine(A, d)
D = Intersect(d, e)
h_1 = Segment(C, D)
sub_1: "=\frac{1}{2}×" + (LaTeX[a]) + "×" + (LaTeX[h_1]) + ""
A_1 = Area(poly1)
AreaT1: "=" + (LaTeX[A_1]) + ""
E = (12, 2)
F = (12, 8)
g = Line(E, F)
i = OrthogonalLine(F, g)
j = OrthogonalLine(E, g)
G = Point(i)
k = Line(E, G)
H = Point(j)
l = Line(H, G)
m = Line(E, H)
n = Segment(E, G)
p = Segment(H, G)
q = Segment(H, E)
r = Segment(H, G)
h_2 = Segment(E, F)
sub_2: "=\frac{1}{2}×" + (LaTeX[q]) + "×" + (LaTeX[h_2]) + ""
A_3: 0.5 * q * h_2
AreaT2: "= " + (LaTeX[A_3]) + ""