ケータイサービス「ここらで」に衛星写真を見る「そらから」を追加

ケータイでグーグルマップが便利に見れたらなということで、「ここらで」を作成しましたが、やっぱり衛星写真も見たい。

ということで、ケータイで衛星写真を見る「そらから」を作成し、「ここらで」と連携させました。
ケータイで現在位置の衛星写真を見る事ができるのはちょっと「２４」みたいな気分ですね。(もちろん今の衛星写真じゃないですが)

そらから
http://saya.s145.xrea.com/x/ggltile.cgi?lat=(緯度)&lon=(経度)&zoom=(ズーム)
５で拡大、０で縮小、１−９で移動、＃で地図、＊で衛星

ここらで
http://saya.s145.xrea.com/x/kkrd.cgi
GPSや簡易位置測定、キーワード、住所検索等で現在位置を表示後、「そらへ」を選択して、「ここらで」ボタンを押すと、中心位置を指定位置として「そらから」へジャンプ

「そらから」は、指定位置を含む衛星写真を見る事ができ、拡大／縮小や移動も可能です。ただし、Google Mapsのタイル画像をそのまま使っているので下記のような制約があります。

・指定位置が中心になりません。あくまでも指定位置を”含む”衛星写真を表示できるだけです。
・拡大・縮小も指定位置を含む画像として拡大・縮小します。
・移動はタイル画像の幅だけ経度緯度をシフトして表示します。
・衛星写真と地図を切り替える事ができるのですが、地図はPNG画像なので、ドコモの携帯では表示できません。
・Googleの仕様変更・その他の理由で表示できなくなる可能性があります。

経度緯度からタイル画像のURLを導くアルゴリズムは、現在は下記のような感じにしています。

my $pi = 4 * atan2(1,1);
my $rd = $pi / 180;
my $server = int(rand(4));
sub latlon2sat {
my ($lat,$lon,$zoom) = @_;
my $sat_url = “http://kh$server.google.com/kh?n=404&v=3&t=t”;
my $maxx = 2**$zoom;
my $x = int(lon2x($lon)*$maxx);
my $maxy = 2**$zoom;
my $y = int(lat2y($lat)*$maxy);
my $rx;
my $ry;
my $loc;
for(my $i = 0; $i