busca_punot
Author: Rafael Losada Liste

a = Random(-3.0, 13.0)
b = Random(-4.0, 4.0)
alt = Max(abs(b), Random[1.0, 4.0])
A = (9, 6)
B = (9, 5)
C = (14, 5)
D = (14, 6)
polígono1, a_1, b_1, c, d = Polygon(A, B, C, D)
T2: "(" + a + ", " + b + "): Portal " + a + ", piso " + b
polígono2, e, f, g, h = Polygon((a - 1.0, alt + 0.5), (a + 1.0, alt + 0.5), (a + 1.0, -(alt + 0.5)), (a - 1.0, -(alt + 0.5)))
E: (a, b)
polígono3, i, j, k, l = Polygon((a - 0.25, b - 0.25), (a + 0.25, b - 0.25), (a + 0.25, b + 0.25), (a - 0.25, b + 0.25))
m = Segment((a - 0.25, b), (a + 0.25, b))
n = Segment((a, b - 0.25), (a, b + 0.25))
lista1 = Sequence(Polygon[(a - 0.25, s - 0.25), (a + 0.25, s - 0.25), (a + 0.25, s + 0.25), (a - 0.25, s + 0.25)], s, -(alt), alt)