とあるエンジニアの闇歴史帳

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。

====== 画像の角度を指定し回転する その1 - Perl,ImageMagick ======
~~socialite~~
<note important>この記事は2007年02月23日に書かれたものです。</note>

ImageMagickを使用し、画像の角度を指定し、その角度分回転させたい。FlipメソッドとFlopメソッドはそれぞれ180度の回転しかできないが、Rotateメソッドを用いれば自由に角度を調整できる。 

===== 実行例 =====
^  befor  ^  after  ^
|{{:perl:imagemagick:sample_org1_s.jpg?nolink|}}|{{:perl:imagemagick:image_30.jpg?nolink|}}|


===== サンプル =====
<code perl>
#!/usr/bin/perl

;#
;#角度を指定し、画像を回転する
;#

use Image::Magick;

#-------------------------------------------#
#初期設定
#-------------------------------------------#
#-- 元画像 --#
my $source = './sample_org1_s.jpg';

#-- 回転する角度 --#
my @list = (
    0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330, 360
);


#-------------------------------------------#
#画像を30度ずつ回転する
#-------------------------------------------#
foreach my $degree (@list){
	#-- インスタンス生成 --#
	my $image = Image::Magick->new;

	#-- 画像を読込む --#
	$image->Read($source);

	#-- 回転 --#
	$image->Rotate(degrees=>$degree);

	#-- 画像を保存する(JPEG) --#
	$image->Write("./image_$degree.jpg");

	#-- オブジェクト削除 --#
	undef $image;
}
</code>

===== 実行例一覧 =====

  = 0度回転 : {{:perl:imagemagick:image_0.jpg?nolink|}}

  = 30度回転 : {{:perl:imagemagick:image_30.jpg?nolink|}}

  = 60度回転 : {{:perl:imagemagick:image_60.jpg?nolink|}}

  = 90度回転 : {{:perl:imagemagick:image_90.jpg?nolink|}}

  = 120度回転 : {{:perl:imagemagick:image_120.jpg?nolink|}}

  = 150度回転 : {{:perl:imagemagick:image_150.jpg?nolink|}}

  = 180度回転 : {{:perl:imagemagick:image_180.jpg?nolink|}}

  = 210度回転 : {{:perl:imagemagick:image_210.jpg?nolink|}}

  = 240度回転 : {{:perl:imagemagick:image_240.jpg?nolink|}}

  = 270度回転 : {{:perl:imagemagick:image_270.jpg?nolink|}}

  = 300度回転 : {{:perl:imagemagick:image_300.jpg?nolink|}}

  = 330度回転 : {{:perl:imagemagick:image_330.jpg?nolink|}}

  = 360度回転 : {{:perl:imagemagick:image_360.jpg?nolink|}}

===== 関連書籍 =====
{{amazon>jp:4844326473}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4797344377}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4873114136}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4797336803}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4798139815}}
<html><p style="clear:both"></p></html>

{{tag>CGI・Perl例文集 Perl ImageMagick PerlMagick }}
~~socialite~~

とあるエンジニアの闇歴史帳

ユーザ用ツール

関連ページ

ページ用ツール