eq1: z = 1
A: (1, 1, 1)
B: (1, 7, 1)
C: (7, 7, 1)
D: (7, 1, 1)
E, a, b, c, d = Polygon(A, B, C, D)
F = (-5.30149905719985, 2.7581877420970713, 8)
G = ClosestPointRegion(eq1, F)
f = Segment(F, G)
H = ClosestPoint(a, G)
g = Segment(G, H)
I = ClosestPointRegion(E, F)
h = Segment(I, F)