Mostly style cleanups and commentary.

[rocl] / elite-tantalus

diff --git a/elite-tantalus b/elite-tantalus
index 478d5ba4a37de55c04337a1be8a5054004e49d3a..ac5837e1f3575fd52c8bc8d89386b7b36cd00e79 100755 (executable)
--- a/elite-tantalus
+++ b/elite-tantalus
@@ -31,7 +31,7 @@ for {set i 0} {$i < [llength $argv]} {incr i} {
     }
     default {
       break
-    }    
+    }
   }
 }
 
@@ -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
 }
-