[DBP] 3D rain function - GameCreators Forum

Author

Message

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 9th Jun 2010 12:01 Edited at: 9th Jun 2010 13:27

Link

This is just a quick function I made for a game I'm working on. I know it's fairly simple but could I find an easy to integrate function of this sort for something so simple?

It just makes raindrops fall from the sky:

+ Code Snippet

function draw_rain(objstart,objend,size#,area#,x#,y#,z#,ceiling#,ground#)
	for r=objstart to objend
		if object exist(r)=0
			make object sphere r,size#,4,6
			scale object r,100,300,100
			color object r, rgb(0,0,255)
			ghost object on r
			set object light r,0
			position object r,x#+rnd(area#)-(area#/2),y#+rnd(ceiling#-ground#),z#+rnd(area#)-(area#/2)
		endif
		move object down r,size#*5
		if object position y(r)<ground#
			position object r,x#+rnd(area#)-(area#/2),ceiling#,z#+rnd(area#)-(area#/2)
		endif
	next
endfunction

EDIT: Took minus out from this line;

+ Code Snippet

if object position y(r)<-ground#

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 12th Jun 2010 20:47

Link

Using spheres as particles is quite bad practice. They have a lot of polygons that require a lot of processing. Use plains that face the camera.

"everyone forgets a semi-colon sometimes." - Phaelax

Back to top

Profile PM Email

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 13th Jun 2010 19:46

Link

Looks nice but i think it may be a performance killer when added to a scene.

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 14th Jun 2010 11:24

Link

Quote: "Using spheres as particles is quite bad practice. They have a lot of polygons that require a lot of processing. Use plains that face the camera."

I just did a test using the code below and over 30 seconds the planes method was 517 frames slower. Maybe the orientation code slows it down more than the polycount?

I wasn't really expecting it to be faster but the results were:
Framecount1 (using spheres): 24535
Framecount2 (using planes) : 24018

Code:

sync on
sync rate 0
autocam off

`set the length of the test here in seconds
time=30

time1=time*1000
time2=time1*2
st=timer()

do
	set cursor 0,0
	
	select stage
		case 0
			draw_rain1(1,50,.1,10,0,0,0,10,0)
			inc framecount1
			secs$=get_sec(st+time1-timer())
			mins$=get_min(st+time1-timer())
			print mins$,":",secs$," remaining for first count"
			print "First framecount:",str$(framecount1)
			if timer()>st+time1 then stage=1:delete_spheres()
		endcase
		case 1
			draw_rain2(1,50,.1,10,0,0,0,10,0)
			inc framecount2
			secs$=get_sec(st+time2-timer())
			mins$=get_min(st+time2-timer())
			print mins$,":",secs$," remaining for second count"
			print "First framecount:",str$(framecount1)
			print "Second framecount:",str$(framecount2)
			if timer()>st+time2 then stage=2:delete_spheres()
		endcase
		case 2
			print "First framecount:",str$(framecount1)
			print "Second framecount:",str$(framecount2)
		endcase
	endselect
	
	sync
loop

function delete_spheres()
	s=timer()
	for x=1 to 50
		if object exist(x)
			delete object x
		endif
	next
	st=st+timer()-s
endfunction

function get_sec(milisecs)
	secs=milisecs/1000
	mins=secs/60
	secs=secs-(mins*60)
	hrs=mins/60
	mins=mins-(hrs*60)
	s$=str$(secs)
	if secs<10 then s$="0"+s$
endfunction s$

function get_min(milisecs)
	secs=milisecs/1000
	mins=secs/60
	secs=secs-(mins*60)
	hrs=mins/60
	mins=mins-(hrs*60)
	m$=str$(mins)
endfunction m$

function draw_rain1(objstart,objend,size#,area#,x#,y#,z#,ceiling#,ground#)
    for r=objstart to objend
        if object exist(r)=0
            make object sphere r,size#,4,6
            scale object r,100,300,100
            color object r, rgb(0,0,255)
            ghost object on r
            set object light r,0
            position object r,x#+rnd(area#)-(area#/2),y#+rnd(ceiling#-ground#),z#+rnd(area#)-(area#/2)
        endif
        move object down r,size#*5
        if object position y(r)<ground#
            position object r,x#+rnd(area#)-(area#/2),ceiling#,z#+rnd(area#)-(area#/2)
        endif
    next
endfunction

function draw_rain2(objstart,objend,size#,area#,x#,y#,z#,ceiling#,ground#)
    for r=objstart to objend
        if object exist(r)=0
            make object plane r,size#,size#
            scale object r,100,300,100
            color object r, rgb(0,0,255)
            ghost object on r
            set object light r,0
            position object r,x#+rnd(area#)-(area#/2),y#+rnd(ceiling#-ground#),z#+rnd(area#)-(area#/2)
        endif
        move object down r,size#*5
        if object position y(r)<ground#
            position object r,x#+rnd(area#)-(area#/2),ceiling#,z#+rnd(area#)-(area#/2)
            set object to camera orientation r
        endif
    next
endfunction

+ Code Snippet

sync on
sync rate 0
autocam off

`set the length of the test here in seconds
time=30

time1=time*1000
time2=time1*2
st=timer()

do
	set cursor 0,0
	
	select stage
		case 0
			draw_rain1(1,50,.1,10,0,0,0,10,0)
			inc framecount1
			secs$=get_sec(st+time1-timer())
			mins$=get_min(st+time1-timer())
			print mins$,":",secs$," remaining for first count"
			print "First framecount:",str$(framecount1)
			if timer()>st+time1 then stage=1:delete_spheres()
		endcase
		case 1
			draw_rain2(1,50,.1,10,0,0,0,10,0)
			inc framecount2
			secs$=get_sec(st+time2-timer())
			mins$=get_min(st+time2-timer())
			print mins$,":",secs$," remaining for second count"
			print "First framecount:",str$(framecount1)
			print "Second framecount:",str$(framecount2)
			if timer()>st+time2 then stage=2:delete_spheres()
		endcase
		case 2
			print "First framecount:",str$(framecount1)
			print "Second framecount:",str$(framecount2)
		endcase
	endselect
	
	sync
loop

function delete_spheres()
	s=timer()
	for x=1 to 50
		if object exist(x)
			delete object x
		endif
	next
	st=st+timer()-s
endfunction

function get_sec(milisecs)
	secs=milisecs/1000
	mins=secs/60
	secs=secs-(mins*60)
	hrs=mins/60
	mins=mins-(hrs*60)
	s$=str$(secs)
	if secs<10 then s$="0"+s$
endfunction s$

function get_min(milisecs)
	secs=milisecs/1000
	mins=secs/60
	secs=secs-(mins*60)
	hrs=mins/60
	mins=mins-(hrs*60)
	m$=str$(mins)
endfunction m$

function draw_rain1(objstart,objend,size#,area#,x#,y#,z#,ceiling#,ground#)
    for r=objstart to objend
        if object exist(r)=0
            make object sphere r,size#,4,6
            scale object r,100,300,100
            color object r, rgb(0,0,255)
            ghost object on r
            set object light r,0
            position object r,x#+rnd(area#)-(area#/2),y#+rnd(ceiling#-ground#),z#+rnd(area#)-(area#/2)
        endif
        move object down r,size#*5
        if object position y(r)<ground#
            position object r,x#+rnd(area#)-(area#/2),ceiling#,z#+rnd(area#)-(area#/2)
        endif
    next
endfunction

function draw_rain2(objstart,objend,size#,area#,x#,y#,z#,ceiling#,ground#)
    for r=objstart to objend
        if object exist(r)=0
            make object plane r,size#,size#
            scale object r,100,300,100
            color object r, rgb(0,0,255)
            ghost object on r
            set object light r,0
            position object r,x#+rnd(area#)-(area#/2),y#+rnd(ceiling#-ground#),z#+rnd(area#)-(area#/2)
        endif
        move object down r,size#*5
        if object position y(r)<ground#
            position object r,x#+rnd(area#)-(area#/2),ceiling#,z#+rnd(area#)-(area#/2)
            set object to camera orientation r
        endif
    next
endfunction

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 14th Jun 2010 18:50

Link

What about three plains stuck into each other on every axis? That would be a poly count of 6 for each particle, and you wouldn't have to rotate it to face the camera.

TheComet

Back to top

Profile PM Email Website

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 14th Jun 2010 18:54 Edited at: 14th Jun 2010 19:05

Link

Quote: "What about three plains stuck into each other on every axis? That would be a poly count of 6 for each particle, and you wouldn't have to rotate it to face the camera"

...but I already showed that by using just 1 plane (2 polys) it was slower than using the spheres in my function.

Poly count is making little to no difference here!

EDIT: Just to further test this I used 200 rain objects in my test program and got 25536 frames for spheres and 34623 frames for planes so it does have some impact if you want to use a lot of rain (this would work out as a reduction from 1154fps to 851fps), using 50 raindrops looks fine for my game and is virtually lossless but I haven't tested it for textured planes yet either...

Either way it's a simple system that you could adapt fairly easily for whatever effect you want which is why I made it!

Back to top

Profile PM Email

Madscientist

15

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 29th Jun 2010 21:41 Edited at: 29th Jun 2010 21:50

Link

I modified your code for 2 planes each particle and added an extra setup function. The 2 planes are combined into 1 object which the rain is cloned off of.
The parameters are size# and image number to texture the planes (use either tga or png for transparent rain drops)
It returns the object number of the base object which is passed to the draw rain function which clones the base object.

+ Code Snippet

function SetupRain(size#,img)
	obj=1
	while object exist(obj)
		inc obj
	endwhile
		
	make object plane obj,size#,size#
	make object plane obj+1,size#,size#
	scale object obj,100,300,100
	rotate object obj+1,0,90,0
	
	make mesh from object 1,obj+1
	add limb obj,1,1
	delete object obj+1
	
	texture object obj,img
	set object transparency obj,1	
endfunction obj

draw_rain takes these parameters
obj start, obj end, base object to clone, size, area x,y,z,ceiling, ground

+ Code Snippet

function draw_rain(objstart,objend,base,size#,area#,x#,y#,z#,ceiling#,ground#)
        for r=objstart to objend
                if object exist(r)=0
			clone object r,base    
                        set object light r,0
                        position object r,x#+rnd(area#)-(area#/2),y#+rnd(ceiling#-ground#),z#+rnd(area#)-(area#/2)
                endif
                move object down r,size#*5
                if object position y(r)<ground#
                        position object r,x#+rnd(area#)-(area#/2),ceiling#,z#+rnd(area#)-(area#/2)
                endif
        next
endfunction

Test Code:
(attached the png you need to run this code.)

set display mode 1024,768,32

sync on
sync rate 60
autocam off

load image "rain.png",1
base=SetupRain(0.1,1)

do
	show object base
	draw_rain(3,50,base,0.1,10,0,0,0,10,0)
	hide object base
	
   rotate camera Player,camera angle x(Player)+(mousemovey()/2),camera angle y(Player)+(mousemovex()/2.0),0

If keystate(17)=1 then move camera player,0.1
   If keystate(31)=1 then move camera player,-0.1

If keystate(30)=1
      Yrotate camera Player,Camera angle Y(Player)-90
      Move camera player,0.1
      Yrotate camera Player,Camera angle Y(Player)+90
   endif

If keystate(32)=1
      Yrotate camera Player,Camera angle Y(Player)+90
      Move camera player,0.1
      Yrotate camera Player,Camera angle Y(Player)-90
   endif

if wrapvalue(camera angle x(Player))>40 and wrapvalue(camera angle x(Player))<180 then xrotate camera Player,40
   if wrapvalue(camera angle x(Player))>180 and wrapvalue(camera angle x(Player))<280 then xrotate camera Player,280

position camera Player,camera position X(Player),camera position Y(Player)-FallVelocity#,camera position Z(Player)
	
	sync
loop

function SetupRain(size#,img)
	obj=1
	while object exist(obj)
		inc obj
	endwhile
		
	make object plane obj,size#,size#
	make object plane obj+1,size#,size#
	scale object obj,100,300,100
	rotate object obj+1,0,90,0
	
	make mesh from object 1,obj+1
	add limb obj,1,1
	delete object obj+1
	
	texture object obj,img
	set object transparency obj,1	
endfunction obj

function draw_rain(objstart,objend,base,size#,area#,x#,y#,z#,ceiling#,ground#)
        for r=objstart to objend
                if object exist(r)=0						        clone object r,base
                        set object light r,0
                        position object r,x#+rnd(area#)-(area#/2),y#+rnd(ceiling#-ground#),z#+rnd(area#)-(area#/2)
                endif
                move object down r,size#*5
                if object position y(r)<ground#
                        position object r,x#+rnd(area#)-(area#/2),ceiling#,z#+rnd(area#)-(area#/2)
                endif
        next
endfunction

+ Code Snippet

set display mode 1024,768,32

sync on
sync rate 60
autocam off

load image "rain.png",1
base=SetupRain(0.1,1)

do
	show object base
	draw_rain(3,50,base,0.1,10,0,0,0,10,0)
	hide object base
	
   rotate camera Player,camera angle x(Player)+(mousemovey()/2),camera angle y(Player)+(mousemovex()/2.0),0

   If keystate(17)=1 then move camera player,0.1
   If keystate(31)=1 then move camera player,-0.1

   If keystate(30)=1
      Yrotate camera Player,Camera angle Y(Player)-90
      Move camera player,0.1
      Yrotate camera Player,Camera angle Y(Player)+90
   endif

   If keystate(32)=1
      Yrotate camera Player,Camera angle Y(Player)+90
      Move camera player,0.1
      Yrotate camera Player,Camera angle Y(Player)-90
   endif

   if wrapvalue(camera angle x(Player))>40 and wrapvalue(camera angle x(Player))<180 then xrotate camera Player,40
   if wrapvalue(camera angle x(Player))>180 and wrapvalue(camera angle x(Player))<280 then xrotate camera Player,280

   position camera Player,camera position X(Player),camera position Y(Player)-FallVelocity#,camera position Z(Player)
	
	sync
loop

function SetupRain(size#,img)
	obj=1
	while object exist(obj)
		inc obj
	endwhile
		
	make object plane obj,size#,size#
	make object plane obj+1,size#,size#
	scale object obj,100,300,100
	rotate object obj+1,0,90,0
	
	make mesh from object 1,obj+1
	add limb obj,1,1
	delete object obj+1
	
	texture object obj,img
	set object transparency obj,1	
endfunction obj

function draw_rain(objstart,objend,base,size#,area#,x#,y#,z#,ceiling#,ground#)
        for r=objstart to objend
                if object exist(r)=0						        clone object r,base
                        set object light r,0
                        position object r,x#+rnd(area#)-(area#/2),y#+rnd(ceiling#-ground#),z#+rnd(area#)-(area#/2)
                endif
                move object down r,size#*5
                if object position y(r)<ground#
                        position object r,x#+rnd(area#)-(area#/2),ceiling#,z#+rnd(area#)-(area#/2)
                endif
        next
endfunction

If it hasn't exploded yet, I haven't touched it.

Attachments

Login to view attachments

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 29th Jun 2010 22:48

Link

@Madscientist, nice work! I'm sure that anyone looking for an effect like this has plenty to choose from now!!

Also, I like your version so much I think I'll replace the version I'm using in "Hell for Leather" with yours

Back to top

Profile PM Email

Madscientist

15

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 30th Jun 2010 03:53

Link

Thanks no problem.

If it hasn't exploded yet, I haven't touched it.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 30th Jun 2010 13:04

Link

could make a good star field. like it now to study it.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 30th Jun 2010 21:30

Link

making a bunch of seperate objects in DBPro leads to a lot of overhead. Try using instance object to speed things up (a LOT).

Is't life, I ask, is't even prudence, to bore thyself and bore thy students?

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 30th Jun 2010 23:53

Link

Quote: "Try using instance object to speed things up (a LOT)."

Great suggestion!! I did and it was about 25% to 30% faster!!!

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / [DBP] 3D rain function

Attachments