astromapper 1.0.2

data/.gitignore

@@ -0,0 +1,18 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+Puzzle

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in astromapper.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 Merovex
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,124 @@
+Traveller Astromapper
+==========================
+
+The **Traveller Astromapper** creates random Traveller star maps intended for YOTS.
+
+The maps are generated using an inspired amalgam of [Mongoose](http://www.mongoosepublishing.com/rpgs/traveller/core-rulebooks-accessories.html) and [Classic Traveller](http://www.farfuture.net/) rules, with some [Gurps Space](http://www.sjgames.com/gurps/books/space/) 4e and 3e.
+
+Mongoose rules are used when generating the World characteristics. Classic Traveller is used when fleshing out star system details such as stars, non-world orbits, presence of companion stars. Gurps is used to flesh out star characteristics and the impact of a companion star on the primary's orbits.
+
+* Sector: 40x32 hex grid
+* Tract:  8x10 hex grid (Traveller Subsector)
+* Volume: 1-hex
+* World: primary inhabited planet.
+* Orbit: A slot around primary star, may include companion stars, planets, belts or nothing.
+
+Installation
+============
+
+This software relies upon Ruby 1.9.2+.
+
+To convert from SVG to JPG, PNG, GIF you will need to install Imagemagick with -rsvg flag (later feature).
+
+How to Use Traveller Astromapper
+======================
+
+To create a new Traveller Astromapper project, execute the following on the command line:
+
+```
+astromapper new yots_sector
+```
+
+The command creates the following directory structure:
+
+```
+yots_sector
+├── _astromapper.yml
+├── output
+└── templates
+    └── names.yml
+```
+
+ASCII Output
+------------
+
+The block below shows Traveller Astromapper's ASCII output. The top row is the key system aspects: Volume ID, World UWP, Temperature, Presence of Bases & Gas Giants, Trade Codes, Stars, Primary Star's Orbits, Name. The rows that follow elaborate the primary star's orbits. Rows with two dashes are the Primary's orbits, orbit type, UWP, and orbit distance (usable for travel and year length). Other rows with the '/' are that orbit's satellites. When the UWP is dots, that orbit is empty.
+
+```
+1201 E949556-5 T ..G.. .. Lt,NI                     F0IV/DB           R..WGG..S         Secundus
+  --  1.    R // X600000-0 //  0.4 au
+                            /    7 rad. X420000
+                            /    9 rad. X620000
+  --  2.    . // .......-. //  0.7 au
+  --  3.    . // .......-. //  1.4 au
+  --  4. *  W // E949556-5 //  2.8 au
+  --  5.    G // Large GG  //  5.6 au
+  --  6.    G // Large GG  // 11.2 au
+                            /    1 rad. XR00000
+                            /    6 rad. X402000
+                            /    7 rad. X405000
+                            /    9 rad. X100000
+                            /   10 rad. X302000
+  --  7.    . // .......-. // 22.4 au
+  --  8.    . // .......-. // 44.8 au
+  --  9. -  S // DB        // 89.6 au
+```
+
+To generate a (mostly) random Traveller sector in the ASCII format, execute the following on the command line:
+
+```
+astromapper generate
+```
+
+SVG Output
+----------
+
+Traveller Astromapper converts the ASCII output as described above to create an SVG file describing the key aspects of a volume. This includes the Star type, Starport, Name and the presence of bases (Navy, Scout, etc.) and Gas Giants.
+
+To convert that ASCII into an SVG image, execut the following:
+
+```
+astrographer svg
+```
+
+Copyright
+=========
+
+Copyright 2012--13, Benjamin C. Wilson. All Rights Reserved.
+
+You may not use this work for commercial purposes. You may not alter, transform or build upon this work. Any of the above conditions can be waived if you get permission from the copyright holder. Where the work or any of its elements is in the public domain under applicable law, that status is in no way affected by the license. For any reuse or distribution, you must make clear to others the license terms of this work. In no way are any of the following rights affected by the license:
+
+* Your fair dealing or fair use rights, or other applicable copyright exceptions and limitations;
+* The author's moral rights;
+* Rights other persons may have either in the work itself or in how the work is used, such as publicity or privacy rights.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Product names, logos, brands, and other trademarks featured or referred to in  software are the property of their respective trademark holders. Usage of those marks does not convey sponsorship or endorsement of this generator.
+
+Credits
+=======
+
+SVG Output uses some algorithms from [phreeow.net Perl mapping software](http://www.phreeow.net/wiki/tiki-index.php?page=Subsector+mapping+and+generating+software) with drawing hexes in the Classic Traveller way.
+
+Known bugs
+===========
+* If the dice pool is too small, the generated output will repeat.
+
+Troubleshooting
+===============
+
+Changelog
+=========
+
+Version 0.1 (1 March 2012) 
+--------------------------
+* Initially written
+* Generate Sector Map
+* Convert to SVG
+
+Version 1.0 (7 April 2013)
+--------------------------
+* Re-implemented as Ruby Gem
+
+* A News sections might also be include to lists project updates for users.

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/astromapper.gemspec

@@ -0,0 +1,29 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+
+require 'astromapper/version'
+
+Gem::Specification.new do |s|
+  s.name          = "astromapper"
+  s.version       = Astromapper::VERSION
+  s.authors       = ["Merovex"]
+  s.email         = ["dausha@gmail.com"]
+  s.description   = %q{Astromapper generates Traveller RPG Star Charts (from Sector to Domain).}
+  s.summary       = %q{Generating Traveller RPG Star Charts for YOTS}
+  s.homepage      = ""
+  s.license       = "MIT"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  s.add_development_dependency "bundler", "~> 1.3"
+  s.add_development_dependency "rake"
+  s.add_development_dependency "rspec", "~> 2.6"
+  s.add_development_dependency "cucumber"
+  s.add_development_dependency "aruba"
+  s.add_dependency "activesupport"
+  s.add_dependency "thor"
+end

data/bin/astromapper

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+# -*- mode: ruby -*-
+
+require "astromapper"
+Astromapper::Cli.start

data/lib/astromapper.rb

@@ -0,0 +1,54 @@
+
+# require "awesome_print"
+require "active_support/all"
+# require "notifier"
+require "pathname"
+require "thor"
+require "thor/group"
+require "yaml"
+
+module Astromapper
+  require 'astromapper/extensions/float'
+  require 'astromapper/extensions/integer'
+  require 'astromapper/extensions/string'
+
+  autoload :Builder,     "astromapper/builder"
+  autoload :Cli,        "astromapper/cli"
+  # autoload :Dependency, "astromapper/dependency"
+  autoload :Exporter,   "astromapper/exporter"
+  autoload :Generator,  "astromapper/generator"
+  # autoload :Stats,      "astromapper/stats"
+  # autoload :Stream,     "astromapper/stream"
+  # autoload :TOC,        "astromapper/toc"
+  autoload :Svg,        "astromapper/svg"
+  autoload :Version,    "astromapper/version"
+
+	Encoding.default_internal = "utf-8"
+	Encoding.default_external = "utf-8"
+  def self.config(root_dir = nil)
+    root_dir ||= Pathname.new(Dir.pwd)
+    path = root_dir.join("_astromapper.yml")
+
+    raise "Invalid Bookmaker directory; couldn't found #{path} file." unless File.file?(path)
+    content = File.read(path)
+    erb = ERB.new(content).result
+
+    YAML.load(erb)#.with_indifferent_access
+  end
+  def self.output_file(ext="txt")
+    "output/#{config['name'].to_permalink}.#{ext}"
+  end
+  def self.names(root_dir = nil)
+    root_dir ||= Pathname.new(Dir.pwd)
+    path = root_dir.join("templates/names.yml")
+
+    raise "Invalid Bookmaker directory; couldn't found #{path} file." unless File.file?(path)
+    content = File.read(path)
+    erb = ERB.new(content).result
+
+    @names = YAML.load(erb)#.with_indifferent_access
+  end
+  def self.logger
+     @logger ||= Logger.new(File.open("/tmp/astromapper.log", "a"))
+  end
+end

data/lib/astromapper/builder.rb

@@ -0,0 +1,43 @@
+require 'open3'
+
+module Astromapper
+  module Builder
+    autoload :Orbit, "astromapper/builder/orbit"
+    autoload :Sector, "astromapper/builder/sector"
+    autoload :Star, "astromapper/builder/star"
+    autoload :Volume, "astromapper/builder/volume"
+
+    class Base
+      attr_accessor :root_dir
+
+      def self.constitute(root_dir)
+        new(root_dir).constitute
+      end
+      def initialize(root_dir)
+        @root_dir = Pathname.new(root_dir)
+      end
+
+      def config
+        Astromapper.config(root_dir)
+      end
+      def toss(a=2,b=2)
+        (a.d6 - b).whole
+        # (@@dice.roll(a) - b).whole
+      end
+      def names
+        Astromapper.names
+      end
+
+      def spawn_command(cmd)
+        begin
+          stdout_and_stderr, status = Open3.capture2e(*cmd)
+        rescue Errno::ENOENT => e
+          puts e.message
+        else
+          puts stdout_and_stderr unless status.success?
+          status.success?
+        end
+      end
+    end
+  end
+end

data/lib/astromapper/builder/orbit.rb

@@ -0,0 +1,370 @@
+module Astromapper
+  module Builder
+
+    # Class Orbit
+    class Orbit < Astromapper::Builder::Base
+      attr_accessor :id, :kid, :au, :port, :orbit_number, :xsize
+      def initialize(star,orbit_number,companion=nil)
+        @orbit_number = orbit_number.round
+        @au = star.orbit_to_au(orbit_number)
+        @kid   = '.'
+        @star  = star
+        @atmo  = 0
+        @moons = 0
+        @h20   = 0
+        @popx  = 0
+        @tek   = 0
+        @port  = 'X'
+        @govm  = 0
+        @law   = 0
+        @xsize = '.'
+        begin
+          @zone = case
+            when @au < @star.biozone[0] then -1 # Inside
+            when @au > @star.biozone[1] then 1  # Outside
+            else 0
+          end
+          @distant = (@au > @star.biozone[1] * 10)
+        rescue
+          # There is no biozone, so all is "inside"
+          @zone = -1
+          @distant = 1000
+        end
+      end
+      def uwp
+        '.......-.' # "%s%s%s%s%s%s%s-%s" % [port, @size.hexd, @atmo.hexd, @h20.hexd, @popx.hexd, @govm.hexd, @law.hexd, @tek.hexd]
+      end
+      def port
+        @port || 'X'
+      end
+      def populate
+        case
+          when @au > @star.outer_limit then return self
+          when limit? then return self
+          when inner? then populate_inner
+          when outer? then populate_outer
+          else populate_biozone
+        end
+      end
+      def populate_biozone
+        return World.new(@star, @orbit_number)
+        roll = toss(2,0)
+        return (roll < 12) ? World.new(@star, @orbit_number) : GasGiant.new(@star, @orbit_number)
+      end
+      def populate_inner
+        roll = toss(2,0)
+        return case
+          when roll < 5 then self
+          when (5..6) === roll   then Hostile.new(@star, @orbit_number)
+          when (7..9) === roll   then Rockball.new(@star, @orbit_number)
+          when (10..11) === roll then Belt.new(@star, @orbit_number)   
+          else GasGiant.new(@star, @orbit_number)
+        end
+      end
+      def populate_outer
+        roll = toss(1,0)
+        roll += 1 if distant?
+        return case
+          when roll == 1 then Rockball.new(@star, @orbit_number)
+          when roll == 2 then Belt.new(@star, @orbit_number)
+          when roll == 3 then self
+          when (4..7) === roll then GasGiant.new(@star, @orbit_number)
+          else Rockball.new(@star, @orbit_number)
+        end
+      end
+      def to_s
+        @kid
+      end
+      def to_ascii
+        bio = (@zone == 0 ) ? '*' : ' '
+        bio = '-' if @au > @star.outer_limit
+        output = "  -- %2s. %s  %s // %s // %4.1f au" % [@orbit_number + 1, bio, @kid, self.uwp, @au]
+        @moons.each {|m| output += m.to_ascii} unless @moons.nil? or @moons == 0
+        output
+        
+      end
+      def period; (@au * 365.25).round(2); end
+      def km; return (150000000 * @au).to_i; end
+      def radii; (@au * 200).to_i; end
+      def limit?;   return @au < @star.limit ; end
+      def inner?;   return @zone < 0; end
+      def outer?;   return @zone > 0; end
+      def biozone?; return @zone == 0; end
+      def distant?; @distant; end
+    end # End Orbit
+
+    class Companion<Orbit
+      def initialize(star,orbit_number,companion)
+        @star = star
+        @comp = companion
+        super
+        @kid = 'S'
+      end
+      def uwp
+        "%-9s" % [@comp.classification]
+      end
+    end
+    class Belt<Orbit
+      def initialize(star,orbit_number)
+        super
+        @kid = 'B'
+      end
+      def uwp
+        'XR00000-0'
+      end
+    end
+
+
+    class Planet<Orbit
+      def initialize(star,orbit_number)
+        super
+        @moons = make_moons(toss(1,3))
+        @size = toss if @size.nil? or @size == 0
+      end
+      def make_moons(c)
+        moons = {}
+        c.times { |i|
+          m = Moon.new(self,i)
+          moons["#{m.orbit}"] = m
+        }
+        moons.values.sort{ |a,b| a.orbit <=> b.orbit } unless @moons.size < 2
+      end
+      def uwp
+        "%s%s%s%s%s%s%s-%s" % [port, @size.hexd, @atmo.hexd, @h20.hexd, @popx.hexd, @govm.hexd, @law.hexd, @tek.hexd]
+      end
+    end
+
+    class Rockball<Planet
+      def initialize(star,orbit_number)
+        super
+        @kid = 'R'
+      end
+    end
+
+    class Hostile<Planet
+      def initialize(star,orbit_number)
+        super
+        @atmo = [10,11,12,13,14].sample
+        @hydro = toss(2,4)
+        @kid = 'H'
+      end
+    end
+
+    class GasGiant<Planet
+      def initialize(star,orbit_number)
+        super
+        @xsize = (toss(1,0) < 4) ? 'L' : 'S'
+        moons = toss(2,0)
+        moons = (moons - 4).whole if @xsize == 'S'
+        @moons = make_moons(moons)
+        @kid = 'G'
+      end
+      def uwp
+        (@xsize == 'S') ? 'Small GG ' : 'Large GG '
+      end
+    end
+
+    class Terrestrial<Planet  
+      def initialize(star,orbit_number)
+        super
+        @kid       = 'R'
+        
+        # Size, Climate & Biosphere. MgT 170--71.
+        @size      = toss(2,1)
+        @atmo      = toss()
+                                # 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F 
+        temp_dice  = toss(2,0) + [0, 0,-2,-2,-1,-1, 0, 0, 1, 1, 2, 6, 6, 2,-1, 2][@atmo]
+        
+        @temp      = %w{F F F C C T T T T T H H R R R R R }[temp_dice]
+        
+        # Hydrographics. MgT p. 172
+        @h20 = case 
+          when (@size < 2 or !biozone?) then 0
+          when ([0,1,10,11,12].include?(@atmo)) then (toss(2,11) + @size).max(10)
+          else @h20  = (toss(2,7) + @size).max(10)
+        end
+        @h20 -= 2 if @temp == 'H'
+        @h20 -= 6 if @temp == 'R'
+        @h20 = @h20.whole
+        
+        # Adjust Atmosphere and Hydrographics when not Normal. MgT p. 180.
+        if (%{opera firm}.include?(config['genre'].downcase))
+          @atmo = case
+            when (@size < 3 or (@size < 4 and @atmo < 3)) then 0
+            when ([3,4].include?(@size) and (3..5).include?(@atmo)) then 1
+            when ([3,4].include?(@size) and @atmo > 5) then 10
+            else @atmo
+          end
+          @h20 -= 6 if (((3..4).include?(@size) and @atmo == 'A' ) or @atmo < 2)
+          @h20 -= 4 if ([2,3,11,12].include?(@atmo))
+        end
+      end
+    end # End Terrestrial
+
+    #===============
+    # Big Dea
+    # 
+    # 
+    #
+    #
+    #
+    #
+    #
+    #
+
+   class World<Terrestrial
+      attr_accessor :factions, :temp, :gas_giant
+      def initialize(star,orbit_number)
+        super
+        
+        @port_roll = toss(2,0)
+        
+        @kid = 'W'
+        @popx = toss()
+        if ('firm' == config['genre'].downcase)
+          @popx -= 1 if (@size < 3 or @size > 9)
+          @popx += [-1, -1, -1, -1, -1, 1, 1, -1, 1, -1, -1, -1, -1, -1, -1, -1][@atmo]
+          @port_roll = (@port_roll - 7 + @popx.whole).whole
+        end
+        @popx = @popx.whole
+        
+        # Government & Law. MgT p. 173
+        @govm = (toss(2,7) + @popx).whole
+        @law  = (toss(2,7) + @govm).whole
+
+        # Identify Factions. MgT p. 173
+        fax_r = 1.d3.max(3)
+        fax_r += 1 if [0,7].include?(@law)
+        fax_r -= 1 if @law > 9
+        rolls = [toss(2,0),toss(2,0),toss(2,0),toss(2,0),toss(2,0)]
+        @factions = (@popx == 0) ? [] : fax_r.times.map { |r| %w{O O O O F F M M N N S S P}[rolls.shift] }
+        
+        # Set Technology die modifier based on World attributes. MgT p. 170
+        tek_dm = { 'A' => 6, 'B' => 4, 'C' => 2, 'D' => 0, 'E' => 0, 'X' => -4}[port]
+        tek_dm += [2,2,1,1,1,0,0,0,0,0,0,0,0,0,0,0][@size]
+        tek_dm += [1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1][@atmo]
+        tek_dm += [1,0,0,0,0,0,0,0,0,1,2][@h20]
+        tek_dm += [0,1,1,1,1,1,0,0,0,1,2,3,4][@popx]
+        tek_dm += [1,0,0,0,0,1,0,2,0,0,0,0,0,-2,-2,0][@govm]
+        tek_limit = environmental_tek_limits[@atmo]
+        @tek = (toss(1,0) + tek_dm).min( tek_limit ) # MgT p. 179 Environmental Limits
+        
+        # For those who want to limit technology
+        @tek  = @tek.max(config['tech_cap']) unless config['tech_cap'].nil?
+        @tek  = @tek.min(tek_limit)
+        @tek  = @tek.min(@popx)
+        @law  = @govm = @tek = 0 if @popx == 0
+        
+        # Fix temperature (Me)
+        @temp = 'F' if (trade_codes.include?('IC') or trade_codes.include?('Va'))
+        @temp = 'T' if ((trade_codes.include?('Ag') or trade_codes.include?('Ga') or trade_codes.include?('Ri') or trade_codes.include?('Wa')) and @temp != 'T')
+
+        base = {      
+          "Navy"      => { 'A' => 8,  'B' => 8,  'C' => 20, 'D' => 20, 'E' => 20, 'X' => 20 }[port],
+          "Scout"     => { 'A' => 10, 'B' => 8,  'C' =>  8, 'D' =>  7, 'E' => 20, 'X' => 20 }[port],
+          "Consolate" => { 'A' => 6,  'B' => 8,  'C' => 10, 'D' => 20, 'E' => 20, 'X' => 20 }[port],
+          "Pirate"    => { 'A' => 20, 'B' => 12, 'C' => 10, 'D' => 12, 'E' => 20, 'X' => 20 }[port]
+        }
+
+        @base = {}
+        base.keys.each  {|key| @base[key] = (2.d6 > base[key] - 1) ? key[0] : '.'}
+      end
+      def travel_code
+        @code = (@atmo > 9 or [0,7,10].include?(@govm) or [0,9,10,11,12,13].include?(@law)) ? 'AZ' : '..'
+      end
+      def gravity
+        @gravity = [0,0.05,0.15,0.25,0.35,0.45,0.7,0.9,1.0,1.25,1.4][@size] if @gravity.nil?
+        @gravity
+      end
+      def bases
+        return [@base['Navy'],@base['Scout'],@gas_giant,@base['Consolate'],@base['Pirate']].join('')
+      end
+      def port
+        %w{X X X E E D D C C B B A A A A A A A A A}[@port_roll.whole]
+      end
+      def environmental_tek_limits
+        [8,8,5,5,3,0,0,3,0,8,9,10,5,8]
+      end
+      def empty?
+        (uwp.include?('X000000'))
+      end
+      def trade_codes
+        code = []
+        code << 'Ag' if ((4..9) === @atmo and (4..8) === @h20 and  (5..7) === @popx)
+        code << 'As' if (@size == 0 and @atmo == 0 and @h20 ==0)
+        code << 'Ba' if (@popx == 0 and @govm == 0 and @law == 0)
+        code << 'De' if (@atmo > 1 and @h20 == 0)
+        code << 'Fl' if (@atmo > 9 and @h20 > 0)
+        code << 'Ga' if (@size > 4 and (4..9) === @atmo and (4..8) === @hydro)
+        code << 'Hi' if (@popx > 8)
+        code << 'Ht' if (@tek > 12)
+        code << 'IC' if (@atmo < 2 and @h20 > 0)
+        code << 'In' if ([0,1,2,4,7,9].include?(@atmo) and @popx > 8)
+        code << 'Lo' if ((1..3) === @popx)
+        code << 'Lt' if (@tek < 6)
+        code << 'Na' if ((0..3) === @atmo and (0..3) === @h20 and @popx > 5)
+        code << 'NI' if ((4..6) === @popx)
+        code << 'Po' if ((2..5) === @atmo and (0..3) === @h20)
+        code << 'Ri' if ([6,8].include?(@atmo) and (6..8) === @popx)
+        code << 'Va' if (@atmo == 0)
+        code << 'Wa' if (@hydro == 10)
+        code
+      end
+    end # End World (Mainworld)
+
+    class Moon < Astromapper::Builder::Base
+      attr_accessor :orbit, :size, :h20
+      @@orbits = { 'C' => (1..14).to_a, 'R' => [1,1,1,2,2,3] }
+      @@orbits['F'] = @@orbits['C'].map{|c| c * 5}
+      @@orbits['E'] = @@orbits['C'].map{|c| c * 25}
+      
+      def initialize(planet,i=0)
+        @planet = planet
+        @popx = 0
+        @law  = 0
+        @tek  = 0
+        @govm = 0
+        @size = case
+          when @planet.xsize = 'L' then toss(2,4)
+          when @planet.xsize = 'S' then toss(2,6)
+          else @planet.size - toss(1,0)
+        end
+        orbit = toss(2,i)
+        @orbit = (case
+          when (@size < 1) then @@orbits['R'][toss(1,1)]
+          when (orbit == 12 and @planet.xsize == 'L') then @@orbits['E'][toss(2,0)]
+          when (orbit < 8) then @@orbits['C'][toss(2,0)]
+          when (orbit > 7) then @@orbits['C'][toss(2,0)]
+          else 0
+        end).whole
+        @h20 = (case
+          when (@planet.inner?) then 0
+          when (@size == 0)    then 0
+          when (@planet.outer?) then toss(2,4)
+          when (@planet.biozone?) then toss(2,7)
+          else 0
+        end).whole
+        @atmo = toss(2,7) + @size
+        @atmo = (case
+          when (@size == 0) then 0
+          when (@planet.inner?) then @atmo - 4
+          when (@planet.outer?) then @atmo - 4 
+          else 0
+        end).whole
+      end
+      def to_ascii
+        "\n%28s/  %3d rad. %s" % ['', @orbit, uwp]
+      end
+      def uwp
+        size = case
+          when @size < 0 then 'S'
+          when @size == 0 then 'R'
+          else @size.hexd
+        end
+        # size = (@size == 0) ? 'R' : @size.hexd
+        "%s%s%s%s%s%s%s" % ['X', size,@atmo.hexd,@h20.hexd,@popx.hexd,@govm.hexd,@law.hexd]
+      end
+    end # End Moon
+
+  end # End Builder
+end # End Astromapper