X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/74bdd262742db2f0b2b97375ece36f2962bfeb52..refs/heads/master:/elite-tantalus

diff --git a/elite-tantalus b/elite-tantalus
index 8a29191..ac5837e 100755
--- a/elite-tantalus
+++ b/elite-tantalus
@@ -7,7 +7,7 @@ package require "vector" "1.0.0"
 package require "graph" "1.0.0"
 
 set gg {1 2 3 4 5 6 7 8}
-set maxdist 80
+set maxdist 100
 set minratio 10
 
 for {set i 0} {$i < [llength $argv]} {incr i} {
@@ -31,7 +31,7 @@ for {set i 0} {$i < [llength $argv]} {incr i} {
     }
     default {
       break
-    }    
+    }
   }
 }
 
@@ -69,7 +69,9 @@ foreach g $gg {
       set dd [$lv get $i $j]
       set r [expr {$dd/"$d.0"}]
       if {$r >= $minratio} {
-	puts "$g: [worldname $w] -> [worldname $ww]: $d $dd ($r)"
+	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]
       }
     }
   }
@@ -77,4 +79,3 @@ foreach g $gg {
   $lv destroy
   $pv destroy
 }
-