| … | … | ||
|---|---|---|---|
| 536 | 536 | ||
| 537 | ($g, $b) = ($r, $r) if @_ < 4; | 537 | ($g, $b) = ($r, $r) if @_ < 4; |
| 538 | $a = 1 if @_ < 5; | 538 | $a = 1 if @_ < 5; |
| 539 | 539 | ||
| 540 | $img = $img->clone; | 540 | $img = $img->clone; |
| 541 | # $img->contrast ($r, $g, $b, $a); | 541 | $img->contrast ($r, $g, $b, $a); |
| 542 | $img | 542 | $img |
| 543 | } | 543 | } |
| 544 | 544 | ||
| 545 | sub brightness($$;$$;$) { | 545 | sub brightness($$;$$;$) { |
| 546 | my $img = pop; | 546 | my $img = pop; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |