Support Mitchell filtering via qscale.
authorSteinar H. Gunderson <sesse@debian.org>
Sat, 12 Jul 2008 22:30:48 +0000 (00:30 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Sat, 12 Jul 2008 22:30:48 +0000 (00:30 +0200)
perl/Sesse/pr0n/QscaleProxy.pm

index f534d78f9ae279c6aa1820f9083e8473948dac55..3f0052c2c0b70b4454296ceb2b9174075863b126 100644 (file)
@@ -129,9 +129,10 @@ sub Resize {
        my $samp_v2 = 1;
 
        my $filter;
-       if ($args{'filter'} eq 'Lanczos' ||
-           $args{'filter'} eq 'Mitchell') {
+       if ($args{'filter'} eq 'Lanczos') {
                $filter = $qscale::LANCZOS;
+       } elsif ($args{'filter'} eq 'Mitchell') {
+               $filter = $qscale::MITCHELL;
        } else {
                die "Unknown filter " . $args{'filter'};
        }