Color quantization: Difference between revisions
→{{header|Perl 6}}: Add a Perl 6 example
m (moved J above Kotlin) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
||
Line 1,451:
done;
(res)</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|2018.10}}
<lang perl6>use MagickWand;
use MagickWand::Enums;
my $frog = MagickWand.new;
$frog.read("./Quantum_frog.png");
$frog.quantize(16, RGBColorspace, 0, True, False);
$frog.write('./Quantum-frog-16-perl6.png');</lang>
See: [https://github.com/thundergnat/rc/blob/master/img/Quantum-frog-16-perl6.png Quantum-frog-16-perl6.png] (offsite .png image)
=={{header|PureBasic}}==
| |||