X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/rocl/blobdiff_plain/b130b8f56dda8528a9cc18e86f825f1f4283cfbc..486cb648a93f2833bb97cee17c6a90fb7a271fcb:/elite-reach

diff --git a/elite-reach b/elite-reach
index 918d09b..7e72204 100755
--- a/elite-reach
+++ b/elite-reach
@@ -1,16 +1,12 @@
 #! /usr/bin/tclsh
 #
-# $Id: elite-reach,v 1.2 2003/02/25 00:25:38 mdw Exp $
+# $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 {
@@ -34,7 +30,6 @@ proc reach {dist seed} {
     }
     lappend pp $cc
   }
-  puts stderr " done\]\n"
   foreach cc $pp {
     set de 1
     set l {}
@@ -63,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 ...\]"