+ set x0 1024
+ set y0 1024
+ set x1 0
+ set y1 0
+ set w {}
+ foreach p [concat $n $rt] {
+ elite-worldinfo ii $p
+ if {$ii(x) < $x0} { set x0 $ii(x) }
+ if {$ii(y) < $y0} { set y0 $ii(y) }
+ if {$ii(x) > $x1} { set x1 $ii(x) }
+ if {$ii(y) > $y1} { set y1 $ii(y) }
+ }
+ set x0 [expr {$x0 - $d - 5}]
+ set y0 [expr {$y0 - $d - 5}]
+ set x1 [expr {$x1 + $d + 5}]
+ set y1 [expr {$y1 + $d + 5}]
+ set w {}
+ foreach {p x y} $ww {
+ if {$x >= $x0 && $y >= $y0 && $x <= $x1 && $y <= $y1} {
+ lappend w $p $x $y
+ }