REM Fire Texture
REM CR 2007
 
cls
sync on
 
REM *** PARAMETERS - play with these to get the effect you want ***
 
rem size = size of image
size=3
rem blur = how blurred the bitmap is. Better to use even values
blur=4
 
num=150*size^2
dim x(num)
dim y(num)
 
for a=1 to num
	x(num)=rnd(64*size)
	y(num)=rnd(32*size)
next a
 
create bitmap 1,64*size,64*size
 
rem main loop
do
	set current bitmap 1
	rem move, draw flame particles
	for a=1 to num
		y(num)=y(num)+1
		x(num)=x(num)+rnd(4)-2
		if y(num)>size*64
			x(num)=rnd(64*size)
			y(num)=rnd(64*size)
		endif
		ink rgb(200+rnd(55),70+rnd(55),0),0
		dot x(num),y(num)
	next a
	blur bitmap 1,blur
	get image 1,0,0,64*size,64*size
	set current bitmap 0
	paste image 1,(screen width()/2)-size*32,(screen height()/2)-size*32
	sync
loop