A = Point(yAxis)
B = Intersect(xAxis, yAxis)
a = Segment(A, B)
C = Point(xAxis)
D = (12, 8)
b = Segment(C, D)
E = (2, 8)
c = Segment(D, E)
F = (2, 6)
d = Segment(E, F)
e = Segment(F, A)
f = Segment(B, C)
G = Point(f)
g = OrthogonalLine(G, c)
H = Intersect(g, c)
poly1, a_1, b_1, g_1, h, e_1, f_1 = Polygon(A, B, G, H, E, F)
poly2, h_1, d_1, c_1, g_2 = Polygon(H, D, C, G)
distanceBG = Distance(B, G)
TexteBG: Name[B] + (Name[G]) + " \, = \, " + distanceBG