(創業直後の)ネットベンチャーの経営者には
「我が社には天才エンジニアがいる」
と語る人がとても多いのが昔から気になっていました。
日本版のGoogle トップページで、
検索ボックス下にニュースを表示するテストが行われている。
既にどこかで報じられていたような気がするが、
Bucket Test に当たったらしく実際に確認できたので、
スクリーンショットを貼っておく。
wget http://tokyo-ame.jwa.or.jp/map/map000.jpg wget http://tokyo-ame.jwa.or.jp/map/msk000.png wget http://tokyo-ame.jwa.or.jp/mesh/000/200808311950.gif composite 200808311950.gif map000.jpg tmp.png composite msk000.png tmp.png amesh000.png
最終ファイルは 2M ほどになります。巨大です。wget http://tokyo-ame.jwa.or.jp/map/map100.jpg wget http://tokyo-ame.jwa.or.jp/map/msk100.png wget http://tokyo-ame.jwa.or.jp/mesh/100/200808311950.gif composite 200808311950.gif map100.jpg tmp.png composite msk100.png tmp.png amesh100.png
convert -geometry 320x240 -extract 640x480+1500+700 \ amesh100.png amesh23.png
#!/usr/bin/perl use strict; use warnings; use Image::Magick; use LWP::Simple; use POSIX qw(strftime); my $base_dir = "/home/USERNAME/www/var"; # あらかじめ base_dir でやっておくこと: # wget http://tokyo-ame.jwa.or.jp/map/map100.jpg # wget http://tokyo-ame.jwa.or.jp/map/msk100.png my $dt = strftime "%Y%m%d%H%M", localtime; $dt =~ s/\d$/0/; my $url = "http://tokyo-ame.jwa.or.jp/mesh/100/$dt.gif"; mirror($url, "$base_dir/now.gif"); my $p1 = new Image::Magick; $p1->Read("$base_dir/map100.jpg"); my $p2 = new Image::Magick; $p2->Read("$base_dir/now.gif"); $p1->Composite(image => $p2, compose => 'Over'); my $p3 = new Image::Magick; $p3->Read("$base_dir/msk100.png"); $p1->Composite(image => $p3, compose => 'Over'); $p1->Crop(x => 1500, y => 700, width => 640, height => 480); $p1->Resize(width => 320, height => 240); $p1->Write("$base_dir/amesh23.png");
$p1->Annotate( text => $dt, pointsize => 24, gravity => "NorthWest", x => 1500, y => 700, fill => 'black', stroke => 'gray', undercolor => 'white', );
$p1->Rotate(90); $p1->Write("$base_dir/amesh23s.jpg");