「グラフィックProg」の編集履歴(バックアップ)一覧はこちら
「グラフィックProg」(2008/03/15 (土) 23:36:28) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
* Fly
* ImageMagick
本家:http://www.imagemagick.org/script/index.php
PerlMagick : http://www.imagemagick.org/script/perl-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;
* 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;