-# --- worldinfo GAL ---
-#
-# Return a list describing the worlds in galaxy GAL (a seed). The list
-# contains a group of three elements for each world: the seed, x and y
-# coordinates (in decilightyears).
-
-proc worldinfo {g} {
- foreach-world $g p {
- lappend i $p(seed) $p(x) $p(y)
- }
- return $i
-}
-
-# --- world-distance X Y XX YY ---
-#
-# Computes the correct game distance in decilightyears between two worlds,
-# one at X, Y and the other at XX, YY.
-
-proc world-distance {x y xx yy} {
- set dx [expr {abs($x - $xx)/4}]
- set dy [expr {abs($y - $yy)/4}]
- return [expr {4 * floor(sqrt($dx * $dx + $dy * $dy))}]
-}
-