Color wheel: Difference between revisions
→{{header|Perl 6}}: minor teaks, half the run time, same output
(Added Go) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: minor teaks, half the run time, same output) |
||
Line 214:
sub color-wheel ( $png ) {
for ^$h -> $y {
my $vector = $center - $x - $y*i;
Line 236:
when 5/6..1 { $c, 0, $x }
}
( $r, $g, $b )
}</lang>
| |||