getcorner

(getcorner punto-base [pregunta])

Pide la esquina opuesta de un rectángulo que parte del punto base.

(getcorner p "\nEsquina opuesta: ")