Rosetta Code

Color wheel: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Thundergnat (talk | contribs)
10,381 edits
→‎{{header|Perl 6}}: Add Perl 6 entry
Thundergnat (talk | contribs)
10,381 edits
m →‎{{header|Perl 6}}: Better variable naming, minor style tweaks
Line 48:
for ^$w -> $x {
for ^$h -> $y {
my $pointvector = $center - ($x +- $y*i);
my $magmagnitude = 2$vector.abs * 2 / $point.absw;
$png.set:my $x,direction $y,= |hsv2rgb( $point.&c2p,π $mag+ /atan2( |$w,vector.reals so) $mag) </ $w )τ;
$png.set: $x, $y, |hsv2rgb( $direction, $magnitude, $magnitude < 1 );
}
}
}
 
sub c2p ($xy) { # complex to polar angle scaled 0 to 2π
( π + atan2($xy.re, $xy.im) ) / τ
}
 
Retrieved from "https://rosettacode.org/wiki/Color_wheel"