A: (0, 0)
B: (120, 0)
C: (120, 90)
D: (0, 90)
f(x) = (-2 / 3 * x) + 150
v1, a, b, c, d = Polygon(A, B, C, D)
E = Intersect(f, c)
F = Intersect(f, b)
g = Segment(E, F)
P = Point(g)
h = OrthogonalLine(P, a)
i = OrthogonalLine(P, d)
G = Intersect(i, d)
I = Intersect(h, a)
J, K = Intersect(i, v1)
v2, a_1, i_1, p, j = Polygon(A, I, P, J)