layers = 3
Dim coeff(layers,2) As Float

For i = 0 To layers
    a# = Rnd(360)
    r# = 2.0^Rnd(-3,-1)
    coeff(i,0) = Cos(a)*20.0
    coeff(i,1) = Sin(a)*20.0
    coeff(i,2) = r
Next i

For i = 0 To 399 Step 2
    For j = 0 To 299 Step 2
        s# = 0
        For k = 0 To layers
            x# = ((i-200)*coeff(k,0)+(j-150)*coeff(k,1))*coeff(k,2)
            y# = ((j-150)*coeff(k,0)-(i-200)*coeff(k,1))*coeff(k,2)
            s = s + (2+Cos(x)+Cos(y))/4.0/coeff(k,2)
        Next k
        c# = Max(0,Min(255,60.0*s#/Float(layers+1)))
        Color c,c,c
        Dot i,j
    Next j
    DrawScreen OFF
Next i
Dim parts(999,2) As Float
PositionMouse 200,150
For i = 0 To 999
    parts(i,0) = Rnd(190,210)
    parts(i,1) = Rnd(140,160)
    parts(i,2) = Timer()+Rnd(100)
Next i

Repeat
    Lock
        For i = 0 To 999
            tx# = parts(i,0)
            ty# = parts(i,1)
            c# = (parts(i,2)-Timer())*.0005
            For k = 0 To layers
                parts(i,0) = parts(i,0)-c*.04*(Sin((tx*coeff(k,0)+ty*coeff(k,1))*coeff(k,2))*coeff(k,1)+Sin((ty*coeff(k,0)-tx*coeff(k,1))*coeff(k,2))*coeff(k,0))
                parts(i,1) = parts(i,1)+c*.04*(Sin((tx*coeff(k,0)+ty*coeff(k,1))*coeff(k,2))*coeff(k,0)-Sin((ty*coeff(k,0)-tx*coeff(k,1))*coeff(k,2))*coeff(k,1))
            Next k
            If parts(i,2)<Timer() Or 0=BoxOverlap(parts(i,0),parts(i,1),1,1,0,0,639,479) Then
                parts(i,0) = mousex()+Rnd(-10,10)
                parts(i,1) = mousey()+Rnd(-10,10)
                tx = parts(i,0)
                ty = parts(i,1)
                parts(i,2) = Timer()+Rnd(1000,2000)
            EndIf
            c = c * 255
            Color c,c,c
            If RoundDown(tx) = RoundDown(parts(i,0)) And RoundDown(ty) = RoundDown(parts(i,1)) Then tx = tx - 1
            Line tx, ty, parts(i,0), parts(i,1)
            //Line parts(i,0)-1, parts(i,1)-1, parts(i,0)+1, parts(i,1)+1
            //Line parts(i,0)-1, parts(i,1)+1, parts(i,0)+1, parts(i,1)-1
        Next i
    Unlock
    Color 255, 255, 255
    Text 10, 10, FPS()
    DrawScreen
Forever