Data commit

Task/Polyspiral/Ring/polyspiral.ring

@@ -0,0 +1,55 @@
+# 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() }