diff options
Diffstat (limited to 'kgeography/tools')
| -rw-r--r-- | kgeography/tools/gen_map.pl | 244 |
1 files changed, 244 insertions, 0 deletions
diff --git a/kgeography/tools/gen_map.pl b/kgeography/tools/gen_map.pl new file mode 100644 index 00000000..60024a0b --- /dev/null +++ b/kgeography/tools/gen_map.pl @@ -0,0 +1,244 @@ +#!/usr/bin/perl +# +# +# Copyright (C) 2004 by Yann Verley +# yann.verley@free.fr +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# +# +# Last modification : 12 May 2004 + +use strict; + +sub print_colors +{ + my ($red, $green, $blue) = @_; + + print "\t\t<color>\n"; + print "\t\t\t<red>$red</red>\n"; + print "\t\t\t<green>$green</green>\n"; + print "\t\t\t<blue>$blue</blue>\n"; + print "\t\t</color>\n"; +} + +sub print_header +{ + my ($map_file, $map_name) = @_; + + print "<map>\n"; + + print "\t<mapFile>$map_file</mapFile>\n"; + print "\t<name>$map_name</name>\n"; +} + +sub print_new_division +{ + my ($name, $capital, $flag, $ignore, $red, $green, $blue) = @_; + + print "\t<division>\n"; + + print "\t\t<name>$name</name>\n"; + + if ($ignore eq "yes") + { + print "\t\t<ignore>yes</ignore>\n"; + } + + if ($flag ne "") + { + print "\t\t<flag>$flag</flag>\n"; + } + + if ($capital ne "") + { + print "\t\t<capital>$capital</capital>\n"; + } + + print_colors($red, $green, $blue); + + print "\t</division>\n"; +} + +sub print_end_of_file +{ + print "</map>\n"; +} + +sub usage +{ + print "Usage : gen_map.pl division_list.txt [ignored_list.txt]\n\n"; + + print "This script produces a kgm file to be used with KGeography.\n"; + print "It produces too a file, gimp_rgb.txt. This file can be used to help you\n"; + print "to fill the divisions in your map with an image processing program.\n\n"; + + print "Example :\n"; + print "gen_map.pl spain.txt ignored.txt >spain.kgm\n\n"; + + print "Example 1 of division_list.txt :\n"; + print "#division name;capital\n"; + print "Andalucia;Seville\n"; + print "Aragon;Zaragoza\n\n"; + + print "Example 2 of division_list.txt :\n"; + print "#division name;capital;flag file\n"; + print "Germany;Berlin;germany.png\n"; + print "France;Paris;france.png\n\n"; + + print "Example of ignored_list.txt :\n"; + print "#division name;red value;green value;blue value\n"; + print "Frontier;0;0;0\n"; + print "Water;50;50;255\n"; + exit; +} + +##################### +#BEGINNING OF PROGRAM +##################### + +my @div_name_list; +my @div_capital_list; +my @div_flag_list; +my @ign_name_list; +my @ign_red_list; +my @ign_green_list; +my @ign_blue_list; + + +if (($ARGV[0] eq "") or ($ARGV[0] eq "-h")) +{ + usage(); +} + +open(DIVFILE, "<".$ARGV[0]) or die "Can't open file $ARGV[0] : $!"; + +while (<DIVFILE>) +{ + next if (/^#/); + chomp; + + my @spl = split /;/; + + push @div_name_list, $spl[0]; + push @div_capital_list, $spl[1]; + push @div_flag_list, $spl[2]; +} + +close(DIVFILE); + +if (open(IGNFILE, "<".$ARGV[1])) +{ + while (<IGNFILE>) + { + next if (/^#/); + chomp; + + my @spl = split /;/; + + push @ign_name_list, $spl[0]; + push @ign_red_list, $spl[1]; + push @ign_green_list, $spl[2]; + push @ign_blue_list, $spl[3]; + } + + close(IGNFILE); +} + +my $basename = $ARGV[0]; +$basename =~ s/\.[[:alnum:]]*$//; + +print_header($basename.".png", ucfirst($basename)); + +for (my $i = 0; $i <= $#ign_name_list ; $i++) +{ + print_new_division($ign_name_list[$i], + "", + "", + "yes", + $ign_red_list[$i], + $ign_green_list[$i], + $ign_blue_list[$i]); +} + +my $min_red = 130; +my $min_green = 130; +my $min_blue = 130; +my $max_red = 250; +my $max_green = 250; +my $max_blue = 250; + +my @red_list; +my @green_list; +my @blue_list; + +my $red; +my $green; +my $blue; + +my $step; + +if ($#div_name_list < 25) +{ + $step = 60; +} +elsif ($#div_name_list < 60) +{ + $step = 40; +} +elsif ($#div_name_list < 120) +{ + $step = 30; +} +elsif ($#div_name_list < 210) +{ + $step = 24; +} +elsif ($#div_name_list < 340) +{ + $step = 20; +} +else +{ + # > 700 divisions allowed + $step = 15; +} + +#now we build list of colors which will be used to colorize the map +for ($red = $min_red ; $red <= $max_red ; $red += $step) +{ + for ($green = $min_green ; $green <= $max_green ; $green += $step) + { + for ($blue = $min_blue ; $blue <= $max_blue ; $blue += $step) + { + push @red_list, $red; + push @green_list, $green; + push @blue_list, $blue; + } + } +} + +open(RGB_FILE, ">gimp_rgb.txt") or die "Cannot open file : $!"; + +for (my $i = 0 ; $i <= $#div_name_list ; $i++) +{ + print_new_division($div_name_list[$i], + $div_capital_list[$i], + $div_flag_list[$i], + "no", + $red_list[$i], + $green_list[$i], + $blue_list[$i]); + + printf RGB_FILE "%s : %X%X%X\n", $div_name_list[$i], + $red_list[$i], $green_list[$i], $blue_list[$i]; +} + +close(RGB_FILE); + +print_end_of_file(); + |