mieki256's diary

07:30に自宅を出発。雨なので、親父さんが運転する車で駅まで送ってもらえた。須賀川→郡山→(新幹線)→大宮→新宿と乗り継いで、11:00ちょっと過ぎに到着。途中、JR埼京線が遅れてしまい(新宿踏切り内に人が居るので安全確認云々、とアナウンス)、本来予定してた11:00までにはつけなかった。

次期企画の実機の各モードについて説明を受けたり、iアプリのソースの解説をしてもらったり。ただ、自分が何をするのかが、今一つよくわからず。完成形のイメージができない…。

東京都庁の食堂でお昼を奢ってもらった。しかしここ数日胃腸の調子が実によろしくないので、ざるそばを注文。何せ新幹線の中でもお腹を抑えてうんうん言ってたわけで。

h氏と一緒に、20:40に出発。新宿駅で21:00頃の電車に乗った。新宿→大宮→(新幹線)→郡山→須賀川と乗り継いで、23:30頃に須賀川駅に。郡山到着時に電話を入れたら、親父さんが須賀川駅まで車で迎えに来てくれていた。ありがたや。

帰宅後、SDカードアクセステストアプリを修正。テストアプリは20fps(1フレーム待ち時間：50msec)で作ってあったけど、次期企画は33fps(30msec)と聞いたので、その速度でSDカードにアクセスするとどうなるのか検証しようと。しかし、エンバグしてしまい、不正終了。どこにバグがあるのか判らず。明日、クライアント様との打ち合わせがある、という話を聞いていたので、打ち合わせ用の材料として、明日までに間に合わせたかったのだけど…。移動や打ち合わせで疲れてしまったせいか、意識が完全に朦朧としてきたので、今日中の作業を諦めることに。

あちこちのページからコピペして作成。PerlMagick(ImageMagick)使用。ActivePerl 5.10.0 build 1004 で動作確認。

#!/usr/bin/perl -w
#
# フォルダ以下で見つかった連番画像ファイルに数字を上書きするスクリプト
# 000.png 〜 999.png に数字を描画、add_000.png 〜 add_999.png として保存。

use strict;
use warnings;
use Image::Magick;

my $value = 0;
my $dir = '.';

my @filelist = ();
opendir DH, $dir or die "$dir:$!";
while (my $file = readdir DH) {
    next if $file =~ /^\.{1,2}$/;
    if ( $file =~ /^(\d+)\.png/ ) {
        push(@filelist, $1);
    }
}
closedir DH;

foreach my $fn (@filelist) {
    my $src = $fn . ".png";
    my $dst = "add_" . $fn . ".png";
    print "$src -> $dst\n";
    
    my $image = Image::Magick->new; # オブジェクト作成
    $image->Read($src); # 画像読み込み

    # 文字を記入する
    my $text = sprintf("%04d", $value);
    $image->Annotate(text=>$text, stroke=>'#FFFFFF', fill=>'#000000',
                     font => 'VL Gothic', strokewidth => '1',
                     pointsize=>'36', x=>'120', y=>'80');

    # 画像出力
    binmode STDOUT;
    $image->Write($dst);

    undef $image;
    $value++;
}

exit;