画像合成(Image::Magick, Composite)
#! /usr/local/bin/perl use Image::Magick; # 元画像ファイル $file1 = '../../sample/img/img.jpg'; # 埋め込み画像ファイル $file2 = '../../sample/img/no/7.gif'; # 画像保存先 $out = './imgcomp.jpg'; # オブジェクト作成 $image1 = Image::Magick->new; $image2 = Image::Magick->new; # 画像ファイル読み込み $image1->Read($file1); $image2->Read($file2); # 画像合成 $image1->Composite(image=>$image2, compose=>'Over', x=>20, y=>20); # 画像保存 $image1->Write($out); print qq(Content-type: text/html\n\n); print <<"END"; <html> <head> <title>画像合成</title> </head> <body> 画像を合成・保存しました。<br> <br> ↓保存した画像<br> <img src="$out"><br> <br> ↓元の画像<br> <img src="$file1" style="float:left"> <img src="$file2"><br> </body> </html> END exit;
〔 実行する 〕