Dark Bit Factory & Gravity

GENERAL => Challenges & Competitions => Topic started by: TinDragon on June 11, 2006

Title: Short Intro Challenge - Interferance Circles
Post by: TinDragon on June 11, 2006

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]

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)


Title: Re: Short Intro Challenge - Interferance Circles
Post by: Shockwave on June 11, 2006

Nice, and with a couple of lines to spare too :)

Title: Re: Short Intro Challenge - Interferance Circles
Post by: Rbz on June 11, 2006

Nice effect  O0

Title: Re: Short Intro Challenge - Interferance Circles
Post by: Tetra on June 11, 2006

Thats a cool effect, nice one :)