Help for this page

Select Code to Download


  1. or download this
         use Image::Magick;
     my $image = Image::Magick->new();
...
     $pic->Scale( width=>$w, height=>$h );
     $image->Composite( image=>$pic, x=>$x, y=>$y, compose=>'Over' );
     $image->Write( 'xb.jpg' );
  2. or download this
            use Image;
        my $image = Imager->new;
...
          $pic->scale( xpixels=>$w, ypixels=>$h, type=>'min' ),
         );
        $image->write(file=>"xb.jpg");