multiple lights for dot3?

The last weeks i was dealing with dot3 code. I've seen Fredborgs demo and a demo of a guy who's name i forgot. It demonstrates Bumpmapping on a floor plane with three lights... i think the ones who saw it, too, know what i mean... I just didn't know how to get halos code, it seems to be lost or something.

well... All the demos i've seen had some important features left out, some of them didn't allow more than one dot3-light, some didn't regard the lights direction, some didn't regard the normalmapped mesh's direction and some ignored the lights range in their caclulations.

Yesterday i coded an own method from scratch... I tried to regard most of the features.
It works pretty well in most situations. Only thing is i didn't get multiple lights to add to each other. It's always the last light only, that's regarded.

Here's the code:

Global redd#, greend#, blued#

Global bumpvec = CreatePivot()

Type bumpmesh
	Field mesh		;bumpmapped mesh's handle
End Type

Type d3light
	Field light		;dot3 light's handle
	Field rng#		;dot3 light's range
End Type

Function graphics_Dot3_Normalupdate()
For bm.bumpmesh = Each bumpmesh
	
	redd = 0
	greend= 0
	blued =0
		
	For n = 1 To CountSurfaces(bm\mesh)
		
		surf = GetSurface(bm\mesh,n)
		
		For v = 0 To CountVertices(surf)-1

			For d.d3light= Each d3light
	
				TFormPoint VertexX(surf,v),VertexY(surf,v),VertexZ(surf,v),bm\mesh,0
				
				x# = TFormedX() - EntityX(d\light)
				y# = TFormedY() - EntityY(d\light)
				z# = TFormedZ() - EntityZ(d\light)
			
				TFormNormal VertexNX(surf,v),VertexNY(surf,v),VertexNZ(surf,v),bm\mesh,0
		
				dist# = Sqr(x*x+y*y+z*z)
				Intens# = 1.0 - (dist/(d\rng*8))
				If intens < 0 Then intens = 0
			
				PositionEntity bumpvec,TFormedX(),TFormedY(),TFormedZ(),1
				AlignToVector bumpvec,TFormedX(),TFormedY(),TFormedZ(),3,1
				RotateEntity bumpvec,EntityPitch(bumpvec,1),EntityYaw(bumpvec,1),0,1
			
				TFormNormal x,y,z,0,bumpvec
			
				redd = redd+(1.0-TFormedX())*127
				greend = greend+(1.0-TFormedY())*127
				blued = blued+((1.0-TFormedZ())*127)*Intens					
	
			Next
			
		Next
		
		VertexColor surf,v,redd,greend,blued
		
	Next

Next

End Function

Raitsun

How about a complete demo to show how well it works?

That's how i got it right now.... but i need help with using multiple lights...

Graphics3D 1024, 768, 32, 1
SetBuffer BackBuffer()

Global bumpvec = CreatePivot()
Global redd#, greend#, blued#

AmbientLight 0,0,0

a# = 1.0

;------------ Initialise dot3-types ----------------------
Type bumpmesh
	Field mesh		;bumpmapped mesh's handle
End Type

Type d3light
	Field light		;dot3 light's handle
	Field rng#		;dot3 light's range
End Type
;------------------------------------------------------------

;---------- Setting up the light ----------------------
pivot = CreatePivot()
light = graphics_Dot3_CreateBumpLight(10, pivot)
;lightx = CreateSphere(8, light)
;EntityFX lightx, 1
;ScaleEntity lightx, 0.1, 0.1, 0.1
;EntityColor lightx, 255,255,255
MoveEntity light, 0, 0, -6
;------ creating the mesh and apply normal map ---------------------
mesh = CreateCube()
ScaleEntity mesh, 2, 2, 2
graphics_dot3_applybumpmesh(mesh, "boden_diffuse.jpg", "boden.jpg")
UpdateNormals mesh
;--------- create a camera --------------------------------
camera = CreateCamera()
PositionEntity camera,0,0,-9.0
CameraRange camera,0.1,110
CameraClsColor camera,0,0,0

;--------- Main loop -----------------------------------------
While Not KeyHit(1)
	
	;FPS
	tt=MilliSecs()
    fps#=1000/(tt-ttold)
    ttold=tt
	
	
	;turn the mesh with cursor-keys
	If KeyDown(200) TurnEntity mesh, 70/fps,0,0
	
	If KeyDown(208) TurnEntity mesh,-70/fps,0,0	
	
	If KeyDown(205) TurnEntity mesh,0,-70/fps,0
	
	If KeyDown(203) TurnEntity mesh,0, 70/fps,0

	
	;move the light while space is pressed
	If KeyDown(57) Then
		a = a + 1
		If a = 360.0 Then a = 0
		PositionEntity light,Cos(a)*5,Sin(a)*5,-9	
	EndIf

	;Updates
	graphics_dot3_Normalupdate()
	UpdateWorld()
	RenderWorld()

    Text 10,10,"FPS: "+Int(fps#)
	
	Flip

Wend


;---------------- Functions -------------------------------------
Function graphics_Dot3_CreateBumpLight(range#, parent)	;create a light regarded by the dot3-system

	d.d3light = New d3light
	
	d\light = CreatePivot(parent)
	d\rng = range
	
	Return d\light
	
End Function

Function graphics_Dot3_ApplyBumpMesh(mesh, diffuse$, bump$)		;apply a mesh to be a normal mapped mesh (diffusemap = colormap without shades)

	bm.bumpmesh = New bumpmesh
	
	difftex = LoadTexture(diffuse, 1+256)
	bumptex = LoadTexture(bump, 1+256)
	
	bm\mesh = mesh
	
	TextureBlend bumptex, 4
	
	EntityTexture mesh, bumptex, 0, 0
	EntityTexture mesh, difftex, 0, 1
	
	EntityFX mesh, 3
	
End Function


Function graphics_dot3_Normalupdate()
For bm.bumpmesh = Each bumpmesh
	

	For d.d3light= Each d3light
	
	For n = 1 To CountSurfaces(bm\mesh)
		surf = GetSurface(bm\mesh,n)
		For v = 0 To CountVertices(surf)-1
			TFormPoint VertexX(surf,v),VertexY(surf,v),VertexZ(surf,v),bm\mesh,0
			x# = TFormedX() - EntityX(d\light)
			y# = TFormedY() - EntityY(d\light)
			z# = TFormedZ() - EntityZ(d\light)
			
			TFormNormal VertexNX(surf,v),VertexNY(surf,v),VertexNZ(surf,v),bm\mesh,0
			
			dist# = Sqr(x*x+y*y+z*z)
			Intens# = 1.0 - (dist/(d\rng*8))
			If intens < 0 Then intens = 0
			
			PositionEntity bumpvec,TFormedX(),TFormedY(),TFormedZ(),1
			AlignToVector bumpvec,TFormedX(),TFormedY(),TFormedZ(),3,1
			RotateEntity bumpvec,EntityPitch(bumpvec,1),EntityYaw(bumpvec,1),0,1
			
			TFormNormal x,y,z,0,bumpvec
				
			redd = (1.0-TFormedX())*127
			greend = (1.0-TFormedY())*127
			blued = ((1.0-TFormedZ())*127)*Intens
				
			VertexColor surf,v,redd,greend,blued		
		Next
	Next
  Next
Next
End Function

You'll need this pics:

boden.jpg:


boden_diffuse.jpg:


(b.t.w.: boden is the german word for floor)

Raitsun
(These Pictures are from Ben Cloward Homepage:
http://www.monitorstudios.com/bcloward/index.html)

I modify before Fredborgs demo and I run around with 20 different lights at same time..and working well..