chiark / gitweb /
Make the fuel metric be lightyears, not decilightyears. Make summary
authormdw <mdw>
Tue, 4 Mar 2003 10:26:47 +0000 (10:26 +0000)
committermdw <mdw>
Tue, 4 Mar 2003 10:26:47 +0000 (10:26 +0000)
more compact (it was unnecessarily wide).

elite.tcl

index e652eff..fa81e4c 100644 (file)
--- a/elite.tcl
+++ b/elite.tcl
@@ -1,6 +1,6 @@
 #! /usr/bin/tclsh
 #
-# $Id: elite.tcl,v 1.4 2003/03/01 17:47:07 mdw Exp $
+# $Id: elite.tcl,v 1.5 2003/03/04 10:26:47 mdw Exp $
 
 package require "elite-bits" "1.0.0"
 
@@ -306,7 +306,7 @@ proc weight-hops {from to} {
 proc weight-fuel {from to} {
   elite-worldinfo f $from
   elite-worldinfo t $to
-  return [world-distance $f(x) $f(y) $t(x) $t(y)]
+  return [expr {[world-distance $f(x) $f(y) $t(x) $t(y)]/10.0}]
 }
 
 # --- weight-safety A B ---
@@ -435,7 +435,7 @@ proc in-galaxy-p {g pp} {
 proc world-summary {s} {
   global eco gov
   elite-worldinfo p $s
-  return [format "%-12s %4d %4d %-11s %-10s %2d %s" \
+  return [format "%-8s %4d %4d %-11s %-10s %2d %s" \
       $p(name) $p(x) $p(y) \
       $eco($p(economy)) $gov($p(government)) $p(techlevel) $p(seed)]
 }