Color wheel: Difference between revisions
Added Easylang
m (→{{header|Wren}}: Changed to Wren S/H) |
(Added Easylang) |
||
Line 329:
{{out}}
Png Image [https://ibb.co/T0w8KyF].
=={{header|EasyLang}}==
[https://easylang.dev/show/#cod=bZLZboMwEEXf+Yr7iIlilixqlPpjWOyARGpj3Bb+vhogCi48ANa9Z2bMzBirS9R9kdlHgfpbos8dCtuAw+KBAjwAUEMgJPcI1WptiWSIcCVTQaB+OyQZiClJhDDFkXIykruNjAhqstyeNR0VY68rrCo0alISOgOwS/gdDwg43FFAwJAr24VNV2y3kHPMls1WrNmwzmNPO2y3kIVtPPa8Yt3Cmv9sL3f/6sV15PKAB4ZmV/7WUrbg86CUthipL3Aa59ttSVSRNuKI7PLqGJHDliSY5MGDSW16mlHfWYewGhARd6DMEaqRvcFGzeyn8BPQkGvpcgjkLv/KKLQaPJ82TCCcsQPSj4QhxunqZ1lvaziViqkSQzqvrAeXutX2tGM89Y/EgBgXjPT2TCtLh4Rn9LwNHqy+NIC590HwBw== Run it]
{{trans|Go}}
<syntaxhighlight>
proc hsb2rgb hue sat bri . r g b .
h = (hue - floor hue) * 6
f = h - floor h
p = bri * (1 - sat)
q = bri * (1 - sat * f)
t = bri * (1 - sat * (1 - f))
h = floor h
if h = 0
r = bri ; g = t ; b = p
elif h = 1
r = q ; g = bri ; b = p
elif h = 2
r = p ; g = bri ; b = t
elif h = 3
r = p ; g = q ; b = bri
elif h = 4
r = t ; g = p ; b = bri
else
r = bri ; g = p ; b = q
.
.
proc cwheel . .
for y = 0 to 499
dy = y - 250
for x = 0 to 499
dx = x - 250
dist = sqrt (dx * dx + dy * dy)
if dist <= 250
theta = atan2 dy dx
hue = (theta + 180) / 360
hsb2rgb hue (dist / 250) 1 r g b
color3 r g b
move x / 5 y / 5
rect 0.2 0.2
.
.
.
.
cwheel
</syntaxhighlight>
=={{header|Fōrmulæ}}==
| |||