A = Intersect(xAxis, yAxis)
B = (-4, -2)
f = Segment(A, B)
D = (5, -1)
g = Segment(A, D)
D_{1} = Midpoint(B, D)
C = Mirror(A, D_{1})
q1, b, a, c, a' = Polygon(B, A, D, C)
h = OrthogonalLine(B, xAxis)
F = Point(h)
u = Vector(B, F)
B' = Translate(B, u)
E = Translate(A, u)
H = Translate(D, u)
G = Translate(C, u)
q1', b', i, d', c' = Polygon(B', E, H, G)
j = Segment(F, B)
q2, f_1, g_1, c_1, b_1 = Polygon(F, G, C, B)
q3, e, a_1, d, h_1 = Polygon(E, A, D, H)
k = Segment(H, B)
nbK: 1 / 3
I: B + (nbK * Vector[B, H])