55 lines
1.3 KiB
Text
55 lines
1.3 KiB
Text
# Project : Polyspiral
|
|
|
|
load "guilib.ring"
|
|
|
|
paint = null
|
|
incr = 1
|
|
x1 = 1000
|
|
y1 = 1080
|
|
angle = 10
|
|
length = 10
|
|
|
|
new qapp
|
|
{
|
|
win1 = new qwidget() {
|
|
setwindowtitle("")
|
|
setgeometry(10,10,1000,1080)
|
|
label1 = new qlabel(win1) {
|
|
setgeometry(10,10,1000,1080)
|
|
settext("")
|
|
}
|
|
new qpushbutton(win1) {
|
|
setgeometry(150,30,100,30)
|
|
settext("draw")
|
|
setclickevent("draw()")
|
|
}
|
|
show()
|
|
}
|
|
exec()
|
|
}
|
|
|
|
func draw
|
|
p1 = new qpicture()
|
|
color = new qcolor() {
|
|
setrgb(0,0,255,255)
|
|
}
|
|
pen = new qpen() {
|
|
setcolor(color)
|
|
setwidth(1)
|
|
}
|
|
paint = new qpainter() {
|
|
begin(p1)
|
|
setpen(pen)
|
|
for i = 1 to 150
|
|
x2 = x1 + cos(angle) * length
|
|
y2 = y1 + sin(angle) * length
|
|
drawline(x1, y1, x2, y2)
|
|
x1 = x2
|
|
y1 = y2
|
|
length = length + 3
|
|
angle = (angle + incr) % 360
|
|
next
|
|
|
|
endpaint()
|
|
}
|
|
label1 { setpicture(p1) show() }
|