mieki256's diary



2005/11/16(水) [n年前の日記]

#3 [cg_tools] 数字の書かれた画像を大量に生成

数字の書かれた画像が欲しかったので、 _:: Cepheid :: - PerlMagickリファレンス_PerlMagick + CGI のページを参考に、Perlスクリプトを作成。
#!/usr/bin/perl
# Last updated: <2005/11/16 15:57:04 +0900>
#
# 100 x 2 枚の数値が書かれた画像を作る
# PerlMagick(ImageMagick)を使用

use strict;
use Image::Magick;

for ( my $i=0; $i<=100; $i++ ) {

    my $str = sprintf("%03d",$i);
    my $text = $str;
    my $fname_omote = "./".$str.'a.png';
    my $fname_ura   = "./".$str.'b.png';

    my $basefile = 't' . ($i % 3) . '.tif';     # 't1.tif' etc
    
    my $image = Image::Magick->new;
    
    $image->Set(size=>'120x120');
    $image->Read($basefile);
    # $image->ReadImage('xc:white');
    # $image->AddNoise('Impulse');
    # $image->Blur(radius=>5, sigma=>0.5);
    $image->Annotate(font=>'impact.ttf', pointsize=>48, stroke=>'white', strokewidth=>2, fill=>'black', antialias=>'true', text=>$text, gravity=>'Center');

    $image->Write($fname_omote);

    # $image->Colorize(fill=>'olive', opacity=>'128');
    $image->Negate();
    $image->Write($fname_ura);
    
    undef $image;

    print "make $fname_omote, $fname_ura\n";
}

exit;
t0.tif 〜 t2.tif を読み込んで、それら画像の上に順々に数字を書き込んで、別画像として出力。スクリプトのあるディレクトリに、利用するフォントファイル(.ttf) をコピーしてから使う。

要するに、
元画像
こういう画像から、

生成画像A

生成画像B
こういう画像を作る。

以上です。

過去ログ表示

Prev - 2005/11 - Next
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30

カテゴリで表示

検索機能は Namazu for hns で提供されています。(詳細指定/ヘルプ


注意: 現在使用の日記自動生成システムは Version 2.19.6 です。
公開されている日記自動生成システムは Version 2.19.5 です。

Powered by hns-2.19.6, HyperNikkiSystem Project