setrgb 0,150,150,150
open window 640,512

20

dfgh=0.01
r1=200
r=0
g=250
b=170

setrgb 1,0,0,0
fill circle 320,256,197

21
setrgb 1,r,g,b

n=n+0.2

line 320+r1*sin(n),256+r1*cos(n) to 320,256

r1=r1-dfgh
g=g-0.016
b=b-0.016

if g<-30 then 
dfgh=0

setrgb 1,255,255,255
fill circle 375,200,27
fi

goto 21


