« | ★★★★ 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:
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use LWP::Simple;
  5.  
  6. #インストールディレクトリ
  7. my $workdir = "/path/to/exzmple/";
  8.  
  9. # 最新画像ゲット
  10. my $now = `date +%Y%m%d%H`;
  11. chomp $now;
  12. my $min = `date +%M`;
  13. chomp $min;
  14. my $filemin = $min -  ( $min % 10) ;
  15. $filemin = sprintf("%02d",$filemin);
  16.  
  17. my $imgurl = "http://tokyo-ame.jwa.or.jp/mesh/100/" . "$now"."$filemin".".gif";
  18. my $status  ;
  19. do {
  20.     $status = mirror($imgurl, "$workdir/cullentradar.gif");
  21.     # 404なら23秒待って再トライ
  22.     if ($status  eq "404"){
  23.         sleep 23;
  24.     }
  25. } until ($status ne "404");
  26.  
  27. # 合成
  28. my $oserr;
  29.  
  30. $oserr = `composite -compose over $workdir/cullentradar.gif  $workdir/map100.jpg $workdir/before.png `;
  31. $oserr = `composite -compose over  $workdir/msk100.gif $workdir/before.png  $workdir/XL.png `;
  32.  
  33. $oserr = `convert -sample 771x480 $workdir/before.png $workdir/Lb.png`;
  34. $oserr = `composite -compose over  $workdir/msk000.gif $workdir/Lb.png  $workdir/L.jpg `;
  35. $oserr = `convert -resize 480x299 $workdir/L.jpg $workdir/M.jpg`;
  36. $oserr = `convert -resize 240x150 $workdir/L.jpg $workdir/S.jpg`;
  37.  
  38. #回転
  39. $oserr = `convert -rotate 90  $workdir/L.jpg $workdir/Lp.jpg`;

追記:いろいろ更新したんでこのエントリも修正した。「東京アメッシュツール更新」

Comments

Leave a Comment

TrackBack URI :http://www.dcc-jpl.com/diary/2007/07/04/tokyoamesh/trackback/

Name

Email

ウェブサイト

コメント

1 Comment so far
  1. harrier 2007/07/05 (木) 17:33

    正規表現等でバラバラにしてご利用ください。

Twitter

MyHatenaBookmark

New Books


New CD


New DVD


Recently


Categories


Archives


Amazon


宗子書房

Wish list

Amazonの宗子ほしいものリスト.