f(x) = If[0 ≤ x ≤ Infinity,80 + (16 * x)]
g(x) = If[0 ≤ x ≤ Infinity,416 - (26 * x)]
Α = Intersect(f, g, (8, 208))
a = OrthogonalLine(Α, xAxis)
b = OrthogonalLine(Α, yAxis)
Β = Intersect(yAxis, b)
Γ = Intersect(a, xAxis)
c = Segment(Β, Α)
d = Segment(Α, Γ)