Hehehe, very nice!
Reminds me of one of teh first little snippets I wrote in DB - 'painting with fire'
rem Fire Painter
rem Standard Setup Code for all examples
sync on : sync rate 0 : color backdrop rgb(0,128,0)
set text font "arial" : set text size 12
set text to bold : set text transparent
backdrop off
color backdrop 0
rem Make particles
ParticleNumber=1
make particles ParticleNumber, ImageNumber, 50, 20.0
position particles ParticleNumber, 0, -58, 0
color particles ParticleNumber, 255, 128, 0
set particle emissions ParticleNumber, 10
set particle speed ParticleNumber, 0.01
set particle gravity ParticleNumber, 0
set particle chaos ParticleNumber,5
set particle life 1,10
set particle floor 1,0
r=255
g=128
b=0
set camera view 0,0,640,440
set text font "verdana"
rem Setup camera
position camera 0,3,0
point camera 0,3,400
size=10
rem Main loop
desc$="Painting with Fire - David Tattersall"
ins$="Up / Down arrows: size brush ["
do
rem Spark Drawing
position particle emissions ParticleNumber, (mousex()-320)/40.0, (360-(mousey()+20))/40.0, 10
if mouseclick()>1 then color particles ParticleNumber, rnd(255), rnd(255), rnd(255)
if mouseclick()=1 or mouseclick()=3
set particle emissions ParticleNumber, 10
set particle velocity ParticleNumber, 1
set particle life 1,size
else
set particle emissions ParticleNumber, 0
set particle velocity ParticleNumber, 1
set particle life 1,10
endif
ink 0,0
box 0,450,640,480
ink rgb(255,255,255),0
center text 320,441,desc$
center text 320,451,ins$+str$(size)+"]"
center text 320,461,"DBPro FPS: "+str$(screen fps())
if upkey()=1 then inc size
if downkey()=1 then dec size
if size < 1 then size=1
if size > 20 then size=20
rem Update screen
sync
rem End loop
loop
I might use this method to do an intro for my game - is that OK?
