Graphics 640,480
SetBuffer FrontBuffer()


For i = 300 To 400
WritePixel i,200,$010000*(i-299)*2
WritePixel 300,i-100,$010000*(i-299)*2
WritePixel 700-i,300,$010000*(i-299)*2
WritePixel 400,600-i,$010000*(i-299)*2
Delay 25
Next

For i=1 To 100
WritePixel 300-i,200-i,$010100*i*2
WritePixel 300-i,300+i,$010100*i*2
WritePixel 400+i,200-i,$010100*i*2
WritePixel 400+i,300+i,$010100*i*2
Delay 25
Next

For i=1 To 300
WritePixel 200+i,100,$010101*Int(i*0.5)
WritePixel 200,100+i,$010101*Int(i*0.5)
WritePixel 500-i,400,$010101*Int(i*0.5)
WritePixel 500,400-i,$010101*Int(i*0.5)
Delay 25
Next

r#=213
Origin 350,250
k#=0.25

For I=1 To 360
WritePixel r*Sin(0.0+k),r*Cos(0.0+k),$010001*Int(i/2)
WritePixel r*Sin(90.0+k),r*Cos(90.0+k),$010001*Int(i/2)
WritePixel r*Sin(180.0+k),r*Cos(180.0+k),$010001*Int(i/2)
WritePixel r*Sin(270.0+k),r*Cos(270.0+k),$010001*Int(i/2)
Delay 25
k=k+0.25
Next

WaitKey()