Anonymous user
Color wheel: Difference between revisions
→{{header|Sidef}}
(Added Perl) |
|||
Line 197:
end if
end function</lang>
=={{header|Sidef}}==
{{trans|Perl 6}}
<lang ruby>require('Imager')
var (width, height) = (300, 300)
var center = Complex(width/2 , height/2)
var img = %s|Imager|.new(
xsize => width,
ysize => height,
)
for y, x in (^height ~X ^width) {
var vector = (center - x - y.i)
var magnitude = (vector.abs * 2 / width)
var direction = ((Num.pi + atan2(vector.real, vector.imag)) / Num.tau)
img.setpixel(
x => x,
y => y,
color => Hash(hsv => [360*direction, magnitude, magnitude < 1 ? 1 : 0])
)
}
img.write(file => 'color_wheel.png')</lang>
=={{header|Sidef}}==
| |||