Color quantization: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
SqrtNegInf (talk | contribs) (Added Perl example) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 8:
Note: the funny color bar on top of the frog image is intentional.
<br clear=left>
=={{header|C}}==
[[file:quantum_frog_C.png|C output|thumb|200px]]
Line 126 ⟶ 127:
free(heap.buf);
}</lang>
=={{header|Common Lisp}}==
Line 1,283:
run(execstring)
</lang>
=={{header|Kotlin}}==
Line 1,472 ⟶ 1,471:
Compare offsite images: [https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/frog.png frog.png] vs.
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/frog-16.png frog-16.png]
=={{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|Phix}}==
Line 2,153 ⟶ 2,140:
</lang>
(formerly 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|Sidef}}==
| |||