« ★★ ななついろ★ドロップス＃1 「運命はなにいろ？」 | ★★★★ School Days ＃1 「告白」 »

東京アメッシュ、リニューアル

Posted on 2007/07/04 (水) 0:02
Filed Under 技術 | | TrackBack |

東京近辺の詳細な雨量レーダー情報を提供する、東京都下水道局提供の東京アメッシュが、より広域の情報、スクロールマップ対応などの機能追加とともにリニューアルされた。
リニューアルされて高機能になったのだが残念ながらW-ZERO3で見ていた小さいサイズのgif画像が廃止されてしまったり、AjaxがSafariで表示出来なかったりいろいろ不便な点も発生してしまった。
が、素直なつくりだったので勝手に小さい画像生成することにした。

東京アメッシュ縮小画像

Sサイズ(240x150):http://www.dcc-jpl.com/soft/tokyoamesh/S.jpg
Mサイズ(480x299):http://www.dcc-jpl.com/soft/tokyoamesh/M.jpg
Lサイズ(770x480):http://www.dcc-jpl.com/soft/tokyoamesh/L.jpg
XLサイズ(3080x1920):http://www.dcc-jpl.com/soft/tokyoamesh/XL.png

ケータイ向けLサイズ回転縦長版(480x770):http://www.dcc-jpl.com/soft/tokyoamesh/Lp.jpg

合成ベースになってる東京アメッシュのソースはこれら。
地形:http://tokyo-ame.jwa.or.jp/map/map100.jpg
行政区分と地名:http://tokyo-ame.jwa.or.jp/map/msk100.gif
行政区分と地名(小):http://tokyo-ame.jwa.or.jp/map/msk000.gif

気象レーダー:http://tokyo-ame.jwa.or.jp/mesh/100/[4桁西暦][2桁月][2桁日][2桁時刻][2桁分].gif　24時間前のものまで保存されている模様。分は10分刻み。

10分おきのcronで画像を作成してるコードはこちら。

PLAIN TEXT

PERL:

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
#インストールディレクトリ
my $workdir = "/path/to/exzmple/";
# 最新画像ゲット
my $now = `date +%Y%m%d%H`;
chomp $now;
my $min = `date +%M`;
chomp $min;
my $filemin = $min - ( $min % 10) ;
$filemin = sprintf("%02d",$filemin);
my $imgurl = "http://tokyo-ame.jwa.or.jp/mesh/100/" . "$now"."$filemin".".gif";
my $status ;
do {
$status = mirror($imgurl, "$workdir/cullentradar.gif");
# 404なら23秒待って再トライ
if ($status eq "404"){
sleep 23;
}
} until ($status ne "404");
# 合成
my $oserr;
$oserr = `composite -compose over $workdir/cullentradar.gif $workdir/map100.jpg $workdir/before.png `;
$oserr = `composite -compose over $workdir/msk100.gif $workdir/before.png $workdir/XL.png `;
$oserr = `convert -sample 771x480 $workdir/before.png $workdir/Lb.png`;
$oserr = `composite -compose over $workdir/msk000.gif $workdir/Lb.png $workdir/L.jpg `;
$oserr = `convert -resize 480x299 $workdir/L.jpg $workdir/M.jpg`;
$oserr = `convert -resize 240x150 $workdir/L.jpg $workdir/S.jpg`;
#回転
$oserr = `convert -rotate 90 $workdir/L.jpg $workdir/Lp.jpg`;