どんなことでも

この人 blog を書くのだろうか？

ねる

2007-12-23 06:59:41 | ノンジャンル
なんか書くつもりだったけどとりあえず寝る。

会社で風呂に入ろうと思ったのに、ふと気づいたら風呂に入らずに駅に向かって歩いていた。
なので、演奏会へ行く前に駅の近くの銭湯に行こうと思ったら銭湯がつぶれていた。
以下3枚、銭湯へ行かなかったので時間を潰すために橋本駅の山野楽器にて購入
　くるみ割り人形＠チャイコフスキー (クリスマスだしねぇ)
　アイネ・クライネ・ナハトムジーク他＠モーツアルト
　フルート協奏曲第1番＆第2番＠モーツアルト(フルート＠オーレル・ニコレ)
　計 いくら？4千円はいってなかったと思う。
上鶴間交響楽団定期演奏会
　今までブラバンを聴くのは屋外か広いところだったけど、今日はキャパ 450ぐらいのところで、それほど大きくなく、ある程度反響があって迫力が増した。
　めっちゃブラスって感じだった。
ブックオフのセール(22～24日 少女漫画 100円、100円少女漫画 -> 3冊で100円、文庫本 --> 100円)
　フルバ 1～10、金色のコルダ 1～4 購入 100円/冊
水道出た。
　米炊けた
　トイレの水が流れた
　洗濯できる。でも寒いからしたくない。

マフラーの巻き方
　マフラーなんて持ってない
ネクタイの結び方
　ネクタイなんて,,,ぼろぼろになったのがいっぱい。
Favicon Generator
　入力欄に入れた文字(アルファベットのみ)から favicon を作るサイト。ドメイン名が antifavicon ぉぃ。
Wobzip
　Webサイトで圧縮ファイルを解凍できる。

NEF のデーターを読む

2007-12-22 12:57:00 | デジカメ
NEF (デジカメで撮った生データ)は今、以下のように現像(変換)しています。
NEF == SILKYPIX ==> Tiff (撮影データ付き)
Tiff == GIMP(撮影データ無視) ==> jpeg
SILKYPIX の出力する jpeg が汚いので、GIMP で jpeg に変換しているのですが、これだと撮影時のデータ(シャッター速度、絞り、ISO、ホワイトバランス etc)が jpeg に反映されません。なので、NEF からデーターを読んで出力した jpeg に書き込めるのが欲しいなぁと思っているところ。

Image::ExifTool::NikonCapture これで NEF を読んで、Image::ExifTool で、現像した Tiff からホワイトバランスを読んで、jpeg に書込ができるかなぁと。

どこかに無いかなぁ。

rational64u[4] ってなんだろう？って思ったら分数でしたか。==> EXIFデータの構造 の画像内。
おうちはデジカメ現像の為に今 Win なので、ActivePerl がサポートしてるパッケージでないと使えないんだよなぁ。これ、入ってるかなぁ？

とりあえず、Exif のダンプは
use Image::ExifTool;

my($file) = "./test.jpg";
my($exifTool) = new Image::ExifTool;
my($exifInfo) = $exifTool->ImageInfo($file);

my($key);
for $key (sort keys %$exifInfo){
print("$key : $exifInfo->{$key}\n");
}
で良いようです。
しかし、やってることが発散しすぎσ(^^)

ActivePerl の実行結果。

C:\Documents and Settings\Administrator>perl -v

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 18 registered patches, see perl -V for more detail)
...(略)
C:\Documents and Settings\Administrator>ppm install Image::ExifTool
Downloading ActiveState Package Repository packlist...not modified
Downloading Image-ExifTool-5.32...done
Unpacking Image-ExifTool-5.32...done
Generating HTML for Image-ExifTool-5.32...done
Updating files in site area...done
88 files installed
C:\Documents and Settings\Administrator>perl -MImage::ExifTool -e "{print $Image::ExifTool::VERSION . $Image::ExifTool::RELEASE;}"
5.32
Image::ExifTool あったけど古すぎ...
C:\Documents and Settings\Administrator>ppm install Crypt::OpenPGP
Downloading ActiveState Package Repository packlist...done
Updating ActiveState Package Repository database...done
ppm install failed: Can't find any package that provide Crypt::OpenPGP

Crypt::OpenPGP は無いのねぇ。