#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;
use Carp;
use Games::Traveller::UWP;
 
my $svgns = "http://www.w3.org/2000/svg";
my $xlinkns = "http://www.w3.org/1999/xlink";
 
# This is rough, ready and experimental!
 
# I'm learning SVG as I go, and feeling my way through this on the way
# Expect proper OO et al LATER.
 
# TODO
# * Moose
 
###########
# Load systems
use Data::Dumper;
my @system_data = ();
 
while (my $line = <STDIN>) {
    chomp $line;
    my $uwp = Games::Traveller::UWP->new();
    $uwp->readUwp( $line );
    if (defined $uwp->name()) {
        my $col = $uwp->col();
        my $row = $uwp->row();
        unless (defined $system_data[$col]) {
            $system_data[$col] = [];
        }
        $system_data[$col][$row] = $uwp;
    }
    if ($uwp->bases) {
        print Dumper $uwp->bases;
        print "\n";
    }
}
exit();
# Done loading subsectors
###########
 
 
my $doc = XML::LibXML->createDocument();
$doc->setStandalone(1);
 
my %root_attributes = (
                    width =>   "744.09448", #"230mm",
                    height => "1052.3622",  #"190mm",
                    viewBox => "0 0 3000 5255",
# For sectors                    viewBox => "0 0 12000 " . (5255 * 4),
                    );
my $root = $doc->createElementNS($svgns, 'svg');
for my $key (keys %root_attributes) {
    my $value = $root_attributes{$key};
    $root->setAttribute($key, $value);
}
$doc->setDocumentElement($root);
 
my $pirate_path = q(M 4.29973999999993,53.46646 C 0,51.96806 1.53786000000002,49.82682 8.79973999999993,47.2009 C 12.64974,45.80872 15.7997399999999,43.92422 15.7997399999999,43.0131 C 15.7997399999999,40.96064 10.74334,38.92858 5.63616000000002,38.92858 C 3.52613999999994,38.92858 1.79973999999993,37.57858 1.79973999999993,35.92858 C 1.79973999999993,34.27858 3.14973999999995,32.92858 4.79973999999993,32.92858 C 6.44974000000002,32.92858 7.79973999999993,33.7194 7.79973999999993,34.68594 C 7.79973999999993,35.65248 10.4795399999999,37.5533 13.7548399999999,38.90998 C 18.95418,41.06362 20.6433999999999,40.8259 27.06528,37.0368999999999 C 32.88212,33.6049 34.76242,33.24428 36.05468,35.31286 C 37.232,37.19748 35.74772,38.40336 30.7442199999999,39.62726 C 21.87884,41.7958 21.99072,43.61438 31.2601599999999,48.01302 C 37.5092999999999,50.97844 38.11272,51.76644 34.97668,52.86652 C 32.47766,53.74312 29.69472,52.64174 26.60716,49.5542 C 20.76584,43.71286 17.56146,43.72968 11.57246,49.63312 C 8.94745999999998,52.2206199999999 5.67473999999993,53.94562 4.29973999999993,53.46646 z M 14.41354,29.60716 C 11.72802,27.5035799999999 7.27328,16.6355599999999 6.97442000000001,10.5750399999999 L 7.10353999999995,10.11074 C 9.07164,3.56769999999995 16.6545599999999,0 19.17274,0 C 24.3481399999999,0 30.01402,4.07431999999994 30.90688,10.38482 C 31.7480399999999,16.97132 28.38392,23.9756199999999 24.5642399999999,29.6951 C 23.48378,31.31298 22.22482,32.71794 19.7097199999999,32.92858 C 19.0001999999999,32.92858 16.02764,31.53216 14.41354,29.60716 z M 17.7997399999999,15.92858 C 17.7997399999999,14.27858 16.44974,12.92858 14.7997399999999,12.92858 C 13.14974,12.92858 11.7997399999999,14.27858 11.7997399999999,15.92858 C 11.7997399999999,17.57858 13.14974,18.92858 14.7997399999999,18.92858 C 16.44974,18.92858 17.7997399999999,17.57858 17.7997399999999,15.92858 z M 27.7997399999999,15.92858 C 27.7997399999999,14.27858 26.44974,12.92858 24.7997399999999,12.92858 C 23.14974,12.92858 21.7997399999999,14.27858 21.7997399999999,15.92858 C 21.7997399999999,17.57858 23.14974,18.92858 24.7997399999999,18.92858 C 26.44974,18.92858 27.7997399999999,17.57858 27.7997399999999,15.92858 z);
my $research_path = q(M 48.0872856321839,7.21387987012987 L 40.7327586206897,7.21387987012987 L 36.4897626436782,29.4490668831169 C 36.0856333333333,31.7015188311688 35.7825626436782,33.5278162337662 35.5805494252874,34.927962987013 C 35.378467816092,36.3281376623377 35.2774442528736,37.3630396103896 35.2774781609195,38.0326707792208 C 35.2774442528736,39.798101948052 35.5939850574713,41.0536811688312 36.2271011494253,41.7994116883117 C 36.8601477011494,42.5451564935065 37.9175281609195,42.918025974026 39.3992454022988,42.9180194805195 C 39.8571810344828,42.918025974026 40.3959735632184,42.8799779220779 41.0156247126437,42.803875974026 C 41.6351965517241,42.7277863636364 42.4433856321839,42.6136428571429 43.4401936781609,42.4614448051948 L 42.2279091954023,48.8991480519481 C 41.4196798850575,49.1426538961039 40.6451655172414,49.3252837662338 39.9043643678161,49.4470376623377 C 39.1634856321839,49.5687902597403 38.4428505747126,49.6296668831169 37.7424568965517,49.6296675324675 C 34.5635442528736,49.6296668831169 32.1591821839081,48.8534902597403 30.5293643678161,47.3011363636364 C 28.8994873563218,45.7487857142857 28.0845637931034,43.4506954545454 28.0845902298851,40.4068590909091 C 28.0845637931034,39.0067064935065 28.2259965517241,37.210848051948 28.5088902298851,35.0192779220779 C 28.7917287356322,32.8277357142857 29.3911356321839,29.281675974026 30.3071120689655,24.3810876623377 L 33.5398706896552,7.21387987012987 L 20.3663793103448,7.21387987012987 L 12.5269396551724,48.8991480519481 L 5.21282298850575,48.8991480519481 L 13.0926724137931,7.21387987012987 L 11.4358833333333,7.21387987012987 C 9.98113333333333,7.21392207792208 8.84966896551724,7.70093441558441 8.0414867816092,8.67491883116883 C 7.23329137931035,9.64898441558442 6.7079683908046,11.1861175324675 6.46551724137931,13.2863233766234 L 0,13.2863233766234 C 0.75431091954023,8.2336038961039 2.09455747126437,4.75603051948052 4.02074367816092,2.85359220779221 C 5.94692413793103,0.951245454545455 9.13253505747127,4.93506493506266e-05 13.5775862068966,0 L 49.5016189655172,0 L 48.0872856321839,7.21387987012987 z);
 
 
my $style_text = qq(
                .hex {
                        fill: white;
                        stroke: #000;
                        stroke-width: 5px;
                        stroke-linejoin: miter
                }
                .coords {
                        fill: #666;
                        stroke: none;
		}
		text {
			fill: #000;
			stroke: none;
                        font-family: helvetica, arial;
                        font-size: 85px;
                        text-anchor: middle;
                }
		.systemName {
			stroke: #fff;
			stroke-width: 1px;
			font-weight: bold;
			font-family: deja vu sans, verdana;
		}
		.planet {
			fill: #000;
			stroke: none;
		}
		.travel_zone,
		.ring {
			fill: none;
			stroke: #000;
			stroke-width: 3px;
		}
		.travel_zone.red {
			fill: #ddd;
		}
		.base {
			fill: #000;
			stroke: #fff;
			stroke-width: 3px;
		}
		.TAS circle {
			fill: #fff;
			stroke: none;
		}
		.TAS polygon {
			fill: #000;
			stroke: #fff;
			stroke-width: 3px;
		}
);
my $style = $doc->createElementNS($svgns, 'style');
$style->setAttribute('type', 'text/css');
my $style_text_node = $doc->createTextNode($style_text);
$style->appendChild($style_text_node);
$root->appendChild($style);
 
my @systems = ();
for (1..10) {
    $systems[$_] = ();
}
 
# For subsectors
for my $col (1..10) {
	for my $row (1..8) {
 
        my $uwp;
        if ($system_data[$col] && $system_data[$col][$row]) {
            $uwp = $system_data[$col][$row];
        }
 
## For sectors
#for my $col (1..40) {
#	for my $row (1..32) {
 
		my $hex = createHex($col,$row, $uwp);
		$root->appendChild($hex);
	}
}
 
 
print $doc->toString(2);
 
sub createHex {
    my ($row, $col, $uwp) = @_;
    my $id = sprintf("hex-%02d%02d", $col, $row);
    my $hex = $doc->createElementNS($svgns, 'svg');
    $hex->setAttribute('id', $id);
    my $x_shift = 350 * ($col - 1);
    my $y_shift = 500 * ($row - 1);
       unless ($col % 2) {
            $y_shift = $y_shift + 250;
        }
    $hex->setAttribute('x', $x_shift);
    $hex->setAttribute('y', $y_shift);
 
    my $hex_line = createHexLine();
 
    $hex->appendChild($hex_line);
    
    if (my $zone = $uwp->zone) {
        $hex->appendChild(createTravelZone( ($zone eq "A") ? 'amber' : 'red'));
    }
 
    my $hex_label = createHexLabel($col, $row);
    $hex->appendChild($hex_label);
 
    $hex->appendChild(createPlanet());
    # TODO - find out how to represent gas giants
    #$hex->appendChild(createGasGiant());
    $hex->appendChild(createScoutBase());
    $hex->appendChild(createNavalBase());
    $hex->appendChild(createImperialConsulateBase());
    $hex->appendChild(createTASBase());
    $hex->appendChild(createPirateBase());
    $hex->appendChild(createResearchBase());
    $hex->appendChild(createStarport('B'));
    $hex->appendChild(createSystemName('Sol'));
 
    return $hex;
}
 
sub createHexLine {
    my $hex_line;
    $hex_line = $doc->createElementNS($svgns, 'polygon');
    $hex_line->setAttribute('class', 'hex');
    $hex_line->setAttribute('points', '150,0 350,0 500,250 350,500 150,500 0,250');
    return $hex_line;
}
 
sub createHexLabel {
	my $col = shift;
	my $row = shift;
	my %attributes = (x => 250, y => 90, class => 'coords');
        my $text = createSvgElement('text', %attributes);
	my $tNode = $doc->createTextNode(sprintf("%02d%02d", $col, $row));	
	$text->appendChild($tNode);
	return $text;
}
 
sub createPlanet {
	return createSvgElement('circle', cx => 250, cy => 250, r => 25, class => 'planet'); 
}
 
sub createTravelZone {
	my $zone_type = shift;
	return createSvgElement('circle', cx => 250, cy => 250, r => 150, class => "travel_zone $zone_type"); 
}
 
 
sub createSvgElement {
	my $name = shift;
	my %attributes = @_;
	my $element = $doc->createElementNS($svgns, $name);
	for my $key (keys %attributes) {
		$element->setAttribute($key, $attributes{$key});
	}	
	return $element;
}
 
 
sub createScoutBase {
    my $container = createSvgElement('svg', x => 80, y => 175, height => 70, width => 70, class => "scout base");
    $container->appendChild(createTitle('Scout base'));
    my $s = createSvgElement('polygon', 'points' => '0,40 50,40 25,0');
    $container->appendChild($s);
    return $container;
}
 
sub createGasGiant {
	my $container = createSvgElement('svg', x => 300, y => 100, height => 70, width => 70);
        $container->appendChild(createTitle('Gas giant'));
	my $e = createSvgElement('ellipse', cx => 35, cy => 35, rx => 35, ry => 12, class => 'ring',
					transform => "rotate(-22 35 35)") ;
	my $p = createSvgElement('circle', cx => 35, cy => 35, r => 20, class => 'planet');
	$container->appendChild($e);
	$container->appendChild($p);
	return $container;
}
 
sub createNavalBase {
	my $container = createSvgElement('svg', x => 145, y => 100, height => 50, width => 50);
        $container->appendChild(createTitle('Naval base'));
	my $s = createSvgElement('polygon', class => 'naval base', points => '25,0 31.09,18.07 50,18.07 34.87,29.41 40.34,47.48 25,36.76 9.66,47.48 15.13,29.41 0,18.07 18.91,18.07');
	$container->appendChild($s);
	return $container;
}
 
sub createImperialConsulateBase {
    	my $container = createSvgElement('svg', x => 90, y => 290, height => 50, width => 50, class => "imperialConsulate base");
        $container->appendChild(createTitle('Imperial Consulate base'));
	my $s = createSvgElement('rect', class => 'imperialConsulate base', x => 5, y => 5, height => 40, width => 40);
        $container->appendChild($s);
	return $container;
}
 
 
sub createTASBase {
	my $container = createSvgElement('svg', x => 75, y => 230, height => 50, width => 50, class => "TAS");
        $container->appendChild(createTitle('TAS base'));
	my $c = createSvgElement('circle', cx => 25, cy => 25, r => 12);
	my @outer = pointsOnCircle(9,22,25,25);
	my @inner = pointsOnCircle(9,14,25,25, 0.5);
	my $points = '';
	my $l = scalar @outer - 1 ;
	for my $pos ( 0..$l) {
		my $opoint = $outer[$pos]->{x} . ',' . $outer[$pos]->{y} . ' ';
		my $ipoint = $inner[$pos]->{x} . ',' . $inner[$pos]->{y} . ' ';
		$points .= $opoint . $ipoint;
	}
	my $p = createSvgElement('polygon', points => $points, style => 'fill: black;');
	$container->appendChild($p);
	$container->appendChild($c);
	return $container;
}
 
sub createPirateBase {
	my $container = createSvgElement('svg', x => 110, y => 125, height => 55, width => 55, class => "Pirate");
        $container->appendChild(createTitle('Pirate base'));
	my $p = createSvgElement('path', d => $pirate_path, style => "fill: #000");
	$container->appendChild($p);
	return $container;
}
 
sub createResearchBase {
	my $container = createSvgElement('svg', x => 130, y => 340, height => 55, width => 55, class => "Research");
        $container->appendChild(createTitle('Research base'));
        my $p = createSvgElement('path', d => $research_path, style => "fill: #000");
        $container->appendChild($p);
	return $container;
}
 
sub createTitle {
    my $title = shift;
    my $e = createSvgElement('title');
    my $n = $doc->createTextNode($title);
    $e->appendChild($n);
    return $e;
}
 
sub createStarport {
	my $class = shift;
        my $container = createSvgElement('svg', x => 0, y => 110, height => 250, width => 500, class => "starport");
        $container->appendChild(createTitle('Starport Class'));
	my %attributes = (x => 250, y => 85, class => 'starport');
        my $text = createSvgElement('text', %attributes);
	my $tNode = $doc->createTextNode($class);	
	$text->appendChild($tNode);
	$container->appendChild($text);
	return $container;
}
 
 
sub createSystemName {
	my $name = shift;
        my $container = createSvgElement('svg', x => 0, y => 360, height => 250, width => 500, class => "starport");
        $container->appendChild(createTitle('System name'));
	my %attributes = (x => 250, y => 85, class => 'systemName');
        my $text = createSvgElement('text', %attributes);
	my $tNode = $doc->createTextNode($name);	
	$text->appendChild($tNode);
	$container->appendChild($text);
	return $container;
}
 
use Math::Trig;
sub pointsOnCircle {
	my $points = shift;
	my $r = shift;
	my $cx = shift;
	my $cy = shift;
	my $offset = shift || 0;
 
	my @coords;
 
	my $angle = 2 * pi / $points;
	for (1..$points) {
		my $t = ($_ + $offset) * $angle;
		my $coord = {
			x => $cy + cos($t) * $r,
			y => $cx + sin($t) * $r
		};
		push @coords, $coord;
	}
	return @coords;
}
 
=head1 COPYRIGHT & LICENSE
 
Copyright 2008-2009 David Dorward
 
This program is free software; you can redistribute it and/or
modify it under the terms of the Artistic License version 2.0.
 
You are encouraged to contact the author if you wish to discuss
alternative licensing terms.
 
=back