3 # $Id: elite-pairs,v 1.4 2003/03/07 00:41:46 mdw Exp $
5 package require "elite" "1.0.1"
12 if {[array exists var]} {
13 foreach {k d} [array get var] {
14 $ip eval [list set ${v}($k) $d]
17 $ip eval [list set $v $var]
21 foreach {k v} [array get p] {
22 $ip eval [list set $k $v]
24 if {[catch { $ip eval [list expr $expr] } rc]} {
25 puts stderr "$argv0: error in expression: $rc"
35 for {set i 0} {$i < [llength $argv]} {incr i} {
36 set a [lindex $argv $i]
40 set a [lindex $argv $i]
41 set g [parse-galaxy-spec $a]
42 if {[string equal $g ""]} {
43 puts stderr "$argv0: bad galaxy string `$a'"
50 set d [expr {int([lindex $argv $i] * 10)}]
63 puts stderr "usage: $argv0 \[-qv\] \[-g GALAXY\] \[-d DIST\] AEXPR BEXPR"
71 if {$i != [llength $argv] - 2} {
72 puts stderr "usage: $argv0 \[-g GALAXY\] \[-d DIST\] AEXPR BEXPR"
75 destructure {aexpr bexpr} [lrange $argv $i end]
76 set ww [elite-galaxylist $g]
77 elite-adjacency adj $ww $d
80 if {![ok $s {} $aexpr]} { continue }
83 foreach {ss xx yy} $adj($s) {
84 set d [elite-distance $x $y $xx $yy]
85 if {[ok $ss {a d} $bexpr]} {
86 set d [expr {[elite-distance $x $y $xx $yy]/10.0}]
88 puts [format "%s (%.1f LY)" [world-summary $s] $d]
89 puts [world-summary $ss]
92 puts [format "%-11s %-11s (%.1f LY)" $a(name) [worldname $ss] $d]