status == 'OK') {
$location = $xml->result->geometry->location;
$lat = rlat((string)$location->lat);
$lng = rlng((string)$location->lng);
}
} else {
$lat = rlat($_GET["lat"]);
$lng = rlng($_GET["lng"]);
}
if($lat == ""){
$lat = rlat(38.2596);
}
if($lng == ""){
$lng = rlng(140.8799);
}
//�ｿｽk�ｿｽﾚ暦ｿｽ
$z = $_GET["z"];
if($z ==""){
$z = 15;
}
//�ｿｽﾚ難ｿｽ�ｿｽ�ｿｽﾌ位置�ｿｽ�ｿｽ�ｿｽv�ｿｽZ
$top = adjust($lng, $lat, 0, -100, $z);
$bottom = adjust($lng, $lat, 0, 100, $z);
$left = adjust($lng, $lat, -100, 0, $z);
$right = adjust($lng, $lat, 100, 0, $z);
$url = "http://saqoo.sh/a/labs/to-reru/?lat=" . $lat . "&lng=" . $lng;
$mailto = "mailto:?body=" . urlencode($url);
/*
function adjust
$x:�ｿｽ�ｿｽ�ｿｽS�ｿｽﾌ経�ｿｽx
$y:�ｿｽ�ｿｽ�ｿｽS�ｿｽﾌ緯度
$deltaX:�ｿｽ�ｿｽ�ｿｽ轤ｵ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ(�ｿｽs�ｿｽN�ｿｽZ�ｿｽ�ｿｽ�ｿｽP�ｿｽ�ｿｽ)
$deltaY:�ｿｽ�ｿｽ�ｿｽ轤ｵ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ(�ｿｽs�ｿｽN�ｿｽZ�ｿｽ�ｿｽ�ｿｽP�ｿｽ�ｿｽ)
$z:�ｿｽY�ｿｽ[�ｿｽ�ｿｽ
�ｿｽﾟゑｿｽl
array("x"=>"�ｿｽﾚ難ｿｽ�ｿｽ�ｿｽﾌ経�ｿｽx","y"=>"�ｿｽﾚ難ｿｽ�ｿｽ�ｿｽﾌ緯度");
*/
function r($val) {
return round($val * 1000) / 1000;
}
function rlng($lng) {
return r(round($lng / 0.004291534423828125) * 0.004291534423828125);
}
function rlat($lat) {
return r(round($lat / 0.0035230795686373995) * 0.0035230795686373995);
}
function adjust($x,$y,$deltaX,$deltaY,$z){
$offset = 268435456;
$radius = $offset / pi();
$x = ((round(round($offset + $radius * $x * pi()/180)+($deltaX << (21-$z))) - $offset) / $radius) * 180 / pi();
$y = (pi() / 2 - 2 * atan(exp((round(round($offset - $radius * log((1 + sin($y * pi() / 180))/(1 - sin($y * pi() / 180))) / 2)+($deltaY << (21-$z))) - $offset) / $radius))) * 180 / pi();
$xy = array("x" => rlng($x), "y" => rlat($y));
return $xy;
}
?>
�ｿｽ�ｿｽ�ｿｽk�ｿｽn�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽm�ｿｽ�ｿｽ�ｿｽn�ｿｽk�ｿｽF�ｿｽﾊ行�ｿｽ�ｿｽ�ｿｽﾑ擾ｿｽ�ｿｽi�ｿｽg�ｿｽﾑ版）
Google�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ趣ｿｽ�ｿｽ�ｿｽ�ｿｽﾔ通行�ｿｽ�ｿｽ�ｿｽﾑ擾ｿｽ�ｿｽﾏｯ�ｿｽﾟゑｿｽ�ｿｽﾅゑｿｽ�ｿｽﾜゑｿｽ�ｿｽ�ｿｽ�ｿｽB
4:�ｿｽ�ｿｽ
2:�ｿｽ�ｿｽ
8:�ｿｽ�ｿｽ
6:�ｿｽ�ｿｽ
�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾟｰ�ｿｽﾞゑｿｽﾒｰﾙゑｿｽ�ｿｽ�ｿｽ
�ｿｽ�ｿｽ�ｿｽﾌサ�ｿｽC�ｿｽg�ｿｽﾍ趣ｿｽﾉ緊急�ｿｽﾔ暦ｿｽ�ｿｽp�ｿｽﾅゑｿｽ�ｿｽB�ｿｽ{�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽe�ｿｽB�ｿｽA�ｿｽﾉゑｿｽ�ｿｽa�ｿｽﾘゑｿｽ�ｿｽﾙ急�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ~�ｿｽﾟまゑｿｽ�ｿｽB�ｿｽ范ｯ�ｿｽﾓ会ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB