StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POimage::Magick perl module - Multiple crop/resize manipulations from one Read and one Write?
text
Body
copied!<p>I have a Perl script that uses the Image::Magick perl module to crop an existing image from a web form (that uses JCrop to feed me width, height, x, y). Because the cropped image will be used in a responsive design environment, I'm creating multiple sizes of the image for use on the front end of the web site. The sizes are built in an array (as seen in the code below) and are handled one by one to create each image size.</p> <p>As you'll see from the code below, I ultimately have to open the image 3 times and write it 3 times...which seems rather excessive...so I'm hoping you guys know a better way to do this.</p> <p>I originally tried to use Image::Magick to simply open the file one time, run the "crop, resize, crop" process and then write the image once, but the results were horrendous. None of the coordinates translated properly and as a result the image was not even close to the size of what the user requested in the web form...despite the values being read perfectly.</p> <p>So my question to all of you is whether anyone has been able to pull off a single "open", (with multiple manipulations of the opened image), and then perform a single "write" using the Image::Magick perl module? And if so, could you please provide a sample that would be a long the lines of the code I've posted below? I greatly appreciate any help that can be given. A snippet of my code is below. Sorry for the excessive commenting, I wanted to make it as easy as possible to follow along with :)</p> <pre><code>#!/usr/bin/perl use Image::Magick; use CGI qw(:cgi-lib); &ReadParse(*input); ############################## # Build array of sizes needed ############################## my @sizes = ("1280","960","640","480","320","160"); foreach $size (@sizes) { $resized = "/path/to/size/folders/$size\/$input{image_ID}\.png"; $image = Image::Magick->new; $x = $image->Read("/path/to/fullsize/image"); ######################### # Run the requested crop ######################### $x = $image->Crop(width=>$input{w},height=>$input{h},x=>$input{x},y=>$input{y}); ######################## # Write cropped version ######################## $x = $image->Write("$resized"); ########################### # Open the cropped version ########################### $image = Image::Magick->new; $x = $image->Read("$resized"); ############################################### # Size the image down to +2 pixels all around # to handle border opacity when pixel rounding ############################################### $temp_width = $size + 2; $temp_height = ($temp_width * $input{h}) / $input{w}; ########################### # Resize the cropped image ########################### $x = $image->Resize(width=>$temp_width, height=>$temp_height); ################################ # Write the newly resized image ################################ $x = $image->Write("$resized"); ######################################## # Calculate final dimensions and coords ######################################## $final_height = ($size * $temp_height) / $temp_width; $final_x = 1; $final_y = 1; ############################### # Open the newly resized image ############################### $image = Image::Magick->new; $x = $image->Read("$resized"); ####################################### # Final crop the image for clean edges ####################################### $x = $image->Crop(width=>$size,height=>$final_height,x=>$final_x,y=>$final_y); ######################################## # Write the final cropped image for use ######################################## $x = $image->Write("$resized"); } </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload