したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プログラムスレッド

61：女傑 ◆nDpXSJz8i.：2012/04/23(月) 23:08:35
メモメモ＾＾

#!/usr/local/bin/perl -w

use strict;
use Image::Magick;

# 元画像
my $file = "http://upload.wikimedia.org/wikipedia/commons/thumb/b/b7/Iemitu.jpg/295px-Iemitu.jpg";

# 重ねる画像
my $file2 = "http://upload.wikimedia.org/wikipedia/commons/thumb/9/9f/Japanese_crest_Tokugawa_Aoi.svg/240px-Japanese_crest_Tokugawa_Aoi.svg.png";

my $file3 = "：：：.png";

my $file4 = "：：：.gif";

# 元画像読み込む
my $image = Image::Magick->new;
$image->Read($file);

# 重ねる画像を読み込む
my $image2 = Image::Magick->new;
$image2->Read($file2);

# 重ねる画像を読み込む
my $image3 = Image::Magick->new;
$image3->Read($file3);

my $image4 = Image::Magick->new;
$image4->Read($file4);
# 重ねる画像のサイズ変更
$image2->Resize(width=>50, height=>50, blur=>0.7);
$image3->Resize(width=>80, height=>25, blur=>0.7);
$image4->Resize(width=>60, height=>20, blur=>0.7);
# 画像を合成する

$image->Resize(width=>180, height=>230, blur=>0.7);
$image->Composite(image=>$image2, compose=>'Over', x=>10, y=>10);
$image->Composite(image=>$image3, compose=>'Over', x=>90, y=>200);
$image->Composite(image=>$image4, compose=>'Over', x=>10, y=>200);

# 出力
print "Content-type: image/png\n\n";
binmode STDOUT;
$image->Write('png:-');

undef $image;
exit;
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板