lightmesh lighting shading on walls and shapes (more than 8 lights)

an example on how to use lightmesh() to light a scene with more than 8 lights.

this is slow and looks too bright imo (whatever the range set), but a good start if you want to learn custom vertices lighting shading.

;lightmesh lighting shading on walls and shapes
;by RemiD 2021/03/16

Graphics3D(800,600,32,2)

SeedRnd(MilliSecs())

;Origine
Global Origine = CreateCube()
ScaleMesh(Origine,0.01,0.01,0.01)
EntityColor(Origine,255,000,255)
EntityFX(Origine,1)

;Camera
Global Camera = CreateCamera()
CameraViewport(Camera,0,0,GraphicsWidth(),GraphicsHeight())
CameraRange(Camera,0.15,150)
CameraClsColor(Camera,000,000,000)

Global Pivot = CreatePivot()

;Input
Global MX%
Global MY%
Global MXDiff%
Global MYDiff%

;Ghost
Global GhostRoot
Global GhostRootYaw#
Global GhostEyes
Global GhostEyesPitch#
AddGhost()

;create some walls (pipe)
;texture the walls
;set fx to fullbright, allow vertices colors (Fx 1+2)
PipeSeg = CreatePipeSeg(32,5.0,1.0)
HideEntity(PipeSeg)
;Global Pipe_Mesh = CreateCylinder(32) : ScaleMesh(Pipe_Mesh,5,50.0/2,5) : PositionMesh(Pipe_Mesh,0,50.0/2,0) : RotateMesh(Pipe_Mesh,90,0,0) : FlipMesh(Pipe_Mesh)
Global Pipe_Mesh = CreateMesh()
For S% = 1 To 50 Step 1
 Part = CopyMesh(PipeSeg)
 PositionMesh(Part,0,0,S-1)
 AddMesh(Part,Pipe_Mesh) : FreeEntity(Part)
Next
ColorTex = CreateTexture(8,8)
SetBuffer(TextureBuffer(ColorTex))
 Color(240,180,180) : Rect(0,0,8,8,True)
EntityTexture(Pipe_Mesh,ColorTex)
EntityFX(Pipe_Mesh,1+2)
FreeEntity(PipeSeg)

;create some shapes (cubes)
;texture the shapes
;set fx to fullbright, allow vertices colors (Fx 1+2)
Global ShapesCount%
Dim Shape_Mesh(30)

For n% = 1 To 30 Step 1
 ShapesCount = ShapesCount + 1 : I% = ShapesCount
 Shape_Mesh(I) = CreateCube()
 ScaleMesh(Shape_Mesh(I),1.0/2,1.0/2,1.0/2)
 ColorTex = CreateTexture(8,8)
 SetBuffer(TextureBuffer(ColorTex))
  Color(Rand(180,240),Rand(180,240),Rand(180,240)) : Rect(0,0,8,8,True)
 EntityTexture(Shape_Mesh(I),ColorTex)
 EntityFX(Shape_Mesh(I),1+2)
 PositionEntity(Shape_Mesh(I),Rnd(0-4,0+4),Rnd(0-4,0+4),Rnd(0+1,50-1),True)
 RotateEntity(Shape_Mesh(I),0,0,Rand(-179,+179),True)
Next

;create some lights (only the properties)
Global LightsCount%
Dim Light_I#(30) ;intensity
Dim Light_R%(30)
Dim Light_G%(30)
Dim Light_B%(30)
Dim Light_Source(30)

For n% = 1 To 16
 LightsCount = LightsCount + 1 : I% = LightsCount
 Light_I(I) = 1.0
 Light_R(I) = Rand(024,240) : Light_G(I) = Rand(024,240) : Light_B(I) = Rand(024,240)
 Light_Source(I) = CreateSphere(8) : ScaleMesh(Light_Source(I),0.05/2,0.05/2,0.05/2) : EntityColor(Light_Source(I),Light_R(I),Light_G(I),Light_B(I)) : EntityFX(Light_Source(I),1)
 Z# = Rnd(0+3,50-3)
 PositionEntity(Pivot,0,0,Z,True) : RotateEntity(Pivot,0,0,Rand(-180,+180),True)
 TFormPoint(0,+5-Rnd(1,2.5),0,Pivot,0)
 PositionEntity(Light_Source(I),TFormedX(),TFormedY(),TFormedZ(),True)
Next

;light the scene using lightmesh()
;light the walls of pipe
LightMesh(Pipe_Mesh,-255,-255,-255) ;reset vertices color
LightMesh(Pipe_Mesh,030,030,030) ;ambientlight color
For LI% = 1 To LightsCount
 TFormPoint(0,0,0,Light_Source(LI),Pipe_Mesh)
 LightMesh(Pipe_Mesh,Light_R(LI),Light_G(LI),Light_B(LI),Light_I(LI),TFormedX(),TFormedY(),TFormedZ()) ;light color
Next
;light the shapes
For I% = 1 To ShapesCount
 LightMesh(Shape_Mesh(I),-255,-255,-255) ;reset vertices color
 LightMesh(Shape_Mesh(I),030,030,030) ;ambientlight color
 For LI% = 1 To LightsCount
  TFormPoint(0,0,0,Light_Source(LI),Shape_Mesh(I))
  LightMesh(Shape_Mesh(I),Light_R(LI),Light_G(LI),Light_B(LI),Light_I(LI),TFormedX(),TFormedY(),TFormedZ()) ;light color
 Next
Next

PositionEntity(GhostRoot,0,1.0,-5)

Repeat

 MX = MouseX() : MY = MouseY()

 MXDiff = MouseXSpeed() : MYDiff = MouseYSpeed()

 UpdateGhost()     

 PositionEntity(Camera,EntityX(GhostEyes,True),EntityY(GhostEyes,True),EntityZ(GhostEyes,True),True)
 RotateEntity(Camera,EntityPitch(GhostEyes,True),EntityYaw(GhostEyes,True),EntityRoll(GhostEyes,True),True)

 If( KeyHit(57)=1 )
  For I% = 1 To LightsCount
   Light_I(I) = 1.0
   Light_R(I) = Rand(024,240) : Light_G(I) = Rand(024,240) : Light_B(I) = Rand(024,240)
   EntityColor(Light_Source(I),Light_R(I),Light_G(I),Light_B(I)) : EntityFX(Light_Source(I),1)
   Z# = Rnd(0+3,50-3)
   PositionEntity(Pivot,0,0,Z,True) : RotateEntity(Pivot,0,0,Rand(-180,+180),True)
   TFormPoint(0,+5-Rnd(1,2.5),0,Pivot,0)
   PositionEntity(Light_Source(I),TFormedX(),TFormedY(),TFormedZ(),True)
  Next
  ;light the scene using lightmesh()
  MilliStart% = MilliSecs()
  ;light the walls of pipe
  LightMesh(Pipe_Mesh,-255,-255,-255) ;reset vertices color
  LightMesh(Pipe_Mesh,030,030,030) ;ambientlight color
  For LI% = 1 To LightsCount
   TFormPoint(0,0,0,Light_Source(LI),Pipe_Mesh)
   LightMesh(Pipe_Mesh,Light_R(LI),Light_G(LI),Light_B(LI),Light_I(LI),TFormedX(),TFormedY(),TFormedZ()) ;light color
  Next
  ;light the shapes
  For I% = 1 To ShapesCount
   LightMesh(Shape_Mesh(I),-255,-255,-255) ;reset vertices color
   LightMesh(Shape_Mesh(I),030,030,030) ;ambientlight color
   For LI% = 1 To LightsCount
    TFormPoint(0,0,0,Light_Source(LI),Shape_Mesh(I))
    LightMesh(Shape_Mesh(I),Light_R(LI),Light_G(LI),Light_B(LI),Light_I(LI),TFormedX(),TFormedY(),TFormedZ()) ;light color
   Next
  Next
  MilliTime% = MilliSecs() - MilliStart
 EndIf

 WireFrame(False)
 If( KeyDown(2)=1 )
  WireFrame(True)
 EndIf

 SetBuffer(BackBuffer())
 RenderWorld()

 Color(250,250,250) : Text(0,0,MilliTime)

 Flip(1)

Until( KeyDown(1)=1 )

End

Function AddGhost()

 GhostRoot = CreatePivot()

 GhostEyes = CreatePivot()
 EntityParent(GhostEyes,GhostRoot,True)

End Function

Function UpdateGhost()

 MoveMouse(GraphicsWidth()/2,GraphicsHeight()/2)
 GhostEyesPitch = GhostEyesPitch + Float(MYDiff)/10
 If( GhostEyesPitch < -89 )
  GhostEyesPitch = -89
 Else If( GhostEyesPitch > 89 )
  GhostEyesPitch = 89
 EndIf
 RotateEntity(GhostEyes,GhostEyesPitch,0,0,False)
 GhostRootYaw = GhostRootYaw - Float(MXDiff)/10
 RotateEntity(GhostRoot,0,GhostRootYaw,0,False)

 If( KeyDown(42) = 0 And KeyDown(29) = 0 )
  Speed# = 0.1
 Else If( KeyDown(42) = 1 And KeyDown(29) = 0 )
  Speed# = 1
 Else If( KeyDown(42) = 0 And KeyDown(29) = 1 )
  Speed# = 0.01
 EndIf

 If( KeyDown(17)=1 )
  MoveEntity(GhostRoot,0,0,Speed)
 Else If( KeyDown(31)=1 )
  MoveEntity(GhostRoot,0,0,-Speed)
 EndIf
 If( KeyDown(30)=1 )
  MoveEntity(GhostRoot,-Speed,0,0)
 Else If( KeyDown(32)=1 )
  MoveEntity(GhostRoot,Speed,0,0)
 EndIf
 If( KeyDown(16)=1 )
  MoveEntity(GhostRoot,0,-Speed,0)
 Else If( KeyDown(18)=1 )
  MoveEntity(GhostRoot,0,Speed,0)
 EndIf

End Function

Function CreatePipeSeg(Sides%=32,Radius#=5.0,Length#=1.0)

 Rotor = CreatePivot()

 Mesh = CreateMesh()

 ;surface
 Surface = CreateSurface(Mesh)

 ;vertices
 S% = 0  
 SRoll# = 360.0/Sides
 PositionEntity(Rotor,0,0,0,True) : RotateEntity(Rotor,0,0,0,True)
 For Z# = 0 To Length Step 1
  S% = 0
  Repeat
   S = S + 1
   TFormPoint(0,+Radius,Z,Rotor,0)
   ;Marker = CreateCube() : ScaleMesh(Marker,0.03/2+Float(S)/1000,0.03/2+Float(S)/1000,0.03/2+Float(S)/1000)
   ;PositionEntity(Marker,TFormedX(),TFormedY(),TFormedZ())
   AddVertex(Surface,TFormedX(),TFormedY(),TFormedZ())
   TurnEntity(Rotor,0,0,SRoll) 
  Until( S = Sides ) 
 Next

 ;triangles
 For S% = 1 To Sides Step 1
  V0I% = S  : If( S = Sides ) : V0I% = 0 : EndIf
  V1I% = S-1
  V2I% = Sides+S : If( S = Sides ) : V2I% = Sides+0 : EndIf
  V3I% = Sides+S-1 
  AddTriangle(Surface,V0I,V1I,V2I)
  AddTriangle(Surface,V2I,V1I,V3I)
 Next

 FreeEntity(Rotor)

 UpdateNormals(Mesh)

 ;DebugLog(CountVertices(Surface))
 ;DebugLog(CountTriangles(Surface))

 Return Mesh

End Function

Interesting feature.. uploaded this screenshot