#/bin/perl
# マップカッター（garmap形式の出力）からdoc.kmlと"files"フォルダに地図画像(JPEG)を作成
#

$dir = "files";
$iext = "png";
$oext = "jpg";

open(IN, "<mapinfo.dat");

$n = 0;
while(<IN>){
	chop;
	$line[$n++] = $_;
}
close(IN);

$nx = $line[3];
$ny = $line[4];
# $no = $nx * $ny;
$ido1 = $line[5];
$kei1 = $line[6];
$ido2 = $line[7];
$kei2 = $line[8];
$x = $line[9];
$y = $line[10];

$dkei = $kei2 - $kei1;
$dido = $ido2 - $ido1;
$ddkei = $dkei / $nx;
$ddido = $dido / $ny;


open(OUT, ">doc.kml");

printf OUT '<?xml version="1.0" encoding="UTF-8"?>';
print OUT "\n";
printf OUT '<kml xmlns="http://www.opengis.net/kml/2.2" xmlns:gx="http://www.google.com/kml/ext/2.2" xmlns:kml="http://www.opengis.net/kml/2.2" xmlns:atom="http://www.w3.org/2005/Atom">';
print OUT "\n";

$no = 0;
for ( $iy=0; $iy<$ny; $iy++ ){
	for ( $ix=0; $ix<$nx; $ix++ ){

		$x1 = $kei1 + $ddkei*$ix;
		$y1 = $ido1 + $ddido*$iy;
		$x2 = $kei1 + $ddkei*($ix+1);
		$y2 = $ido1 + $ddido*($iy+1);

		printf OUT "<GroundOverlay>\n";
		printf OUT "  <name>%d</name>\n", ($iy*$nx+$ix);
		printf OUT "  <Icon>\n";
		printf OUT "    <href>%s/%d.%s</href>\n", $dir, ($iy*$nx+$ix), $oext;
		printf OUT "    <viewBoundScale>1.00</viewBoundScale>\n";
		printf OUT "  </Icon>\n";
		printf OUT "  <LatLonBox>\n";
		printf OUT "    <north>%f</north>\n", $y1;
		printf OUT "    <south>%f</south>\n", $y2;
		printf OUT "    <east>%f</east>\n", $x2;
		printf OUT "    <west>%f</west>\n", $x1;
		printf OUT "  </LatLonBox>\n";
		printf OUT "</GroundOverlay>\n";

	}
}
printf OUT "</kml>\n";
close(OUT);

(-d $dir) ?	`del $dir\\*.jpg`: (mkdir $dir);

open(OUT, ">make.bat");

$no = 0;
for ( $iy=0; $iy<$ny; $iy++ ){
	for ( $ix=0; $ix<$nx; $ix++ ){
		printf OUT "convert %s.%s %s\\%s.%s\n", $no, $iext, $dir, $no, $oext;
		$no++;
	}
}

print OUT "cd ..\n\n";
close(OUT);

`make`;