Hello IM user group, I have now begun to implement the plane groups with PerlMagick beginning with the simplest pmm http://www.vi-anec.de/Trance-Art/IM-examples/IM-plane_group_pmm/pmm_e.pdf
It works until the +append method. On http://www.imagemagick.org/script/perl-magick.php about the append command is written: "$image->Append(stack=>{true,false}) appends all the images associated with object $image. " So I tried to push the two images pmm_G and pmm_G_flop in the object $pmm_tile_row and then append the two to get one image but this does not work: If I write $pmm_tile_row I get the two images and not the appended one. So push may be not the right way to translate "...all the images associated with object ..." How can this be done? Thank you very much for your help. Günter **pmm_tile********* use Image::Magick; $pmm_G = new Image::Magick; #open the source image $pmm_G-> Read(filename=>'image.jpg'); #convert image.jpg -crop 1373x1985+839+131 +repage pmm_G.png $pmm_G->Crop(geometry => '1373x1985+839+131'); #convert pmm_G.png -flop pmm_G_flop.png $pmm_G_flop = $pmm_G->Clone(); $pmm_G_flop->Flop(); #convert pmm_G.png pmm_G_flop.png +append pmm_tile_row.png $pmm_tile_row = $pmm_G->Clone(); push (@$pmm_tile_row, $pmm_G_flop); #<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $pmm_tile_row->Append(stack=>false); #convert pmm_tile_row.png -flip pmm_tile_row_flip.png $pmm_tile_row_flip = $pmm_tile_row->Clone(); $pmm_tile_row_flip->Flip(); #convert pmm_tile_row.png pmm_tile_row_flip.png -append pmm_tile.png $pmm_tile = $pmm_tile_row->Clone(); push (@$pmm_tile, $pmm_tile_row_flip); $pmm_tile->Append(stack=>true); #save result image $pmm_tile->Write(filename=>'pmm_tile_image-001.jpg'); _______________________________________________ Magick-users mailing list [email protected] http://studio.imagemagick.org/mailman/listinfo/magick-users
