| … | … | ||
|---|---|---|---|
| 73 | } | 73 | } |
| 74 | 74 | ||
| 75 | sub blur($$$) { | 75 | sub blur($$$) { |
| 76 | my ($rh, $rv, $img) = @_; | 76 | my ($rh, $rv, $img) = @_; |
| 77 | 77 | ||
| 78 | $img = $img->clone; | ||
| 79 | $img->blur ($rh, $rv); | 78 | $img->blur ($rh, $rv); |
| 80 | $img | ||
| 81 | } | 79 | } |
| 82 | 80 | ||
| 83 | sub contrast($$;$$;$) { | 81 | sub contrast($$;$$;$) { |
| 84 | my $img = pop; | 82 | my $img = pop; |
| 85 | my ($r, $g, $b, $a) = @_; | 83 | my ($r, $g, $b, $a) = @_; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |