gr.open 255,255,255,255

dim arc[30]
for i=1 to 30
gr.color 255-i*5,0,0,255,0
gr.arc arc[i],150-i,200-i,400-i,450-i, 5, 300, 0
gr.render 

next i

c:
goto c