Fake lighting.

Community Forums/Showcase/Fake lighting.

Aussie (Posted 2010) [#1]

G'day everyone. I had been playing around with creating a fake lighting function a fair while ago & then it got put to the side. I decided to dig it out the other day & keep working on it. I finaly got it to work so i thought i would share it with everyone & you may use it as you wish. It uses Lightmesh & only supports Omni lights. Hope someone finds it usefull. For use with B3D ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ;Fakelight Demo ; ;Author: Robert Hogg ;Date : 25\4\2010 ; ;Fklightentity(entity,fx(2 or 3),ambient_R,ambient_G,ambient_B,) sets entitys ambient light color ; & lighting effects. Fx 2 Dxlights & ; fake. Fx 3 fake lights only. ; ; ;Create_Fklight(Id) Creates a new fake light. Use a number for the Id. ; ;Position_Fklight(Id,Parent,X,Y,Z) Will position the fake light. Set parent to 0 if no parent ; is to be used. If fake light has a parent x,y,z will be relative ; to the parents position. ; ;FKlight_Colour(Id,R,G,B) Sets the red, green & blue of th fake light ; ;Fklight_Range(Id,Range) Sets the range of the fake light. ; ;Fkight_On(Id,State) Turns fake light on & off, 0 for off & 1 for on. Can't be used if a fake lights ; colour is to be changed during the loop. ; ;Free_Fklight(Id) Deletes the light. ; ;Update_fklightentity() must be called before renderworld() to reset entitys lighting. ; ;update_fklights() must be called to renderworld() update all lights ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "Fakelight Demo" Graphics3D 640,480,16,2 camera=CreateCamera() PositionEntity camera,0,5,-15 light = CreateLight() RotateEntity light,90,0,0 cube=CreateCube() PositionEntity cube,0,0,0 cone=CreateCone(20) PositionEntity cone,-5,0,0 cyl=CreateCylinder(20) PositionEntity cyl,5,0,0 piv=CreatePivot() PositionEntity piv,EntityX(cube),EntityY(cube),EntityZ(cube) sphere = CreateSphere(20,piv) PositionEntity sphere,0,0,10 stsphere = CreateSphere(20) ScaleEntity stsphere,5,5,5 PositionEntity stsphere,-20,0,20 stsphere2 = CreateSphere(20) ScaleEntity stsphere2,5,5,5 PositionEntity stsphere2,20,0,20 cube1 = CreateCube() ScaleEntity cube1,2,5,2 PositionEntity cube1,0,0,25 ;;;;;;;;;Sets up the entitys to be affected by the fake lighting;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; fklightentity(cube,2,100,100,100) fklightentity(cone,3,100,100,100) fklightentity(cyl,3,100,100,100) fklightentity(sphere,3,100,100,100) fklightentity(stsphere,2,100,100,100) fklightentity(stsphere2,2,100,100,100) fklightentity(cube1,3,100,100,100) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Creates a fake light Create_Fklight(1) Position_Fklight(1,0,0,-5,0) Fklight_Colour(1,0,0,255) Fklight_Range(1,.0001) ;Creates a second fake light Create_Fklight(2) Position_Fklight(2,0,0,2,10) Fklight_Colour(2,0,255,0) Fklight_Range(2,.5) ;Creates a third fake light Create_Fklight(3) Position_Fklight(3,0,-10,2,0) Fklight_Colour(3,0,255,255) Fklight_Range(3,.5) ;Creates a forth fake light Create_Fklight(4) Position_Fklight(4,0,0,2,-10) Fklight_Colour(4,255,255,255) Fklight_Range(4,.5) ;Creates a fifth fake light Create_Fklight(5) Position_Fklight(5,0,10,2,0) Fklight_Colour(5,255,255,0) Fklight_Range(5,.5) Piv2=CreatePivot() PositionEntity piv2,EntityX(cube),EntityY(cube),EntityZ(cube) sphere2 = CreateSphere(20,piv2) ScaleEntity sphere2,.1,.1,.1 PositionEntity sphere2,0,0,-11 EntityFX sphere2,1 EntityColor sphere2,255,0,0 ;Creates a sixth fake light Create_Fklight(6) Position_Fklight(6,sphere2,0,0,0) ; Parents the fake light to an entity (sphere2) Fklight_Colour(6,255,0,0) Fklight_Range(6,1.5) ;Creates a seventh fake light Create_Fklight(7) Position_Fklight(7,0,0,10,0) Fklight_Range(7,2.5) lighton = 1 light7 = 1 R# = .5 R2# = .5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; While Not KeyDown(1) R# = R# + R2# If R# > 10 Then R2# = -.1 Else If R# < 1 Then R2# = .1 End If Fklight_Range(1,R#) ; Alters the range of fake light 1 If KeyHit(2) Then Light7 = 1 If KeyHit(3) Then Light7 = 0 If light7 = 1 Then Fklight_Colour(7,Rnd(0,255),Rnd(0,255),Rnd(0,255)) ; Create the strobe effect ; for the seventh fake light If light7 = 0 Then Fklight_Colour(7,0,0,0) ; Turns off the seventh fake light If KeyHit(4) Then lighton = 1 If KeyHit(5) Then lighton = 0 If lighton = 1 Then ShowEntity light If lighton = 0 Then HideEntity light If KeyHit(6) Fkight_On(1,0) ; Quick way to turn on & off fake light one End If If KeyHit(7) Fkight_On(1,1) End If PointEntity camera,cube TurnEntity cube,1,1.5,2 TurnEntity cone,.5,.1,0 TurnEntity cyl,-.5,-.1,0 TurnEntity piv,0,1,0 TurnEntity piv2,.5,0,0 Update_fklightentity() ; updates all entitys to be lit via fake lights Update_Fklights() ; updates all fake lights UpdateWorld RenderWorld Text 0,0,"The cube and to big spheres are lit with both fake & DXlights." Text 0,12,"Press 1 and 2 to turn on & off flashing fake light." Text 0,24,"Press 3 and 4 to turn on and off DXlight." Text 0,36,"Press 5 and 6 to turn pulsing fake light off & on." Text 0,48,"Light range = " + R# Flip Wend End ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Type fklightentity Field entity Field fx% Field ambientr% Field ambientg% Field ambientb% End Type Function fklightentity(entity,fx%,ambientr,ambientg,ambientb) Light.fklightentity = New fklightentity Light\entity=entity LightMesh Light\entity,-255,-255,-255 EntityFX Light\entity,fx% Light\ambientr=ambientr Light\ambientg=ambientg Light\ambientb=ambientb LightMesh Light\entity,Light\ambientr,Light\ambientg,Light\ambientb End Function Function Update_fklightentity() For Light.fklightentity = Each fklightentity If (Light.fklightentity <> Null) Then End If LightMesh Light\entity,-255,-255,-255 LightMesh Light\entity,Light\ambientr,Light\ambientg,Light\ambientb Next End Function ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Type fklight Field ID Field light_piv Field Entity Field light Field red# Field green# Field blue# Field ron# Field gon# Field bon# Field roff# Field goff# Field boff# Field range# Field x# Field y# Field z# Field On_Off End Type Function Create_Fklight(Id) light_fake.fklight = New fklight light_fake\ID = Id light_fake\light_piv = CreatePivot() End Function Function Position_Fklight(Id,Parent,PX#,PY#,PZ#) For light_fake.fklight = Each fklight If (light_fake.fklight <> Null) Then If light_fake\ID = Id Then light_fake\x# = PX# light_fake\y# = PY# light_fake\z# = PZ# light_fake\Entity = Parent EntityParent light_fake\light_piv,light_fake\Entity End If End If Next End Function Function Fklight_Colour(Id,R#,G#,B#) For light_fake.fklight = Each fklight If (light_fake.fklight <> Null) Then If light_fake\ID = Id Then light_fake\red# = R# light_fake\green# = G# light_fake\blue# = B# light_fake\ron# = R# light_fake\gon# = G# light_fake\bon# = B# light_fake\roff# = 0 light_fake\goff# = 0 light_fake\boff# = 0 End If End If Next End Function Function Fklight_Range(Id,LRange#) For light_fake.fklight = Each fklight If (light_fake.fklight <> Null) Then If light_fake\ID = Id Then light_fake\range# = LRange# End If End If Next End Function Function Fkight_On(Id,State) For light_fake.fklight = Each fklight If (light_fake.fklight <> Null) Then If light_fake\ID = Id Then light_fake\On_Off = State If light_fake\On_Off = 0 Then light_fake\red# = light_fake\roff# light_fake\green# = light_fake\goff# light_fake\blue# = light_fake\boff# Else If light_fake\On_Off = 1 Then light_fake\red# = light_fake\ron# light_fake\green# = light_fake\gon# light_fake\blue# = light_fake\bon# End If End If End If Next End Function Function Free_Fklight(Id) For light_fake.fklight = Each fklight If (light_fake.fklight <> Null) Then If light_fake\ID = Id Then FreeEntity light_fake\light_piv Delete light_fake.fklight End If End If Next End Function Function Update_Fklights() For light_fake.fklight = Each fklight If (light_fake.fklight <> Null) Then PositionEntity light_fake\light_piv,light_fake\x#,light_fake\y#,light_fake\z# End If For Light.fklightentity = Each fklightentity If (Light.fklightentity <> Null) Then TFormPoint 0,0,0,light_fake\light_piv,Light\entity LightMesh Light\entity,light_fake\red#,light_fake\green#,light_fake\blue#,light_fake\range#,TFormedX(),TFormedY(),TFormedZ() End If Next Next End Function

jhocking (Posted 2010) [#2]

Any chance you could explain what you mean by "fake lighting"?

Ross C (Posted 2010) [#3]

He must mean not using a DX hardware light. It seems to use LightMesh function built into blitz. Looks interesting :)

puki (Posted 2010) [#4]

'Fake' lighting is the way to go. I only just ran this and have to go to bed. The point of 'fake' lighting is to use it close range - ie take over from hardware lighting - especially considering DX7 limits. You can add a lot of nice touches into your game world with it and, in doing so, allowing you to shift the/redundant hardware lights into the distance, ready to LOD in the vertex lighting as you approach. 'Fake' lighting can go far beyond point lighting - it's just a case of how you apply the light to the geometry that governs what type of light it is - directional, point, spot, shaped/volumetric. You can control what each 'fake' light illuminates to allow you LOD it on-the-fly.

MadJack (Posted 2010) [#5]

I was taken with 'fake lighting' a while ago too; http://www.blitzbasic.com/codearcs/codearcs.php?code=249 but I was looking at using it with a lot of actors and each 'fake lit' mesh has to be unique - no entitycopy - which quickly bogs Blitz3d down FPS wise...

Aussie (Posted 2010) [#6]

@ Jhocking. What Ross C said. It uses Lightmesh instead of DX Lights although they can both be used together. My system will only allow for 8 DX lights & eventualy if i want a room lit from torches on the wall, or to have big balls of plasma firing from a weapon & lighting up its surroundings i can have as many lights as i want. @ Puki. It was actually a pice of code you wrote that got me playing with the Lightmesh http://www.blitzbasic.com/codearcs/codearcs.php?code=2020 Cheers for posting it. :) I saw some of the lighting you where playing around with on a Youtube Vid. Was that all using Lightmesh? @ Madjack. I just found out about the copy entity & it apeared to apply the lighting to all of the meshes in the same way it dose for the original entity. I have just found a couple of bugs with the coding. If a Fklightentity gets deleted i get an "Entity dose not exist" & it would seem that you can not change the alpha level of an entity. Will keep going & try to fix the problems. : )

MadJack (Posted 2010) [#7]

Aussie You'd probably need to adjust the alpha level for each vertex to get overall alpha changes. Regards lightmesh needing unique meshes (causing slowdown), I suppose if you had a game that perhaps dealt with limited individual rooms (like Doom3) and low numbers of actors, you could get away with it.