uses gdip
Screen 640, 480, 1
SetCaption "GDIPLUS DEMO 14"
SetSmoothMode 4

Dim x(60) as sys
Dim y(60) as sys
sys i

While Key(27)=0
ClsColor 55,255,255,255
For i=59 To 0 step -1
    x(i) = x(i-1)
    y(i) = y(i-1)
next
x(0)= xMouse-20
y(0)= yMouse-20

For i=0 To 59
  FillOval x(i),y(i), 60,60,ARGB 55,i*4,0,200
Next
Flip
SetFps 60
Wend
Ends