いつも通りPerlプログラミングです。HTMLのフォームから画像をアップロードしてとりあえず顔座標を取得するプログラムができました。

あ、ちなみに夏休み公開予定のWebアプリはこれをさらに発展させたものです。

テストデータ↓
（もちろん解析させたデータはモザイクはかかっていない）

テストデータに対する出力（XML形式）

<?xml version='1.0'?>
<faces>
  <face id='0'>
    <bounds x='655' y='250' width='28' height='28'/>
  </face>
  <face id='1'>
    <bounds x='549' y='317' width='35' height='35'/>
  </face>
  <face id='2'>
    <bounds x='610' y='333' width='37' height='37'/>
  </face>
  <face id='3'>
    <bounds x='399' y='338' width='35' height='35'/>
  </face>
  <face id='4'>
    <bounds x='595' y='243' width='35' height='35'/>
  </face>
  <face id='5'>
    <bounds x='215' y='248' width='38' height='38'/>
  </face>

　---中略---

  <face id='18'>
    <bounds x='485' y='529' width='43' height='43'/>
  </face>
  <face id='19'>
    <bounds x='866' y='328' width='41' height='41'/>
  </face>
  <face id='20'>
    <bounds x='845' y='433' width='47' height='47'/>
    <right-eye x='861' y='451'/>
  </face>
  <face id='21'>
    <bounds x='613' y='727' width='45' height='45'/>
  </face>
  <face id='22'>
    <bounds x='158' y='232' width='45' height='45'/>
    <left-eye x='189' y='249'/>
  </face>
  <face id='23'>
    <bounds x='131' y='589' width='52' height='52'/>
  </face>
  <face id='24'>
    <bounds x='1111' y='882' width='50' height='50'/>
  </face>
</faces>

顔座標が取得できる画像形式はJPEG/PNGのみですが、プログラム内部でPerlMagickを使ってGIF画像をJPEG/PNGに変換することによって、GIF画像にも対応させました。

あとは、このXMLを用いて画像を加工して、インターフェイスを整えれば完成です。

PerlのCGIモジュールを本格的に使う前にRubyのCGIライブラリを使っちゃったけど、今回のプログラムはCGIモジュールをフルに使っています。

ののワさん素材配布サイト『ののワさんフリー』

の素材をお借りして、Perlで画像処理プログラミングをしてみました。

↓のような画像が４０秒ほどで出来ます。

動作は、まっさらなキャンバスの上にひたすら「ののワさん」を縮小・回転させながら貼りまくるという感じです。

ちなみに「ののワさん」はこの前作ったツールで連番にして保存しています。下のコードでは連番で保存しないと動きません。（念のため）

ソース↓

#!/usr/bin/perl

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

my $width     = "500";       # キャンバスの横幅
my $height    = "500";       # キャンバスの縦幅
my $sum_files = 53;          # 全ファイル数
my $folder    = "./nonowa/"; # 画像が入っているフォルダ 

# 合成元のキャンバスを用意
my $newimg = Image::Magick->new;
$newimg->Set(size=>"${width}x$height");
$newimg->ReadImage('xc:white'); # 背景色

# 繰り返し合成
foreach(1..1000)
{
    # 貼り付ける画像を読み込む
    my $img     = Image::Magick->new;
    my $filenum = int(rand $sum_files) + 1;
    $img->ReadImage("$folder$filenum.png");
    my($x, $y) = $img->Get('width', 'height'); # サイズを取得

    # 貼り付ける画像の角度をランダムに変更
    $img->Rotate(degrees => int(rand 360) + 1, color=>"none");

    # 貼り付ける画像のサイズをランダムに変更
    my $rand = ( int(rand 10) + 1 ) / 10;
    $img->Resize(width => $x * $rand, height => $y * $rand);

    # ランダムな場所に合成
    $newimg->Composite
    (
        image   => $img,
        compose => 'over',
        x       => -$x + int( rand ($width +$x) ) + 1,
        y       => -$y + int( rand ($height+$y) ) + 1,
    );

    print "$_\n"; # 進捗を表示
}

$newimg->Write("./gousei.jpg");

画像が荒くなってまともに表示されなくなるので、ループする度に画像を読み直しています。