print "... create new final-image\n"; my $img_final = Image::Magick->new(); print "... read basic map\n"; my $result_read_basic = $img_final->Read($map_basic); warn "$result_read_basic" if "$result_read_basic"; # Bildgröße setzen #my $image_width_dpi = int($area2plot[0]*$dpi/25.4); #my $image_height_dpi = int($area2plot[1]*$dpi/25.4); #$img_final->Set(size=>$image_width_dpi.'x'.$image_height_dpi, fill => 'white'); #$img_final->ReadImage('xc:White'); if (!-e $map_ovl1){ print "*** overlay1 not found ! (name:= ".$map_ovl1.")\n"; } else { print "... create new overlay1-image\n"; my $img_ovl1 = Image::Magick->new(); print "... read overlay1 map\n"; my $warn_read_ovl1 = $img_ovl1->Read($map_ovl1); warn "$warn_read_ovl1" if "$warn_read_ovl1"; # einbinden des Overlay print "... sandwich overlay1\n"; $img_final->Composite( image => $img_ovl1, compose => 'add', geometry => $image_width_dpi.'x'.$image_height_dpi.'+0+0' ); } print "... write final-map (name:= ".$map_final.")\n"; my $result_write_ovl1 = $img_final->Write($map_final); warn "$result_write_ovl1" if "$result_write_ovl1"; print "--> complete\n"; } # end-while