Support Mitchell filtering via qscale.

diff --git a/perl/Sesse/pr0n/QscaleProxy.pm b/perl/Sesse/pr0n/QscaleProxy.pm
index f534d78f9ae279c6aa1820f9083e8473948dac55..3f0052c2c0b70b4454296ceb2b9174075863b126 100644 (file)
--- a/perl/Sesse/pr0n/QscaleProxy.pm
+++ b/perl/Sesse/pr0n/QscaleProxy.pm
@@ -129,9 +129,10 @@ sub Resize {
        my $samp_v2 = 1;
 
        my $filter;
        my $samp_v2 = 1;
 
        my $filter;

-       if ($args{'filter'} eq 'Lanczos' ||
-           $args{'filter'} eq 'Mitchell') {
+       if ($args{'filter'} eq 'Lanczos') {

                $filter = $qscale::LANCZOS;
                $filter = $qscale::LANCZOS;

+       } elsif ($args{'filter'} eq 'Mitchell') {
+               $filter = $qscale::MITCHELL;

        } else {
                die "Unknown filter " . $args{'filter'};
        }
        } else {
                die "Unknown filter " . $args{'filter'};
        }