「グラフィックProg」の編集履歴（バックアップ）一覧に戻る

グラフィックProg - (2008/03/15 (土) 23:36:28) のソース

* Fly


* ImageMagick

本家(DL)：http://www.imagemagick.org/script/index.php
Unixソースインスト：http://www.imagemagick.org/script/install-source.php#unix

PerlMagick使い方 : http://www.imagemagick.org/script/perl-magick.php

Install方法 http://mizushima.ne.jp/Windows/Weblog/MovableType/ImageMagick/Image-Magick.php
http://tuka.s12.xrea.com/index.xcg?p=ImageMagick
http://mechanics.civil.tohoku.ac.jp/soft/node43.html


PerlMagickで変換するには、まずImage::Magickのインスタンスを生成します。そして、Read()で画像を読み込み、読み込んだ画像に対して色々な操作を行うのが基本である。サンプルは、logo.jpg を読み込んで、128x96のサムネール(logos.jpg)を生成します。
 #!/usr/bin/perl -w
 # ImageMagickサンプル
 # Windows2000, ActivePerl5.8, ImageMagick5.5.7 で動作確認
 
 use strict;
 use Image::Magick;
 
 # バージョン表示
 #print $Image::Magick::VERSION;
 
 my($image, $status);
 # インスタンス生成
 $image = Image::Magick->new;
 
 # 画像読み込み
 $status = $image->Read('logo.jpg');
 warn($status) if($status);
 
 # 画像リサイズ
 $image->Scale('128x96');
 
 # 画像書き出し
 $status = $image->Write('logos.jpg');
 warn($status) if($status);
 
 # オブジェクト破棄
 undef $image;