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