Color wheel: Difference between revisions
no edit summary
(→{{header|Phix}}: added syntax colouring and online link) |
No edit summary |
||
Line 902:
Until local image uploading is re-enabled, see [https://github.com/thundergnat/rc/blob/master/img/Color-wheel-perl6.png Color-wheel-perl6.png]
=={{header|Ring}}==
[https://kepfeltoltes.zapto.org/public/20210909015811ColorWheel.jpg Color wheel - image]
<lang ring>
load "stdlib.ring"
load "guilib.ring"
paint = null
new qapp
{
win1 = new qwidget() {
setwindowtitle("Color wheel")
setgeometry(540,140,300,400)
label1 = new qlabel(win1) {
setgeometry(10,10,400,400)
settext("")
}
show()
}
draw()
exec()
}
func draw
p1 = new qpicture()
color = new qcolor() {
setrgb(0,0,255,255)
}
paint = new qpainter() {
begin(p1)
colorWheel()
endpaint()
}
label1 { setpicture(p1) show() }
func colorWheel()
pi = 3.14
radius = 100
x = win1.width()
y = win1.height()
for i=1 to x
for j=1 to y
color = new qcolor() { setrgb(255,255,255,255) }
pen1 = new qpen() { setcolor(color) setwidth(5) }
h = (atan2(i-radius,j-radius)+pi)/(2*pi)
s = sqrt(pow(i-radius,2)+pow(j-radius,2))/radius
v = 1
if s < 1
color.setHsvF(h,s,v,1)
pen1 = new qpen() { setcolor(color) setwidth(5) }
ok
paint.setPen(pen1)
paint.drawPoint(i,j)
next
next
</lang>
=={{header|Ruby}}==
| |||