CodingFirst

C言語、Perl、JavaScript、最近はPythonも。出来上がったものより、プログラムを書くことが好き。あと、スイーツ。

スポンサーサイト

  • このエントリーをはてなブックマークに追加
  • web拍手 by FC2
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

PerlMagickで複数の画像を1枚にまとめる

  • このエントリーをはてなブックマークに追加
  • web拍手 by FC2

PerlMagickで複数の画像を1枚にまとめた。

ImageMagickのmontageコマンドでもできて、それは前に書いた。
ImageMagickで撮った月食を1枚にまとめる CodingFirst

PerlMagick は、cpanでなく apt-get で入手した。

$ sudo apt-get install perlmagick

で、作ったコードは下記。
引数に 4つの画像ファイルを指定すると、2x2に結合した out.jpg が出力される。
ちょっといい加減なコードなので、ファイル数に応じて 2x2 を変更したり、 フィルタかけたり、文字描いたり..改造して使うといいでしょう。

#!/usr/local/bin/perl
use strict;
use warnings;
use Image::Magick;
print <<USAGE if $#ARGV==-1;
Usage: montage.pl file..`
USAGE
my $img = new Image::Magick;
$img->Read(@ARGV);
my $mon=$img->Montage(geometry=>'160',tile=>'2x2');
$mon->Write(filename=>'out.jpg');

gistにも貼った。
https://gist.github.com/2621784

実際に作った出力例。

$ perl montage.pl a.jpg b.jpg c.jpg d.jpg

out.jpg:
out_20120506.jpg

最近、コージーコーナーの濃厚レアチーズケーキにはまってる。うまい。。

スポンサーサイト

 | HOME | 

Search

Recent Entries

Foot Print



Categories

Monthly

Recent Comments

Recent Trackbacks

Profile

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。