• Twitter
• Facebook
• Tumblr
• Email

ImageMagickを使用し、画像を左右反対にしたい。このように左右に180度回転させたい場合にはFlopメソッドを活用しよう。

#!/usr/bin/perl
 
;#
;#画像を左右に反転する
;#
 
use Image::Magick;
 
#-------------------------------------------#
#初期設定
#-------------------------------------------#
#-- 元画像 --#
my $source = './sample_org1.jpg';
 
 
#-------------------------------------------#
#左右に反転する(鏡像の作成)
#-------------------------------------------#
 
#-- インスタンス生成 --#
my $image = Image::Magick->new;
 
#-- 画像を読込む --#
$image->Read($source);
 
#-- 左右反転 --#
$image->Flop;
 
#-- 画像を保存する(JPEG) --#
$image->Write("./image_flop.jpg");

左右に反転するのは「Flop」、上下に反転するのは「Flip」です。 以下はちょっと大きめの実行結果です。

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

• Twitter
• Facebook
• Tumblr
• Email