Swirling Whirlpool

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|471\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Jayenkai	Created : 13 September 2006 Edited : 13 September 2006 Language : Blitz Swirling Whirlpool Grabs the screen and sucks it constantly inwards.
A nice effect that could be used as a Black Hole, or other type of effect. Uses 2 ImageBuffers, and plenty of CopyRects to keep everything moving. Graphics 800,600,32,2 SetBuffer BackBuffer() buf1=CreateImage(800,600) buf2=CreateImage(800,600) ibuf1=ImageBuffer(buf1):MaskImage buf1,255,0,255 ibuf2=ImageBuffer(buf2):MaskImage buf2,255,0,255 dist=100 gdist=4 r=Rand(5,250) g=Rand(5,250) b=Rand(5,250) gr=Rand(-1,-4) gg=Rand(1,4) gb=Rand(-4,4):If gb=0 Then gb=1 x1=Rand(0,800) x2=Rand(0,800) y1=Rand(0,600) y2=Rand(0,600) gx1=Rand(1,8) gx2=Rand(-1,-8) gy1=Rand(1,8) gy2=Rand(-1,-8) Repeat SetBuffer ibuf1 ;Cls Color 255,0,0 Oval 400+Sin(ang2)d2,300+Cos(ang2)d2,10,10,1 Color 255,255,0 Oval 400+Sin(ang2+60)d2,300+Cos(ang2+60)d2,10,10,1 Color 0,255,0 Oval 400+Sin(ang2+120)d2,300+Cos(ang2+120)d2,10,10,1 Color 0,255,255 Oval 400+Sin(ang2+180)d2,300+Cos(ang2+180)d2,10,10,1 Color 0,0,255 Oval 400+Sin(ang2+240)d2,300+Cos(ang2+240)d2,10,10,1 Color 255,50,255 Oval 400+Sin(ang2+300)d2,300+Cos(ang2+300)d2,10,10,1 Color r,g,b r=r+gr g=g+gg b=b+gb If r>250 Then gr=Rand(-1,-4) If r<5 Then gr=Rand(1,4) If g>250 Then gg=Rand(-1,-4) If g<5 Then gg=Rand(1,4) If b>250 Then gb=Rand(-1,-4) If b<5 Then gb=Rand(1,4) Line x1,y1,x2,y2 x1=x1+gx1 x2=x2+gx2 y1=y1+gy1 y2=y2+gy2 If x1<0 Then gx1=Rand(1,8) If y1<0 Then gy1=Rand(1,8) If x2<0 Then gx2=Rand(1,8) If y2<0 Then gy2=Rand(1,8) If x1>800 Then gx1=Rand(-1,-8) If y1>600 Then gy1=Rand(-1,-8) If x2>800 Then gx2=Rand(-1,-8) If y2>600 Then gy2=Rand(-1,-8) d2=400+Cos(ang210)100 Color r/5,g/5,b/5 ;For m=1 To 1 ;Line Rand(0,800),Rand(0,600),Rand(0,800),Rand(0,600) ;Next Rect 0,0,800,600,0 Rect 1,1,798,598,0 Rect 2,2,796,596,0 Rect 3,3,794,594,0 ;Suck screen inwards CopyRect 0,0,396,296,4,4,ibuf1,ibuf1 CopyRect 0,304,396,296,4,300,ibuf1,ibuf1 CopyRect 404,0,396,296,400,4,ibuf1,ibuf1 CopyRect 404,304,396,296,400,300,ibuf1,ibuf1 CopyRect 0,0,800,600,0,0,ibuf1,ibuf2 dist=dist+gdist dist=250 If dist>250 Then gdist=-4 If dist<0 Then gdist=4 ang2=ang2+1 ;Swirl screen around For dist=0 To 250 Step 50 For ang=0 To 360 Step 4 CopyRect 350+(Sin(ang+ang2)dist),250-(Cos(ang+ang2)dist),100,100,350+(Sin(ang+4+ang2)dist),250-(Cos(ang+4+ang2)dist),ibuf1,ibuf2 Next Next CopyRect 0,0,800,600,0,0,ibuf2,ibuf1 SetBuffer BackBuffer() DrawImage buf1,0,0 Flip Until KeyDown(1) --v

Comments

Swirling Whirlpool

Comments