here's some code from an old program of mine that concatenates two images (image1 and image2.png):
$tempimage = new Image::Magick;
$tempimage->Read('image1.png');
$temppg = new Image::Magick;
$temppg->Read('image2.png');
$temppg->Resize(width=>400, height=>351, filter=>Box);
$temppg->Border(height=>8, outer=>5, color=>'#FFFFFF');
$temppg->Border(width=>1, height=>1, color=>'#000000');
$comp = new Image::Magick(size=>'710x410');
$comp->Read( 'xc:white' ); #i think this sets the background color
$comp->Composite(image=>$tempimage, gravity=>'southeast'); #this dete
+rmines where the image will be placed (southeast = bottom right)
$comp->Composite(image=>$temppg, gravity=>'southwest');
$comp->Annotate(gravity=>'north', text=>substr($names[$curimage],0,100
+)); #adds a title at the top of the image
$comp->Write('concatenated.png');
hope that helps... |