Short Intro Challenge - Interferance Circles

[TinDragon]

Here's an oldschool effect, cant attach exe as blitz would be to big and I have no web host at present but blitzers can run it.

Code Select Expand


Graphics 640,480,32,2
Circles=CreateImage(1280,960)
SetBuffer ImageBuffer(Circles)
For a = 2048 To 1 Step - 10             
If Col = 0 Then Col = 255  Else col = 0
Color Col, Col, 0
Oval 640-(a/2),480-(a/2),a,a,1             
Next
SetBuffer BackBuffer()
MidHandle Circles
Repeat
Cls
If ang1# < 360 Then ang1 = ang1 + 0.75 Else ang1 = ang1 - 360
If ang2# < 360 Then ang2 = ang2 + 1.75 Else ang2 = ang2 - 360
DrawImage Circles,320+(Cos(ang1)*300),240+(Sin(ang1)*200)
DrawImage Circles,320+(Cos(ang2)*240),240+(Sin(ang2)*160)
Flip
Until KeyDown(1)


[Shockwave]

Nice, and with a couple of lines to spare too

[Rbz]

Nice effect 

[Tetra]

Thats a cool effect, nice one