clamp i_conv() at both ends

diff --git a/Changes b/Changes
index 19c2b63fe20dcdd0575d346afb632b8e34bd84aa..a2d926f44487c58cf432dbec75aa4da5bbe4d8fd 100644 (file)
--- a/Changes
+++ b/Changes
@@ -515,6 +515,8 @@ Revision history for Perl extension Imager.
           being drawn in a plain color
         - image based fills
         - unsharp mask
+        - make i_conv() clamp the bottom end of the samples range too
+          (makes it useful for sharpening)
 
 =================================================================
 

diff --git a/t/t61filters.t b/t/t61filters.t
index 0a51fc8db1aa7ad457f410c090afbae0f2b3a789..4ed8c32c052f8dca21b86e2ed1ede01093f6b53f 100644 (file)
--- a/t/t61filters.t
+++ b/t/t61filters.t
@@ -9,7 +9,7 @@ $imbase->open(file=>'testout/t104.ppm') or die;
 my $im_other = Imager->new(xsize=>150, ysize=>150);
 $im_other->box(xmin=>30, ymin=>60, xmax=>120, ymax=>90, filled=>1);
 
-print "1..37\n";
+print "1..39\n";
 
 test($imbase, 1, {type=>'autolevels'}, 'testout/t61_autolev.ppm');
 
@@ -79,6 +79,9 @@ test($imbase, 34, { type=>'fountain', xa=>75, ya=>75, xb=>90, yb=>15,
      'testout/t61_fount_gimp.ppm');
 test($imbase, 36, { type=>'unsharpmask', stddev=>2.0 },
      'testout/t61_unsharp.ppm');
+test($imbase, 38, {type=>'conv', coef=>[ -1, 3, -1, ], },
+     'testout/t61_conv_sharp.ppm');
+
 
 sub test {
   my ($in, $num, $params, $out) = @_;