- puts [format "%-11s %-11s (%.1f LY)" $a(name) [worldname $ss] \
- [expr {[world-distance $x $y $xx $yy]/10.0}]]
+ set d [expr {[world-distance $x $y $xx $yy]/10.0}]
+ if {$v} {
+ puts [format "%s (%.1f LY)" [world-summary $s] $d]
+ puts [world-summary $ss]
+ puts ""
+ } else {
+ puts [format "%-11s %-11s (%.1f LY)" $a(name) [worldname $ss] $d]
+ }