X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/a0f0b8941c3fbe8231194b09b3f1626f6bdf87f1..6b8df360bed7a9d2bc182f25fcd86235aa47735b:/elite-tantalus?ds=sidebyside diff --git a/elite-tantalus b/elite-tantalus index 478d5ba..bdb6285 100755 --- a/elite-tantalus +++ b/elite-tantalus @@ -69,8 +69,8 @@ foreach g $gg { 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] } } @@ -79,4 +79,3 @@ foreach g $gg { $lv destroy $pv destroy } -