SCREEN 640,480

planet = LoadImage("planeetta.png")

Repeat
    sunx# = MouseX()
    suny# = MouseY()

    For i = 20 To 0 Step -1
        c=Min(255,Float(255-i*10)/Max(40,Distance(320,240,sunx,suny))*40)
        If i = 0 Then c=255
        Color c,c,c
        Circle sunx+i*(sunx-320)*.01-25-i*2, suny+i*(suny-240)*.01-25-i*2, 50+i*4
        If i<5 Then
            c=80+155/4.0*(4-i)
            Color c,c,c
            r = (87+i)/Max(sqrt(Distance(320,240,sunx,suny)*.015),1)
            Circle 320-r+.05*(sunx-320),240-r+.05*(suny-240),2*r
        EndIf
    Next i
    DrawImage planet,320-90,240-90
    //Color 0,0,0
    //Circle 320-90,240-90,180
    DrawScreen
Forever