March 2002 | Perl Hardware Store | 23 |
Another example: Converting RGB values to CMYK values:
sub cmyk { my ($r, $g, $b) = @_; my ($c, $m, $y) = (1-$r, 1-$g, 1-$b); my $k = $c < $m ? ($c < $y ? $c : $y) : ($m < $y ? $m : $y); # Minimum for ($c, $m, $y) { $_ -= $k } [$c, $m, $y, $k]; }
Many image formats (including GIF) have many pixels that are the same color.
This recomputes the same CMYK values over and over.
Next | Copyright © 2002 M-J. Dominus |