A = Point(yAxis)
B = Intersect(xAxis, yAxis)
C = (6, 0)
D = (6, 2)
E = (9, 2)
F = (9, 4)
Vieleck1, a, b, c, d, e, f = Polygon(A, B, C, D, E, F)
G = Point(yAxis)
g = OrthogonalLine(G, yAxis)
H = Intersect(g, e)
I = Intersect(g, c)
Vieleck3 = If(y(G) > 2, Polygon[G, B, C, D, E, H, G], Polygon[G, B, C, I, G])
J: (Vieleck3, y(G))