#make a unified image #~__ my $img_uni = Imager->new(xsize=>$pos_width * 2,ysize=>$global_ascent,channels=>4); #~__ $img_uni->paste(left=>$pos_width,top=>0,img=>$img1); #~__ $img_uni->paste(left=>0,top=>0,img=>$img_mirror); my $img_uni = Imager->new(xsize=>$pos_width ,ysize=>$global_ascent * 2,channels=>4); $img_uni->paste(left=>0,top=>$global_ascent,img=>$img_mirror); $img_uni->paste(left=>0,top=>0,img=>$img1);