spade-0.1.0.8: samples/spiral.spd

graphics(true)
let screen_size = getwindowsize()
let radius = 600
let colors = [[255, 0, 0], [0, 255, 0], [0, 0, 255], [255, 255, 0], [0, 255, 255], [255, 0, 255]]
let ic = 0
loop 
  if radius == 0 then break endif 
  for i = 0 to 35
    let n = (mod(i + ic, 6) + 1)
    setcolor(colors[n][1], colors[n][2], colors[n][3])
    arc(screen_size.width/2, screen_size.height/2, radius, (i * 10), ((i * 10) + 10), true)
  endfor
  let radius = radius - 10
  let ic = ic + 1
endloop
render()
waitforkey()