Submitted by MGA on

Forums:

Oh, fire was pretty easy when get right briefing...

*' flame on.bas SmallBASIC 0.12.9 (B+=MGA) 2017-11-22*

xxmax = 140 : yymax = 55 *'pixels too slow *

xstep = xmax/xxmax : ystep = ymax/yymax

dim p(300) *'pallette*

for i = 1 to 100

fr = 240*i/100 + 15

p(i) = rgb(fr, 0, 0)

p(i+100) = rgb(255, fr, 0)

p(i+200) = rgb(255, 255, fr)

next

dim f(xxmax, yymax) *'fire array and seed*

for x = 0 to xxmax

f(x, yymax-1) = int(rnd*2)*300

f(x, yymax) = 300

next

while 1 *'main fire*

for x = 1 to xxmax-1 *'shift fire seed a bit*

r = rnd

if r < .15 then

f(x, yymax-1) = f(x-1, yymax-1)

elif r < .3 then

f(x, yymax-1) = f(x+1, yymax-1)

elif r < .35 then

f(x, yymax-1) = int(rnd*2)*300

end if

next

for y = 0 to yymax-2 *'fire based literally on 4 pixels below it like cellular automata*

for x = 1 to xxmax-1

f(x, y) = max( (f(x-1, y+1) + f(x, y+1) +f(x+1, y+1) +f(x-1, y+2) )/4 - 7, 0)

rect x*xstep, y*ystep, step xstep+1, ystep+1, p(f(x, y)) filled

next

next

showpage

delay 10

wend

- Log in to post comments

johnno56 replied on Permalink

## ... the only thing missing

... the only thing missing are the marsh-mellows... lol

J

MGA replied on Permalink

## Hi Johnno,

Marshmallows, hot chocolate or coffee :)

Today in USA, we have turkey.

I am a chess nutz fan myself in the dressing or roasted over an open fire.

johnno56 replied on Permalink

## Marshmallows in hot chocolate

Marshmallows in hot chocolate... Yummo.

I had turkey many years ago, ate too much to the point of being ill, haven't had any since. Prefer chicken. Never had chestnuts nor found the need to. You are obviously referring to Thanksgiving. If so, happy thanksgiving... I am not sure if that is the right statement. I could have said 'merry' but I think that word has been set aside for big fat guy...

Anyway, have a great day...

J

MGA replied on Permalink

## Yes Thankgiving

for us, is today. BUT!

It has become overshadowed by an even bigger EVENT, Black Friday!

That is when all the coffee makers (and some other things) go on sale at 50% off!

Last night we got our morning paper before 12:30 AM and it weighed more than two Sunday papers, all Ads!

chrisws replied on Permalink

## great!

Reminds me of this:

https://www.youtube.com/watch?v=1EBfxjSFAxQ