Author Topic: Particles Demo  (Read 2135 times)

Cybermonkey

  • Administrator
  • *****
  • Posts: 0
Particles Demo
« on: January 04, 2013, 09:02:13 AM »
Since I got few time to upload new examples, here is now a particles example for use with EGSL 1.6.0

Code: [Select]
screen (1024,768,0,"Particles Engine Demo")
setframetimer (100)
size = 5
setparticlesize (size,"random")

--'instead of loading we are crating an image here
image = createimage (16,16)
startimagedraw(image)
backcolor (255,0,255)
cls()
color (255,255,0)
filltriangle (8,0,0,8,16,8)
color (255,0,0)
filltriangle (8,16,0,8,16,8)
sync()
stopimagedraw()
--'now set the image available for the particles but don't use it, yet
setparticleimage (image)

backcolor (0,0,0)
repeat
cls()
key=getkey()

if key == asc("1") then
   resetparticles()
   setparticletype("fillbox")
end

if key == asc("2") then
   resetparticles()
   setparticletype("fillcircle")
end
if key == asc("3") then
   resetparticles()
   setparticletype("box")
end

if key == asc("4") then
   resetparticles()
   setparticletype("circle")
end

if key == asc("5") then
   --' of course the size doesn't matter here
   resetparticles()
   setparticletype("dot")
end


if key == asc ("6") then
   resetparticles()
   --' now use the image as particles
   --' of course the colour values and size are useless with an image
   setparticletype ("image")
end

if key==asc ("a") then
   size = size + 1
   setparticlesize (size,"random")
end

if key==asc ("b") then
   size = size - 1
   setparticlesize (size,"random")
end

if mouseb()==1 then
   alphachannel (255)
   createparticles (mousex(),mousey(),30,150,int(rnd()*255),int(rnd()*255),int(rnd()*255))
end

if mouseb()==4 then
    alphachannel (125)
    createparticles (mousex(),mousey(),30,150,int(rnd()*255),int(rnd()*255),int(rnd()*255))
end


updateparticles()
color (255,255,255)

drawtext (0,0,"1 - Fillbox Particles")
drawtext (0,10,"2 - Fillcircle Particles")
drawtext (0,20,"3 - Box Particles")
drawtext (0,30,"4 - Circle Particles")
drawtext (0,40,"5 - Dot Particles")
drawtext (0,50,"6 - Image Particles")
drawtext (0,60,"A - Increase Particles")
drawtext (0,70,"B - Decrease Particles")
drawtext (300,0,"Left mousebutton to draw")
drawtext (300,10,"Right mousebutton to draw alphachannel")
drawtext (300,20,"Particle Size: "..size)

sync()
until key==27
closewindow()

kevin

  • Guest
Re: Particles Demo
« Reply #1 on: January 04, 2013, 05:58:51 PM »
This is a very impressive example Cybermonkey - very quick.......and it's tempting me to find out more about what can be done with EGSL......thank you.....