… | |
… | |
749 | =head2 COLOUR MODIFICATIONS |
749 | =head2 COLOUR MODIFICATIONS |
750 | |
750 | |
751 | The following operators change the pixels of the image. |
751 | The following operators change the pixels of the image. |
752 | |
752 | |
753 | =over 4 |
753 | =over 4 |
|
|
754 | |
|
|
755 | =item tint $color, $img |
|
|
756 | |
|
|
757 | Tints the image in the given colour. |
|
|
758 | |
|
|
759 | Example: tint the image red. |
|
|
760 | |
|
|
761 | tint "red", load "rgb.png" |
|
|
762 | |
|
|
763 | Example: the same, but specify the colour by component. |
|
|
764 | |
|
|
765 | tint [1, 0, 0], load "rgb.png" |
|
|
766 | |
|
|
767 | =cut |
|
|
768 | |
|
|
769 | sub tint($$) { |
|
|
770 | $_[1]->tint ($_[0]) |
|
|
771 | } |
754 | |
772 | |
755 | =item contrast $factor, $img |
773 | =item contrast $factor, $img |
756 | |
774 | |
757 | =item contrast $r, $g, $b, $img |
775 | =item contrast $r, $g, $b, $img |
758 | |
776 | |