show graph

U = (-8, 17)
T = (-6, 17)
A = (-8, 1)
B = (-6, 1)
Q = (-2, 5)
P = (-12, 5)
F = (-8, 9)
E = (-12, 17)
D = (-2, 17)
C = (-6, 9)
G = (-14, 1)
H = (-14, 17)
stem, a_1, b_1, c_1, f_1 = Polygon(A, B, T, U)
poly1, a, b, c, d, e, f, i, l = Polygon(A, B, C, Q, D, E, P, F)
g = Segment(G, H)
I = Point(g)
h = OrthogonalLine(I, g)
R, S = Intersect(h, stem)
liq, t, d_1, e_1, g_1 = Polygon(A, B, R, S)
J, K, Intersect[h_1, Intersect[h_2, Intersect[h_3, Intersect[h_4 = Intersect(h, poly1)
liquid2, j, k, m, n, p, q, r, s = Polygon(A, B, C, Q, J, K, P, F)
height = Segment(G, I)
z: height > 8
A1: height
B1: liquid2
liquid: (liquid2 * z) + (liq * (¬z))
M: (height, liquid)
loc1 = Locus(M, I)
show = false
text1: "liquid = " + liquid + ""