clarify the crop() documentation just for merlyn

diff --git a/Changes b/Changes
index 414295483c5d9fb809a42929e476a35e214204cf..6c9ed40149f05f36d8f1c54a07b526998d1128d0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -634,6 +634,8 @@ Revision history for Perl extension Imager.
 0.40
         - difference() wasn't setting an alpha channel when the input
           image didn't have one
+        - improve crop() documentation, see
+          http://perlmonks.org/index.pl?lastnode_id=155767&node_id=155428
 
 =================================================================
 

diff --git a/lib/Imager/Transformations.pod b/lib/Imager/Transformations.pod
index 21cdd8d79d946e4f91a51a539dd2731d30d40cc1..62cacc5a9542e6b0915eb17bc9efc6f60f425174 100644 (file)
--- a/lib/Imager/Transformations.pod
+++ b/lib/Imager/Transformations.pod
@@ -101,11 +101,12 @@ calling scaleX and scaleY.  You can pass either 'scalefactor' or
 
 =item crop
 
+Another way to resize an image is to crop it.  The parameters to
+crop are the edges of the area that you want in the returned image,
+where the right and bottom edges are non-inclusive.  If a parameter is
+omitted a default is used instead.
 
-Another way to resize an image size is to crop it.  The parameters
-to crop are the edges of the area that you want in the returned image.
-If a parameter is omited a default is used instead.
-
+  # the first two produce the same image
   $newimg = $img->crop(left=>50, right=>100, top=>10, bottom=>100); 
   $newimg = $img->crop(left=>50, top=>10, width=>50, height=>90);
   $newimg = $img->crop(left=>50, right=>100); # top 
@@ -121,7 +122,6 @@ and top/bottom parameters respectively.
 
 =item rotate
 
-
 Use the rotate() method to rotate an image.  This method will return a
 new, rotated image.