画像を上下反転させる
ImageMagickを使用し、画像を上下反対にしたい。このように上下に180度回転させたい場合にはFlipメソッドを活用しよう。
| ○Befor | ○After | |
 |
→ |  |
#!/usr/bin/perl
;#
;#画像を上下に反転する
;#
use Image::Magick;
#-------------------------------------------#
#初期設定
#-------------------------------------------#
#-- 元画像 --#
my $source = './sample_org1.jpg';
#-------------------------------------------#
#上下に反転する(鏡像の作成)
#-------------------------------------------#
#-- インスタンス生成 --#
my $image = Image::Magick->new;
#-- 画像を読込む --#
$image->Read($source);
#-- 上下反転 --#
$image->Flip;
#-- 画像を保存する(JPEG) --#
$image->Write("./image_flip.jpg");
ちょっと大きめの実行結果です。
左右に反転するのは「Flop」、上下に反転するのは「Flip」です。
