88 件 見つかりました。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 [ 次へ ]

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

さくらの500円レンタルサーバーには
最初から ImageMagick [2008-08-15-3]が
入っているので嬉しいですね。
ということで、東京アメッシュ[2007-11-11-4]をハック!
chumby の Load Image URL widget[2008-05-20-1]
で使う目的で、
東京の最新の降雨情報画像から、
東京23区の部分だけ抽出した画像を作ります。
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 ほどになります。巨大です。
convert -geometry 320x240 -extract 640x480+1500+700 \ amesh100.png amesh23.png
あとは、
Load Image URL ウィジェットの URL を設定し、
chumby で表示させるだけ。
こんな感じ。

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

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

ゼロベースの石橋さんによる記事。
- ネットベンチャーに必ず「天才エンジニア」がいる理由 (ZEROBASE BLOG)
http://zerobase.jp/blog/2008/08/it.html
(創業直後の)ネットベンチャーの経営者には
「我が社には天才エンジニアがいる」
と語る人がとても多いのが昔から気になっていました。
この疑問に対する石橋さんの答え(仮説):
(1) 能力を判断する能力の不足
(2) 自己評価のバイアス
(3) 人を悪く言うより良く言う
あるあるー。
これはネットベンチャーに限らず、
事業部とか開発部とかいろんな単位でありがちですよね。
ああ、天才だらけなこんな世の中じゃ。
いわゆる「IPA認定『天才プログラマー』」とかもいっぱいいるしなあ。
「『俺って天才』エンジニア」は一時的ですが、
あちこちに現れますよね。夜明け前とかに。
私もときどき何かすごい方法を見つけたときには、
「(俺って)天才エンジニア」になります。
まあ、たいていその方法は間違いだったり、
無駄だったりするんで、すぐに戻るのですが。
まとめると(まとめてないけど)、
「我が社には変態エンジニアがいます」なら納得。

今月は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]
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 [ 次へ ]
たつをの ChangeLog