A = (-4, -1)
B = (2, -1)
a = Line(A, B)
C = (4, 2)
b = Line(B, C)
c = Line(C, a)
d = Line(A, b)
D = Intersect(d, c)
e = OrthogonalLine(D, a)
H_1 = Intersect(e, a)
E = Point(d)
f = Line(E, a)
F = Intersect(b, f)
G = Point(f)
u = Vector(E, G)
poli1, d_1, h, a_1 = Polygon(H_1, A, D)
H' = Translate(H_1, u)
A' = Translate(A, u)
D' = Translate(D, u)
poli1', d', h', a' = Polygon(H', A', D')
H = Intersect(e, a)
poli2, i, d_2, c_1, b_1 = Polygon(H, D, C, B)