Comprobar

¡Muy bien, enhorabuena!

No es correcto, inténtalo de nuevo

A = (-4, 11)
pol, a, b, c, d, e, g, h = Polygon(A, A + (10, 0), A + (10, -4), A + (20, -4), A + (10, -12), A + (8, -12), A + (0, -2))
S1 = Point(pol)
S2 = PointIn(pol)
S3 = Point(pol)
candidato: {S1, S2, S3}
sol: {A + (10, -2), A + (8, -2), A + (8, -12)}
f = PolyLine(S1, S2, S3)
resuelto: candidato ≟ sol ∨ Reverse[candidato] ≟ sol
visible = false
cua1 = Sequence(Segment[A + (s, 0), A + (s, (-5) / 4 * s - 2)], s, 1, 8)
cua2 = Sequence(Segment[A + (s + 8, 0), A + (s + 8, -12)], s, 1, 1)
cua3 = Sequence(Segment[A + (s + 9, -4), A + (s + 9, -12 + 4 / 5 * (s - 1))], s, 1, 10)
cua4 = Sequence(Segment[A + (0, -s), A + (10, -s)], s, 1, 2)
cua5 = Sequence(Segment[A + (4 / 5 * s, -s - 2), A + (10, -s - 2)], s, 1, 2)
cua6 = Sequence(Segment[A + (4 / 5 * (s + 2), -s - 4), A + (20 - 5 / 4 * s, -s - 4)], s, 1, 7)