}
default {
break
- }
+ }
}
}
set dd [$lv get $i $j]
set r [expr {$dd/"$d.0"}]
if {$r >= $minratio} {
- puts [format "%14s %-8s -> %-8s %5.1f %5.1f (%5.1f)" \
- $g [worldname $w] [worldname $ww] \
+ puts [format "%14s %s -> %s %4.1f %5.1f (%4.1f)" \
+ $g [world-brief $w] [world-brief $ww] \
[expr {$d/10.0}] [expr {$dd/10.0}] $r]
}
}
$lv destroy
$pv destroy
}
-