A = (-1.08, 0.28)
a = Ray(A, (x(A) + 1, y(A)))
B = Point(a)
b = Ray(A, (x(A), y(A) + 1))
H = Point(b)
c = Line(H, (x(H) + 1, y(H)))
C = Point(c)
base: x(B) - x(A)
poly1, a_1, b_1, d, c_1 = Polygon(A, B, (x(C) + base, y(C)), C)
e = Segment(H, A)
height: y(H) - y(A)
ctx = If(x(C) > x(A), x(B), x(A))
u = Vector(A, B)
D = (3.12, 0.66)
poly2 = If((x(C) < x(B)) ∧ (x(B) < x(C + u)), Polygon[(x(D) - (x(C) - x(A)) / 3, y(D) - 0.7 * height), (x(D) - (x(C) - x(A)) / 3, y(D) + 0.3 * height), (x(D) + 2 * (x(C) - x(A)) / 3, y(D) + 0.3 * height)])
poly3 = If(x(C) > x(B), Polygon[(x(D) - (x(C) - x(A)) / 3, y(D) - 0.7 * height), (x(D) - (x(C) - x(A)) / 3, y(D) - 0.7 * height + (y(C) - y(A)) * (x(B) - x(A)) / (x(C) - x(A))), (x(D) - (x(C) - x(A)) / 3 + x(C) - x(B), y(D) + 0.3 * height), (x(D) + 2 * (x(C) - x(A)) / 3, y(D) + 0.3 * height)])
poly4 = If((x(C) < x(A)) ∧ (x(A) < x(C + u)), Polygon[(x(D) - (x(B) - x(A)) / 2, y(D) - 0.3 * height), (x(D) - (x(B) - x(A)) / 2, y(D) + 0.7 * height), (x(D) - (x(A) - x(C)) + (x(B) - x(A)) / 2, y(D) + 0.7 * height), (x(D) + (x(B) - x(A)) / 2, y(D) - 0.3 * height)])
poly5 = If(x(A) > x(C + u), Polygon[(x(D) - (x(B) - x(A)) / 2, y(D) - 0.3 * height), (x(D) - (x(B) - x(A)) / 2, y(D) - 0.3 * height + height * (x(B) - x(A)) / (x(B) - x(C + u))), (x(D) + (x(B) - x(A)) / 2, y(D) - 0.3 * height)])
E = (-0.46, -0.18)
poly6 = If((x(C) < x(A)) ∧ (x(A) < x(C + u)), Polygon[(x(E) + 0.3 * (x(A) - x(C)), y(E) - 0.7 * height), (x(E) - 0.7 * (x(A) - x(C)), y(E) + 0.3 * height), (x(E) + 0.3 * (x(A) - x(C)), y(E) + 0.3 * height)])
poly7 = If(x(A) > x(C + u), Polygon[(x(E) + 0.3 * (x(A) - x(C)), y(E) - 0.7 * height), (x(E) - 0.7 * (x(A) - x(C)), y(E) + 0.3 * height), (x(E) - 0.7 * (x(A) - x(C)) + x(B) - x(A), y(E) + 0.3 * height), (x(E) + 0.3 * (x(A) - x(C)), y(E) - 0.7 * height + height * (x(B) - x(A)) / (x(B) - x(C + u)))])
poly8 = If((x(C) < x(B)) ∧ (x(B) < x(C + u)), Polygon[(x(E) - 0.5 * (x(B) - x(A)), y(E) - 0.3 * height), (x(E) - 0.5 * (x(B) - x(A)) + x(C) - x(A), y(E) + 0.7 * height), (x(E) + 0.5 * (x(B) - x(A)), y(E) + 0.7 * height), (x(E) + 0.5 * (x(B) - x(A)), y(E) - 0.3 * height)])
poly9 = If(x(C) > x(B), Polygon[(x(E) - 0.5 * (x(B) - x(A)), y(E) - 0.3 * height), (x(E) + 0.5 * (x(B) - x(A)), y(E) - 0.3 * height + height * (x(B) - x(A)) / (x(C) - x(A))), (x(E) + 0.5 * (x(B) - x(A)), y(E) - 0.3 * height)])