show graph

A = (-12, 1)
B = (-2, 1)
C = (-6, 9)
D = (-2, 17)
E = (-12, 17)
F = (-8, 9)
poly1, a, b, c, d, e, f = Polygon(A, B, C, D, E, F)
G = (-14, 1)
H = (-14, 17)
g = Segment(G, H)
I = Point(g)
h_1 = OrthogonalLine(I, g)
J, K = Intersect(h_1, poly1)
height = Segment(G, I)
liquid, a_1, b_1, c_1, j, k, f_1 = Polygon(A, B, C, J, K, F)
A1: height
B1: liquid
M: (A1, B1)
list2: {M}
loc1 = Locus(M, I)
h = false