Full-Screen Fire Effect (Source Included)

BlitzMax Forums/BlitzMax Programming/Full-Screen Fire Effect (Source Included)

dw817 (Posted 2016) [#1]

As the remarks below say, I entered this in a competition to make the best effect of a fire. I downloaded some of the early entrants to see they were painstakingly working on tedious pixels to create a very slow and small illusion of fire. While their fire may have looked more believable, it was horrendously lagging on the PC at the time. So I decided to experiment with drawing lines on the screen that were colored like fire. The result, a much faster and full-screen fire effect and in minimal coding too. No need to use massive calculations involving pixel arrays like the other guys were doing. Enjoi ! ' ________________________________________ ' // // ' // Full-Screen Fire Effect // ' // Version, "A Great Roaring Flame" // ' // Written by David W (dw817) 02/25/16 // '//_____________________________________// ' ' A port from QBasic sourcecode I submitted years ago ' to the Online group ABC (All Basic Code) in competition ' for developing the best visual fire. ' While others worked on fine-tuning their code to a small ' and single flickering flame, I wanted to ignite the whole ' blessed screen ! :) ' ' Naturally in BlitzMAX the thing really shoots off - ' not a total bodge after all. Strict Local i,j,a,s=20 ' s=size of flames, really want to keep this small Graphics 1024,768 Repeat ' {* MAIN *} For i=Rand(s*2) Until 768 ' vertical For j=-s+Rand(s) Until 1024+s ' horizontal a=i-Rand(0,s*10) ' color based on vertical but with a bit of random too SetColor a,a/3,0 ' from black to red to orange to yellow SetLineWidth 1+i/75 ' fire is thicker below DrawLine j,i,j-s+Rand(0,s*2),i+Rand(0,s*2) ' lick of flame j:+s/2 ' get around BlitzMAX's inability to STEP variable Next i:+s ' ditto Next Flip ' show work Delay 25 ' delay for a bit Until KeyDown(27) ' exit on ESCAPE key ' {* END OF MAIN *}