Plasma effect: Difference between revisions
m
→{{header|Perl 6}}: more efficient color space conversion
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Make it racy) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: more efficient color space conversion) |
||
Line 1,115:
my $x = $c * (1 - abs( (($h*6) % 2) - 1 ) );
my $m = $v - $c;
my ($r, $g, $b) = (do given $h {
when 0..^1/6 { $c, $x, 0 }
when 1/6..^1/3 { $x, $c, 0 }
Line 1,122:
when 2/3..^5/6 { $x, 0, $c }
when 5/6..1 { $c, 0, $x }
▲ ( $r, $g, $b ) = map { (($_+$m) * 255).Int }, $r, $g, $b;
}</lang>
| |||