たつをの ChangeLog : 2008-08-31

今月は7タイトル読了しました。

■水野俊哉 / 成功本51冊 もっと「勝ち抜け」案内

ref. [2008-08-30-3]

■森枝卓士 / デジカメ時代の写真術

ref. [2008-08-29-1]

■スエトニウス / ローマ皇帝伝 (上)

ref. [2008-08-27-1]

■竹川美奈子 / 「しくみ」マネー術

ref. [2008-08-26-1]

■マーティン・E.P. セリグマン / オプティミストはなぜ成功するか

ref. [2008-08-25-1]

■高橋雄介 / 平泳ぎが速くきれいに泳げるようになる!

ref. [2008-08-15-2]

■森博嗣 / 工作少年の日々

ref. [2008-08-11-1]

ゼロベースの石橋さんによる記事。

- ネットベンチャーに必ず「天才エンジニア」がいる理由 (ZEROBASE BLOG)
  http://zerobase.jp/blog/2008/08/it.html

（創業直後の）ネットベンチャーの経営者には
「我が社には天才エンジニアがいる」
と語る人がとても多いのが昔から気になっていました。

この疑問に対する石橋さんの答え（仮説）：
(1) 能力を判断する能力の不足
(2) 自己評価のバイアス
(3) 人を悪く言うより良く言う

あるあるー。
これはネットベンチャーに限らず、
事業部とか開発部とかいろんな単位でありがちですよね。

ああ、天才だらけなこんな世の中じゃ。
いわゆる「IPA認定『天才プログラマー』」とかもいっぱいいるしなあ。

「『俺って天才』エンジニア」は一時的ですが、
あちこちに現れますよね。夜明け前とかに。
私もときどき何かすごい方法を見つけたときには、
「（俺って）天才エンジニア」になります。
まあ、たいていその方法は間違いだったり、
無駄だったりするんで、すぐに戻るのですが。

まとめると（まとめてないけど）、
「我が社には変態エンジニアがいます」なら納得。

ちょっと前に
見出しに著作権はないとの判決が出てたけど（読売新聞の件）、
それとは別でビジネス的にこれはどうなんだろう。
商業活動の規模からして無断配信だとやばいけど、
まあさすがに各社と調整がついているんだと思われる。

- Google 日本版にニュースが (SEM酒場)
  http://sem-bar.blogspot.com/2008/08/google.html

日本版のGoogle トップページで、
検索ボックス下にニュースを表示するテストが行われている。
既にどこかで報じられていたような気がするが、
Bucket Test に当たったらしく実際に確認できたので、
スクリーンショットを貼っておく。

- 新聞見出し無断ネット利用に賠償命令　著作物性は再び否定 (ITmedia)
  http://www.itmedia.co.jp/news/articles/0510/06/news081.html
- 見出しの無断配信は不法行為、知財高裁が読売新聞の訴えを一部認める判決
  http://internet.watch.impress.co.jp/cda/news/2005/10/06/9397.html

さくらの500円レンタルサーバーには
最初から ImageMagick [2008-08-15-3]が
入っているので嬉しいですね。

ということで、東京アメッシュ[2007-11-11-4]をハック！
chumby の Load Image URL widget[2008-05-20-1]
で使う目的で、
東京の最新の降雨情報画像から、
東京23区の部分だけ抽出した画像を作ります。

東京アメッシュの画像を重ね合わせる

東京アメッシュの画像は三層に分かれています。
（某モ氏のハックを参考にさせて頂きました）

まず、最初にトップにでる低解像度の画像：
- http://tokyo-ame.jwa.or.jp/map/map000.jpg
- http://tokyo-ame.jwa.or.jp/map/msk000.png
- http://tokyo-ame.jwa.or.jp/mesh/000/200808311950.gif

「20080808311950」の部分は日時です。10分刻みです。
ImageMagick でこれらを重ね合わせて一枚の画像にできます。
以下、手順：

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

次に、地域拡大のときに出る高解像度(3080x1920)の画像：
- http://tokyo-ame.jwa.or.jp/map/map100.jpg
- http://tokyo-ame.jwa.or.jp/map/msk100.png
- http://tokyo-ame.jwa.or.jp/mesh/100/200808311950.gif

同じく、重ね合わせ手順：

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

最終ファイルは 2M ほどになります。巨大です。

Chumby で表示する

このままでは chumby で表示するには大きすぎます。
また、私の場合は東京23区の部分だけあれば十分です。
ということで、23区の部分だけを切り取ってから、縮小します。

convert -geometry 320x240 -extract 640x480+1500+700 \
amesh100.png amesh23.png

あとは、
Load Image URL ウィジェットの URL を設定し、
chumby で表示させるだけ。
こんな感じ。


上記の処理は、シェルスクリプトにして cron で
動かすようにすると良いかもですね。
URLの日時部分を現在時にあわせるロジック、
ファイルのフルパス指定、
wget のオプション指定が必要になりますが。
10分ごとだと無駄が多いし、負荷の問題もあるので、
自分がいないであろう時間帯は呼ばないようにする、
ってのがエコで良いかも。
なにはともあれ自己責任でどうぞ。

Perl によるサンプルコード

Perl で Image::Magick モジュールを使った
プログラムを書いてみましたので置いておきます。
くどいようですが、自己責任でどうぞ。

#!/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");

また、 Resize の前に下記を足すと、
画像の左上に日時文字列が入ります。

$p1->Annotate(
    text => $dt,
    pointsize => 24,
    gravity => "NorthWest",
    x => 1500, y => 700,
    fill => 'black', stroke => 'gray', undercolor => 'white',
);

追記080910: ケータイから画像にアクセスすると
ファイルサイズが大きすぎると怒られて表示されないので、
jpg ファイルも出すようにした。
また、縦長画面に合うように90度回転した。
サンプルコードの最後のに下記を追加しただけ。

$p1->Rotate(90);
$p1->Write("$base_dir/amesh23s.jpg");

コンビニに行ったら、
キリンのビール「秋味」が売っていました。
もうそんな季節なんですねー。
ということで、カンパーイ！