X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/rocl/blobdiff_plain/1304202ad2001c85d3eae3a37c51e001794c24c8..9590c915c9bfe4a4fbe6a2d3af91fa4a9cb7027b:/elite-reach

diff --git a/elite-reach b/elite-reach
index 7925ef2..7e72204 100755
--- a/elite-reach
+++ b/elite-reach
@@ -1,14 +1,12 @@
 #! /usr/bin/tclsh
+#
+# $Id: elite-reach,v 1.3 2003/03/07 00:41:46 mdw Exp $
 
-package require "elite" "1.0.0"
+package require "elite" "1.0.1"
 
 proc reach {dist seed} {
-  set ww [worldinfo $seed]
-  puts -nonewline stderr "\[computing adjacency table..."
-  adjacency $ww a $dist
-  puts stderr " done\]"
-  puts -nonewline stderr "\[painting..."
-  flush stdout
+  set ww [elite-galaxylist $seed]
+  elite-adjacency a $ww $dist
   foreach {s x w} $ww { set p($s) 1 }
   set pp {}
   while 1 {
@@ -32,7 +30,6 @@ proc reach {dist seed} {
     }
     lappend pp $cc
   }
-  puts stderr " done\]\n"
   foreach cc $pp {
     set de 1
     set l {}
@@ -61,7 +58,7 @@ for {set i 0} {$i < [llength $argv]} {incr i} {
   switch -glob -- $a {
     "-d" {
       incr i
-      set d [expr {[lindex $argv $i] * 10}]
+      set d [expr {int([lindex $argv $i] * 10)}]
     }
     "-*" {
       puts stderr "usage: $argv0 \[-d DIST\] \[GALAXY ...\]"