Highly compressed world-summary strings.

[rocl] / elite-pairs

diff --git a/elite-pairs b/elite-pairs
index 5a435cf1d6c7bcef3e7d4e930904ce907446b52d..700006bd3df4f77ea66e700a052dcd16638c3a99 100755 (executable)
--- a/elite-pairs
+++ b/elite-pairs
@@ -1,6 +1,6 @@
 #! /usr/bin/tclsh
 #
-# $Id: elite-pairs,v 1.4 2003/03/07 00:41:46 mdw Exp $
+# $Id$
 
 package require "elite" "1.0.1"
 
@@ -89,7 +89,8 @@ foreach {s x y} $ww {
        puts [world-summary $ss]
        puts ""
       } else {
-       puts [format "%-11s %-11s (%.1f LY)" $a(name) [worldname $ss] $d]
+       puts [format "%s  %s  (%.1f LY)" \
+                 [world-brief $s] [world-brief $ss] $d]
       }
     }
   }