Loading in lightmap textures

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Naughty Alien

Even if you wanna use 3DS or X file format. You have to export 2 meshes. One with textures you normally apply on it, and second with only lightmap texture applied on it. Here is the code..

Graphics3D 800,600,32,2

camera=CreateCamera()

map=LoadAnimMesh("MESH.3ds")
litemap=LoadAnimMesh("Mesh1.3ds")
t=LoadTexture("lmap.tga")

MapVertices(map,litemap,t)
FreeEntity litemap
FreeTexture t

MoveEntity camera,0,200,-500
PointEntity camera,map

While Not KeyHit(1)
TurnEntity map,0,0.1,0
UpdateWorld
RenderWorld
Flip
Wend
End

;=====================
Function MapVertices(model,copy,texture)

WriteLine Log,"Limb "+EntityName(model)+" contains "+CountChildren(model)+" children, "+CountSurfaces(model)+" surfaces.
For n=1 To CountSurfaces(model)
surf=GetSurface(model,n)
WriteLine Log,"Limb "+EntityName(model)+", surface "+n+" contains "+CountVertices(surf)+" vertices."
Next

For n=1 To CountSurfaces(model)

surf=GetSurface(model,n)
lsurf=GetSurface(copy,n)
For v=0 To CountVertices(surf)-1

tu#=VertexU#(lsurf,v)
tv#=VertexV#(lsurf,v)
tw#=VertexW#(lsurf,v)
VertexTexCoords surf,v,tu,tv,tw,1
Next
Next

TextureCoords texture,1
EntityTexture model,texture,0,1

For e=1 To CountChildren(Model)
limb=GetChild(model,e)
limb2=GetChild(copy,e)
MapVertices(limb,limb2,texture)
Next

End Function