Snippet - Socoder

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

mike_g	Created : 09 August 2007 Language : Blitz Fire
Heres a fire effect I converted from C. I did a whole load of tweaking to get the frame rate up, but it runs at quite a good speed now. Const GRAPHICS_WIDTH = 640 Const GRAPHICS_HEIGHT = 480 Const DRAW_FROM = 300 ;set to a point where fire is not drawn yet to speed up drawing ;if set to high then not all fire will be drawn. This varys with resolution and flame height Graphics GRAPHICS_WIDTH, GRAPHICS_HEIGHT, 32, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() Dim fire(GRAPHICS_WIDTH, GRAPHICS_HEIGHT) Dim screen_buffer(GRAPHICS_WIDTH, GRAPHICS_HEIGHT) Dim palette(256) ;LOAD COLOUR PALETTE For i = 0 To 255 If r > 255 Then r = 255 If g > 255 Then g = 255 If b > 255 Then b = 255 palette(i)=(r Shl 16)+(g Shl 8)+b r=r+5: g=g+3: b=b+2 Next ;DEMO LOOP old_time=MilliSecs() While Not KeyHit(1) Cls If MilliSecs() > old_time+1000 old_time=MilliSecs() fps=frame_count frame_count=0 EndIf DrawFire() Color 255, 255, 255 Text 2, 2, fps frame_count=frame_count+1 Flip Wend Function DrawFire() Local w=GRAPHICS_WIDTH-1 Local h=GRAPHICS_HEIGHT-1 ;CREATE A RANDOM BASE FOR THE FIRE For x=0 To w fire(x, h) = Rand(0, 255) Next ;DO FIRE For y=DRAW_FROM To h-1 ;how do i get the top of the fire? upper_y = y+1 If y < h-1 lower_y = y+2 Else lower_y = upper_y EndIf left_pix = fire( 0, upper_y ) mid_pix = fire( 0, upper_y ) right_pix =fire( 1, upper_y) base_pix = fire( 0, lower_y) For x=0 To w left_pix = mid_pix mid_pix = right_pix If x < w right_pix= fire( x+1, upper_y ) Else right_pix= fire( x, upper_y ) EndIf base_pix = fire( x, lower_y ) fire(x, y)=((left_pix+mid_pix+right_pix+base_pix)Shl 5)/129 ;DRAW FIRE TO SCREEN BUFFER screen_buffer(x, y)=palette( fire(x, y) ) Next Next ;DRAW TO SCREEN LockBuffer BackBuffer() For y=DRAW_FROM To h For x=0 To w WritePixelFast(x, y, screen_buffer(x, y)) Next Next UnlockBuffer BackBuffer() End Function --v

Comments
Thursday, 09 August 2007, 15:13
Jayenkai	Very nice. And pretty fast, too!
Friday, 10 August 2007, 00:46
shroom_monk	Oh, you've just got to love that effect. And, it runs at a decent speed of 30FPS on my computer! Amazing!
Saturday, 11 August 2007, 15:58
mike_g	Wow 30fps on your computer shroom, thats impressive I'm working on a demo using this and your orbital physics code at the moment, should be done in a couple of days now. Anyway, glad you guys liked it

Fire

Comments