#! /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 {
}
lappend pp $cc
}
- puts stderr " done\]\n"
foreach cc $pp {
set de 1
set l {}
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 ...\]"