SCREEN 640, 480
Const TUMMU_SIZE = 32
tummu = MakeImage(TUMMU_SIZE, TUMMU_SIZE)
DrawToImage tummu
Color 0, 0, 0
Box 0,0,ImageWidth(tummu), ImageHeight(tummu), 1
DrawToScreen
MaskImage tummu, 255, 0, 255

ping = MakeImage(320,240)
pong = MakeImage(320,240)
Dim pos(1439,4)

For i = 0 To 39
    For j = 0 To 35
        pos(j+i*36,0) = 151+Cos(j*10   )*(12*(i+.6))
        pos(j+i*36,1) = 111+Sin(j*10   )*(12*(i+.6))
        pos(j+i*36,2) = 151+Cos(j*10+.7)*(12*(i+.68))
        pos(j+i*36,3) = 111+Sin(j*10+.7)*(12*(i+.68))
        pos(j+i*36,4) = Min(20,12+i*4)
    Next j
Next i
PositionCamera 320, -240
Repeat
    k = k + 1
    If k Mod 2 Then
        For i = 0 To 1439
            CopyBox pos(i,0)+Rand(-1,1),pos(i,1)+Rand(-1,1),pos(i,4),pos(i,4),pos(i,2),pos(i,3),Image(ping),Image(pong)
        Next i
        tmp = ping
        ping = pong
        pong = tmp
    EndIf
    If k Mod 20 = 0 Then col = Rand(16777215)
    Color 0, 0, -col
    DrawToImage ping
    Circle 155,115, 10
	// keskelle vähän mustia pikseleitä
	Color 0,0,0
	Box 155 + Cos(k*2) * 10,115 + Sin(k*2) * 10, 4, 4, 1

	steps = 4
	angleoffset# = Rnd(360)
	For o=1 To steps
		ang# = angleoffset + (360.0/steps) * o
		dist# = Rnd(40, 220)
		alpha = (dist/220.0) * 55
		DrawGhostImage tummu, 155 + Cos(ang) * dist - TUMMU_SIZE/2, 115 + Sin(ang) * dist - TUMMU_SIZE/2, 0, alpha
		//Color 255, 5, 255
		//Box 155 + Cos(ang) * dist, 155 + Sin(ang) * dist, 4, 4, 2
	Next o


    DrawToScreen
    DrawImage pong, 0, 0
    For i = 240 To 0 Step -1
        CopyBox 0, i, 320, 2, 0, i*2
    Next i
    For i = 320 To 0 Step -1
        CopyBox i,0,2,480,i*2,0
    Next i

    DrawScreen
Forever