sub generateGMap
{ opt_default(level=>6, format=>"gif", posterize=>16);
my @argv = opt_get(@_);
my $file = shift @argv;
my $level = opt_val("level");
my $javascript = opt_val("javascript");
my $posterize = opt_val("posterize");
$level = 3 if ($level < 3);
my $filename = basename($file);
my $name = $filename;
if($name =~ /(.*)\..*$/){
$name = $1;
}
mkdir($name);
my ($width, $height);
if(`identify $file` =~ /\s(\d+)x(\d+)\s/){
$width = $1;
$height = $2;
}else{
die("Either ImageMagick is not available, or the given file is not a proper image.");
}
if($width == $height){
system(sprintf("convert +dither -posterize $posterize %s %s/%s.png", $file, $name, $name));
}else{
my ($xdif, $ydif, $size) = (0,0, $width);
if($width > $height){
$size = $width;
$ydif = int(($width - $height) / 2);
}else{
$size = $height;
$xdif = int(($height - $width) / 2);
}
print "HAGE";
system(sprintf("convert +dither -posterize $posterize -extent %dx%d -roll +%s+%s %s %s/%s.png", $size, $size, $xdif, $ydif, $file, $name, $name));
}
chdir($name);
for(my $i = 0; $i < $level; $i ++){
my $tiles = 2 ** $i;
my $size = $tiles * 256;
system(sprintf("convert +dither -posterize $posterize %s.png -resize %dx%d level$i.png", $name, $size, $size, $i));
system("convert +dither -posterize $posterize level$i.png -crop 256x256 level$i-%d.png");
for(my $y = 1; $y <= $tiles; $y ++){
for(my $x = 1; $x <= $tiles; $x ++){
system(sprintf("mv level%d-%d.png level%d-%d-%d.png", $i, ($y - 1) * $tiles + ($x - 1), $i, $x - 1, $y - 1));
}
}
}
my $resolution = $level - 1;
open(OUT, '>' . 'index.html') || die($!);
print OUT << "__HTML__"
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<title>Google Map View of $name - generated by G-language GAE</title>
<script src="http://maps.google.com/maps?file=api&v=2.x&key=YOUR_GOOGLE_MAP_KEY_HERE"
type="text/javascript" charset="utf-8"></script>
<script type="text/javascript">
//<![CDATA[
var map;
function customGetTileURL(a,b) {
return "level" + b + "-" + a.x + "-" + a.y + ".png"
}
function resize(){
var map_obj=document.getElementById("map");
var disp=getDispSize();
map_obj.style.width=(disp.width - 20)+"px";
map_obj.style.height=(disp.height - 20)+"px";
if( map ){
map.checkResize();
map.panTo(new GLatLng(0, 0));
}
}
function getDispSize(){
if(document.all){
if(window.opera){
return {width:document.body.clientWidth,height:document.body.clientHeight};
}else{
return {width:document.documentElement.clientWidth,height:document.documentElement.clientHeight};
}
} else if(document.layers || document.getElementById){
return {width:window.innerWidth,height:window.innerHeight};
}
}
function load() {
if (GBrowserIsCompatible()) {
resize();
var copyright = new GCopyright(1,
new GLatLngBounds(new GLatLng(-90, -180), new GLatLng(90, 180)), 0,
"<a href=\\"http://www.g-language.org/\\" target=\\"_blank\\"><img src=\\"http://restauro-g.iab.keio.ac.jp/Res-Pic/glang.png\\" border=0></a>");
var copyrightCollection = new GCopyrightCollection();
copyrightCollection.addCopyright(copyright);
// Create a new Mercator projection instance
var zoomlevel = $resolution;
var projection = new GMercatorProjection(zoomlevel + 1);
// add an exposed copy of the tileBounds array
projection.tileBounds = [];
var c = 1;
for(var d = 0; d <= zoomlevel; d++){
projection.tileBounds.push(c);
c *= 2
}
// == a method that checks if the y value is in range
// == but *doesnt* wrap the x value ==
projection.tileCheckRange = function(a,b,c){
var d=this.tileBounds[b];
if (a.y<0||a.y>=d) {
return false;
}
if(a.x<0||a.x>=d){
return false;
}
return true
}
// == a method that returns the width of the tilespace ==
projection.getWrapWidth = function(zoom) {
return 99999999999999;
}
//create a custom picture layer
var pic_tileLayers = [ new GTileLayer(copyrightCollection , 0, 17)];
pic_tileLayers[0].getTileUrl = customGetTileURL;
pic_tileLayers[0].isPng = function(){ return true};
pic_tileLayers[0].getOpacity = function() { return 1.0; };
var pic_customMap = new GMapType(pic_tileLayers, projection, "View1",
{maxResolution:zoomlevel, minResolution:1, errorMessage:"Data not available"});
//Now create the custom map. Would normally be G_NORMAL_MAP,G_SATELLITE_MAP,G_HYBRID_MAP
map = new GMap2(document.getElementById("map"), {mapTypes:[pic_customMap]});
map.addControl(new GLargeMapControl());
map.addControl(new GMapTypeControl());
map.addControl(new GOverviewMapControl());
map.enableDoubleClickZoom();
map.enableContinuousZoom();
map.enableScrollWheelZoom();
map.setCenter(new GLatLng(0, 0), 2, pic_customMap);
/////////////////////////////////////////////////////////////////////////////////////
//Add any markers here e.g.
// map.addOverlay(new GMarker(new GLatLng(x,y)));
/////////////////////////////////////////////////////////////////////////////////////
$javascript;
}
}
//]]>
</script>
</head>
<body onresize="resize()" onload="load()" onunload="GUnload()">
<div id="map"></div>
</body>
</html>
__HTML__
close(OUT);
chdir("../");
msg_error("Google Map View is generated in $name directory.\n");} |