+ set rt {}
+ if {![string equal $weight ""]} {
+ set home [lindex $n 0]
+ foreach w [lrange $n 1 end] {
+ destructure {p .} [shortest-path adj $home $w $weight]
+ if {![llength $p]} {
+ puts stderr \
+ "$argv0: no route from [worldname $home] to [worldname $w]"
+ exit 1
+ }
+ eval lappend rt $p
+ set home $w
+ }
+ }
+ 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) }