Fire for torches - GameCreators Forum

Author

Message

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 12th Mar 2010 17:27

Link

Well, turning off vsync may give you better frame rate, but you might start seeing a ripple effect.

@NightX
What is "Deferred_SetUp(1024,768,512,8)"? I don't see it in the code. What example are you refering to?

The fastest code is the code never written.

Back to top

Profile PM Email Website

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 12th Mar 2010 20:41

Link

Yea what is it since it seems like it will speed up my game.

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

Back to top

Profile PM

NightX

17

Years of Service

User Offline

Joined: 3rd Apr 2009

Location: Australia, QueensLand

Posted: 13th Mar 2010 03:00 Edited at: 13th Mar 2010 03:11

Link

@Hawkblood & @Madscientist

Well i downloaded Evolved Deferred shaders. it has alot of functions in a big .dba file, that lets you make a light, set it up, make water and tones more. e.g. so you dont have to actually call the dll to change a light colour, u just use the function e.g. deferred_changeLightColor(LightID,Colour) (thats not the correct function name, as i havnt checked it.)

EDIT:

Ok here is a small example I pulled out of my code.

Rem ****************************************************************** Rem
Rem ********                      Create                      ******** Rem
Rem ****************************************************************** Rem

`Make matrix 1,100,100,50,50
`Position matrix 1,0,0,0

Load Image "Data\images\Floor2.png",1
Load Image "Data\images\Floor2_N.png",2

Deferred_SetUp(640,480,512,1)
Deferred_SetCamera(1,25000,85)

backdrop on 0
color backdrop 0,rgb(128,128,128)
CamDis#=-100
      
         
Deferred_SetAmbient(75,75,75,1.0)
Deferred_SetFog(128,128,128,25000)

`Water_Setup("Data\Shaders\Water Parallax.fx")  
`Water_SetWaterScale(-10,5,5)

load effect "Data\Shaders\normalmap.fx",1,0
Deferred_AddEffect(1)

make object box 1,75,75,75 : Object=1
Deferred_AddObject(1)
Deferred_SetObjectDynamic(1)
set object effect 1,1
texture object 1,1,1
texture object 1,2,2

`Create floor
make object box 2,1000,1,1000
position object 2,0,-65,0
scale object texture 2,0,10,10
Deferred_AddObject(2)
set object effect 2,1
texture object 2,1,1
texture object 2,2,2

`Make Point Light
Deferred_MakePointLight(1,"Data\Shaders\point.fx")
Deferred_SetPointLightRange(1,1500)
Deferred_SetPointLightShadows(1,2)
`Deferred_PositionPointLight(1,0,10000,0)
Deferred_PositionPointLight(1,-75,70,-75)

+ Code Snippet

Rem ****************************************************************** Rem
Rem ********                      Create                      ******** Rem
Rem ****************************************************************** Rem

    
`Make matrix 1,100,100,50,50
`Position matrix 1,0,0,0

Load Image "Data\images\Floor2.png",1
Load Image "Data\images\Floor2_N.png",2

Deferred_SetUp(640,480,512,1)
Deferred_SetCamera(1,25000,85)

backdrop on 0
color backdrop 0,rgb(128,128,128)
CamDis#=-100
      
         
Deferred_SetAmbient(75,75,75,1.0)
Deferred_SetFog(128,128,128,25000)

`Water_Setup("Data\Shaders\Water Parallax.fx")  
`Water_SetWaterScale(-10,5,5)

load effect "Data\Shaders\normalmap.fx",1,0
Deferred_AddEffect(1)

make object box 1,75,75,75 : Object=1
Deferred_AddObject(1)
Deferred_SetObjectDynamic(1)
set object effect 1,1
texture object 1,1,1
texture object 1,2,2

`Create floor
make object box 2,1000,1,1000
position object 2,0,-65,0
scale object texture 2,0,10,10
Deferred_AddObject(2)
set object effect 2,1
texture object 2,1,1
texture object 2,2,2


`Make Point Light
Deferred_MakePointLight(1,"Data\Shaders\point.fx")
Deferred_SetPointLightRange(1,1500)
Deferred_SetPointLightShadows(1,2)
`Deferred_PositionPointLight(1,0,10000,0)
Deferred_PositionPointLight(1,-75,70,-75)

and in the loop -

+ Code Snippet

If Timer() >= NewTime + 20
     Deferred_Update()     
     NewTime = Timer()
 Endif
 
 Water_Update() ` deferred shader function, not my function
 UpdateCamera() ` my function


 Sync
Loop

Back to top

Profile PM Email

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 14th Mar 2010 22:29

Link

Okay now I have another problem with evolves multipass light shader. The function LightColor( Light R , G , B , Range ) sets the color and range of the light. When the player backs away from the light and the camera distance from the light is greater than the range, the light shuts off. But when I increase the range, I get a bigger light and the lighting radius increases. How do I stop the light from shutting off when I get far enough away and am still looking at it without increasing the range? I want the light to shut off however if it is not in view.
This is the function (Written be evolved) that turns the lights on and off.

Function GetObjectLight( O , L )
   PosX#=object position x(O):PosY#=object position y(O):PosZ#=object position z(O)
   col=COLBOX(LightPos#(L,0),LightPos#(L,1),LightPos#(L,2),PosX#,PosY#,PosZ#,ObjectSize#(O,0)+LightCol#(L,3),ObjectSize#(O,1)+LightCol#(L,3),ObjectSize#(O,2)+LightCol#(L,3))
   if col=1
   AddLight=0
      for OL=0 to 5
         if ObjectLight(O,OL)=L then AddLight=1
      next OL
   if AddLight=0
      for OL=0 to 5
         if ObjectLight(O,OL)=0 and AddLight=0 then ObjectLight(O,OL)=L:AddLight=1
      next OL
   endif
   endif
   if col=0
      for OL=0 to 5
         if ObjectLight(O,OL)=L then ObjectLight(O,OL)=0
      next OL
   endif
      for OL=0 to 5
   if ObjectLight(O,OL)=0
      AddLight=0
      for OL2=OL+1 to 5
         if AddLight=0 and ObjectLight(O,OL2)>0 then ObjectLight(O,OL)=ObjectLight(O,OL2):AddLight=1:ObjectLight(O,OL2)=0
      next OL2
   endif
      next OL
Endfunction

Function COLBOX(X#,Y#,Z#,pX#,pY#,pZ#,Sx#,Sy#,Sz#)
   col=0
   if X#<(pX#+Sx#)
      if X#>(pX#-Sx#)
         if Y#<(pY#+SY#)
            if Y#>(pY#-SY#)
               if Z#<(pZ#+SZ#)
                  if Z#>(pZ#-SZ#)
                     col=1
                  endif
               endif
            endif
         endif
      endif
   endif
Endfunction col

+ Code Snippet

Function GetObjectLight( O , L )
   PosX#=object position x(O):PosY#=object position y(O):PosZ#=object position z(O)
   col=COLBOX(LightPos#(L,0),LightPos#(L,1),LightPos#(L,2),PosX#,PosY#,PosZ#,ObjectSize#(O,0)+LightCol#(L,3),ObjectSize#(O,1)+LightCol#(L,3),ObjectSize#(O,2)+LightCol#(L,3))
   if col=1
   AddLight=0
      for OL=0 to 5
         if ObjectLight(O,OL)=L then AddLight=1
      next OL
   if AddLight=0
      for OL=0 to 5
         if ObjectLight(O,OL)=0 and AddLight=0 then ObjectLight(O,OL)=L:AddLight=1
      next OL
   endif
   endif
   if col=0
      for OL=0 to 5
         if ObjectLight(O,OL)=L then ObjectLight(O,OL)=0
      next OL
   endif
      for OL=0 to 5
   if ObjectLight(O,OL)=0
      AddLight=0
      for OL2=OL+1 to 5
         if AddLight=0 and ObjectLight(O,OL2)>0 then ObjectLight(O,OL)=ObjectLight(O,OL2):AddLight=1:ObjectLight(O,OL2)=0
      next OL2
   endif
      next OL
Endfunction

Function COLBOX(X#,Y#,Z#,pX#,pY#,pZ#,Sx#,Sy#,Sz#)
   col=0
   if X#<(pX#+Sx#)
      if X#>(pX#-Sx#)
         if Y#<(pY#+SY#)
            if Y#>(pY#-SY#)
               if Z#<(pZ#+SZ#)
                  if Z#>(pZ#-SZ#)
                     col=1
                  endif
               endif
            endif
         endif
      endif
   endif
Endfunction col

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

Back to top

Profile PM

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 18th Mar 2010 17:36

Link

I don't use most of those functions. I manually set the lights that are currently in view (and are on). I find it more to my taste to decide which lights to show. That function uses a "size" of the object the light is "acting" on to determine if it's "on it" or not. Make your own function for that. It automatically does it in the .fx as far as distance is concerned. You just have to be concerned with how many lights are associated with the "scene" being rendered with the .fx instance.... All objects that have that instance of the .fx will be checked with the lights listed when you do:

+ Code Snippet

Function SetObjectLight( O ,B ) `O is the effect number
   LN=0
   for OL=0 to 7
      if ObjectLight(B,OL)>0
         set vector4 1,LightPos#(ObjectLight(B,OL),0),LightPos#(ObjectLight(B,OL),1),LightPos#(ObjectLight(B,OL),2),0
            set effect constant vector O,"LightPosition_"+str$(OL+1),1
         set vector4 1,LightCol#(ObjectLight(B,OL),0),LightCol#(ObjectLight(B,OL),1),LightCol#(ObjectLight(B,OL),2),0
            set effect constant vector O,"LightColor_"+str$(OL+1),1
            set effect constant float O,"LightRange_"+str$(OL+1),LightCol#(ObjectLight(B,OL),3)
         LN=LN+1
      endif
   next OL
   
   if LN>0 then set effect technique O,"Light"+str$(LN)
   if LN=0 then set effect technique O,"Ambient"
Endfunction

I modified this function for my purposes so it won't look the same for the original download.
You can use the built-in functions in the file or make your own, but the end result is that you pass the light info (and the number of lights) to the .fx so it processes all the objects using that lighting scheme.
The problem of it "shutting off" is probably associated with the "size" factor of your object..... If you don't use the GetObjectLight( O , L ) function and you set it manually, then you shouldn't have that problem.

Hope that helps.

The fastest code is the code never written.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Fire for torches