fake lights

Gday everyone

I found a pice of code a while ago somewhere in this forum about fake lighting & i can't remember who posted it. I have been playing around with it & am trying to write a fake lighting include file.

so far i have managed to write a function that sets a fake ambient lighting effect to a mesh.

copy this & save as fakelight_include1

Type fklitentity
	Field entity
	Field fx
	Field ambientr
	Field ambientg
	Field ambientb
End Type

Type fklight
	Field entity
	Field light
	Field red
	Field green
	Field blue
	Field range
	Field x
	Field y
	Field z
End Type
	
	

Function fklitentity(entity,ambientr,ambientg,ambientb)
	p.fklitentity=New fklitentity
	p\entity=entity
	LightMesh p\entity,-255,-255,-255
	p\ambientr=ambientr
	p\ambientg=ambientg
	p\ambientb=ambientb
	LightMesh p\entity,p\ambientr,p\ambientg,p\ambientb
End Function

Graphics3D 640,480,16,2
 
Include "fakelight_include1.bb"

light=CreateSphere()
	ScaleEntity light,.1,.1,.1
	PositionEntity light,-4,-4,-4
	EntityColor light,0,255,0

light1=CreateSphere()
	ScaleEntity light1,.1,.1,.1
	PositionEntity light1,4,-4,-4
	EntityColor light1,255,0,0
	
cube=CreateCube()
	PositionEntity cube,0,0,0
	EntityFX cube,3

cone=CreateCone(20)
	PositionEntity cone,-5,0,0
	EntityFX cone,3
	
cyl=CreateCylinder(20)
	PositionEntity cyl,5,0,0
	EntityFX cyl,3

piv=CreatePivot()
	PositionEntity piv,EntityX(cube),EntityY(cube),EntityZ(cube)
	
light2=CreateSphere(10,piv)
	ScaleEntity light2,.1,.1,.1
	PositionEntity light2,0,7,0
	EntityColor light2,0,0,255

camera=CreateCamera()
	PositionEntity camera,0,2,-10


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

While Not KeyDown(1)

PointEntity camera,cube


	 
TurnEntity piv,1,0,0

TurnEntity cube,0,.5,.5

TurnEntity cone,-.5,.5,0

TurnEntity cyl,-.5,-.5,0


;;;;;;;;;;;;;;;;;Sets the ambient light level of objects;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

fklitentity(cube,10,10,10)

fklitentity(cone,10,10,10)

fklitentity(cyl,10,10,10)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


 
TFormPoint 0,0,0,light,cube
LightMesh cube,0,255,0,10,TFormedX(),TFormedY(),TFormedZ()
TFormPoint 0,0,0,light,cone
LightMesh cone,0,255,0,10,TFormedX(),TFormedY(),TFormedZ()
TFormPoint 0,0,0,light1,cube
LightMesh cube,255,0,0,10,TFormedX(),TFormedY(),TFormedZ()
TFormPoint 0,0,0,light2,cube
LightMesh cube,0,0,255,10,TFormedX(),TFormedY(),TFormedZ()
TFormPoint 0,0,0,light2,cone
LightMesh cone,0,0,255,10,TFormedX(),TFormedY(),TFormedZ()
TFormPoint 0,0,0,light1,cyl
LightMesh cyl,255,0,0,10,TFormedX(),TFormedY(),TFormedZ()
TFormPoint 0,0,0,light2,cyl
LightMesh cyl,0,0,255,10,TFormedX(),TFormedY(),TFormedZ()






UpdateWorld

RenderWorld
 
Flip 
Wend 
End

What i would like to know is. Is there a way i could write a function so if i had 100 diferent objects in a scene i wouldn't have to code the ( TFormPoint & LightMesh ) a billion times?
I have had a try & havn't had much luck. Any help would be much appreciated.

You could parent the entities which recieve light from light1 to a pivot called LIGHTpivot1 and then iterated through the children of the lightpivot to get the entities associated. e.g.

[CODE]
for c = 1 to countchildren( LIGHTpivot1 )
child = getchild( LIGHTpivot1, c )
tformpoint 0,0,0,light1, child
lightmesh child, 0,255,0,10, tformedx(), tformedy(), tformedz()
next

for c = 1 to countchildren( LIGHTpivot2 )
child = getchild( LIGHTpivot2, c )
tformpoint 0,0,0,light2, child
lightmesh child, 0,0,255,10,tformedx(), tformedy(), tformedz()
next
[/CODE]

thanks. I have just tryed it but when i want multiple lights on an entity i start having problems. I dont think it likes having multiple parents.

An entity cannot have more than one parent, although it can have many children.

yeah i thought as much. Thanks matty

Ok i have come up with this function but need some help

Function fklight(entity,x,y,z,red,green,blue,range)
	fklight=CreateSphere()
	ScaleEntity fklight,.5,.5,.5
	HideEntity fklight
	e.fklight=New fklight
	e\light=CopyEntity (fklight)
	e\x=x
	e\y=y
	e\z=z
	PositionEntity e\light,e\x,e\y,e\z
	e\red=red
	e\green=green
	e\blue=blue
	e\range=range
	e\entity=fklitentity
	For p.fklitentity= Each fklitentity
	TFormPoint 0,0,0,e\light,fklitentity
	LightMesh e\entity,e\red,e\green,e\blue,e\range,TFormedX(),TFormedY(),TFormedZ()
	Next
End Function

I have got this code to position a sphere where i want the light source to be as long as i have the function called before i use my (fklitentity) function. But the problem is that as soon as the scene is loaded is says. "entity dose not exist" & highlights this line

LightMesh e\entity,e\red,e\green,e\blue,e\range,TFormedX(),TFormedY(),TFormedZ()

Any sugestions?

For p.fklitentity= Each fklitentity

shouldn't that be

For p.fklit = Each fklit

?

I am trying to call on the entities that have a fake ambient applied to it from the first function.

Type fklitentity
	Field entity
	Field fx
	Field ambientr
	Field ambientg
	Field ambientb
End Type

Type fklight
	Field entity
	Field light
	Field red
	Field green
	Field blue
	Field range
	Field x
	Field y
	Field z
End Type
	
	

Function fklitentity(entity,ambientr,ambientg,ambientb)
	p.fklitentity=New fklitentity
	p\entity=entity
	LightMesh p\entity,-255,-255,-255
	p\ambientr=ambientr
	p\ambientg=ambientg
	p\ambientb=ambientb
	LightMesh p\entity,p\ambientr,p\ambientg,p\ambientb
End Function

i dont know if this is the right way to go about it.