Mojo3d – Light not doing anything with custom meshes.

[PakzParticipant]

I can not seem to get the lighting working. I tried placing it on different positions(even rnd in loop) and pointing it but the scene does not seem affected.  I am building my own meshes.

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Class MyWindow Extends Window Field _scene:Scene Field _camera:Camera Field _light:Light Field _model:Model Field _material:Material Field worldmap:Int[,] ' The camera position Field mapx:Int=40,mapy:Int=40 Method New() ' Create our world map and give it ' random values worldmap = New Int[100,100] For Local y:Int=0 Until 100 For Local x:Int=0 Until 100 worldmap[x,y] = Rnd(0,4) Next Next 'get scene ' _scene=Scene.GetCurrent() 'create camera ' _camera=New Camera _camera.Near=.1 _camera.Far=100 _camera.Move( 0,-8,8 ) _camera.PointAt(New Vec3f(0,0,0)) 'create light ' _light=New Light _light.Color = Color.Red _light.Move(0,20,20) _light.PointAt(New Vec3f(0,0,0)) createmap() End Method OnRender( canvas:Canvas ) Override RequestRender() scrollmap() _scene.Render( canvas,_camera ) canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 ) If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method ' Here we move the map Method scrollmap() Local tx:Int=mapx Local ty:Int=mapy If Keyboard.KeyDown(Key.Right) Then tx -= 1 If Keyboard.KeyDown(Key.Left) Then tx += 1 If Keyboard.KeyDown(Key.Up) Then ty += 1 If Keyboard.KeyDown(Key.Down) Then ty -= 1 If tx<0 Then tx = 0 If tx+10>=worldmap.GetSize(0) Then tx = worldmap.GetSize(0)-10 If ty<0 Then ty = 0 If ty+10>=worldmap.GetSize(1) Then ty = worldmap.GetSize(1)-10 Local redr:Bool=True If mapy <> ty Or mapx <> tx Then redr = True mapx = tx mapy = ty If redr Then createmap() End If End Method Method createmap() 'Destroy all models _scene.DestroyAllEntities() ' Draw the map For Local y:Int=0 Until 10 For Local x:Int=0 Until 10 Local mesh:Mesh Select worldmap[x+mapx,y+mapy] Case 0 mesh = createpyramid() Default mesh = createquad() End Select 'create model for the mesh ' _model=New Model _model.Mesh=mesh 'Color based on worldmap value Select worldmap[x+mapx,y+mapy] Case 0 _model.Material=New PbrMaterial( Color.Red) Case 1 _model.Material=New PbrMaterial( Color.Green) Case 2 _model.Material=New PbrMaterial( Color.Blue) Case 3 _model.Material=New PbrMaterial( Color.Black) End Select _model.Material.CullMode=CullMode.None _model.Move(x-5,y-5,0) Next Next End Method ' Create a square Method createquad:Mesh() 'create quad mesh ' Local vertices:=New Vertex3f[4] vertices[0].position=New Vec3f( -1, 1,0 ) vertices[1].position=New Vec3f( 1, 1,0 ) vertices[2].position=New Vec3f( 1,-1,0 ) vertices[3].position=New Vec3f( -1,-1,0 ) Local indices:=New UInt[6] indices[0]=0 indices[1]=1 indices[2]=2 indices[3]=0 indices[4]=2 indices[5]=3 Local mesh:=New Mesh( vertices,indices ) Return mesh End Method ' create a pyramid Method createpyramid:Mesh() 'create quad mesh ' Local vertices:=New Vertex3f[5] vertices[0].position=New Vec3f( -1, -1,0 )'left top vertices[1].position=New Vec3f( 1, -1,0 )'right top vertices[2].position=New Vec3f( -1,1,0 )'bottom left vertices[3].position=New Vec3f( 1,1,0 ) 'bottom right vertices[4].position=New Vec3f( 0,0,1 )'center Local indices:=New UInt[12] indices[0]=0 indices[1]=1 indices[2]=4 indices[3]=4 indices[4]=1 indices[5]=3 indices[6]=2 indices[7]=4 indices[8]=3 indices[9]=0 indices[10]=4 indices[11]=2 Local mesh:=New Mesh( vertices,indices ) Return mesh End Method End Class Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200

#Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Class MyWindow Extends Window Field _scene:Scene Field _camera:Camera Field _light:Light Field _model:Model Field _material:Material Field worldmap:Int[,] ' The camera position Field mapx:Int=40,mapy:Int=40 Method New() ' Create our world map and give it ' random values worldmap = New Int[100,100] For Local y:Int=0 Until 100 For Local x:Int=0 Until 100 worldmap[x,y] = Rnd(0,4) Next Next 'get scene ' _scene=Scene.GetCurrent() 'create camera ' _camera=New Camera _camera.Near=.1 _camera.Far=100 _camera.Move( 0,-8,8 ) _camera.PointAt(New Vec3f(0,0,0)) 'create light ' _light=New Light _light.Color = Color.Red _light.Move(0,20,20) _light.PointAt(New Vec3f(0,0,0)) createmap() End Method OnRender( canvas:Canvas ) Override RequestRender() scrollmap() _scene.Render( canvas,_camera ) canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 ) If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method   ' Here we move the map Method scrollmap() Local tx:Int=mapx Local ty:Int=mapy If Keyboard.KeyDown(Key.Right) Then tx -= 1 If Keyboard.KeyDown(Key.Left) Then tx += 1 If Keyboard.KeyDown(Key.Up) Then ty += 1 If Keyboard.KeyDown(Key.Down) Then ty -= 1     If tx<0 Then tx = 0 If tx+10>=worldmap.GetSize(0) Then tx = worldmap.GetSize(0)-10 If ty<0 Then ty = 0 If ty+10>=worldmap.GetSize(1) Then ty = worldmap.GetSize(1)-10 Local redr:Bool=True If mapy <> ty Or mapx <> tx Then redr = True mapx = tx mapy = ty If redr Then createmap() End If End Method Method createmap() 'Destroy all models _scene.DestroyAllEntities()   ' Draw the map For Local y:Int=0 Until 10 For Local x:Int=0 Until 10 Local mesh:Mesh Select worldmap[x+mapx,y+mapy] Case 0 mesh = createpyramid() Default mesh = createquad() End Select 'create model for the mesh ' _model=New Model _model.Mesh=mesh   'Color based on worldmap value Select worldmap[x+mapx,y+mapy] Case 0 _model.Material=New PbrMaterial( Color.Red) Case 1 _model.Material=New PbrMaterial( Color.Green) Case 2 _model.Material=New PbrMaterial( Color.Blue) Case 3 _model.Material=New PbrMaterial( Color.Black) End Select _model.Material.CullMode=CullMode.None _model.Move(x-5,y-5,0) Next Next End Method ' Create a square Method createquad:Mesh() 'create quad mesh ' Local vertices:=New Vertex3f[4] vertices[0].position=New Vec3f( -1, 1,0 ) vertices[1].position=New Vec3f(  1, 1,0 ) vertices[2].position=New Vec3f(  1,-1,0 ) vertices[3].position=New Vec3f( -1,-1,0 ) Local indices:=New UInt[6] indices[0]=0 indices[1]=1 indices[2]=2 indices[3]=0 indices[4]=2 indices[5]=3   Local mesh:=New Mesh( vertices,indices ) Return mesh   End Method   ' create a pyramid Method createpyramid:Mesh() 'create quad mesh ' Local vertices:=New Vertex3f[5] vertices[0].position=New Vec3f( -1, -1,0 )'left top vertices[1].position=New Vec3f(  1, -1,0 )'right top vertices[2].position=New Vec3f(  -1,1,0 )'bottom left vertices[3].position=New Vec3f( 1,1,0 ) 'bottom right vertices[4].position=New Vec3f( 0,0,1 )'center Local indices:=New UInt[12] indices[0]=0 indices[1]=1 indices[2]=4 indices[3]=4 indices[4]=1 indices[5]=3 indices[6]=2 indices[7]=4 indices[8]=3 indices[9]=0 indices[10]=4 indices[11]=2   Local mesh:=New Mesh( vertices,indices ) Return mesh   End Method   End Class     Function Main() New AppInstance New MyWindow App.Run() End

[PakzParticipant]

I got it doing something. I think that DestroyAllEntities also kills the lights and that needs to be recreated,

The shadows look a little bit broken though if I add the command : CastsShadow = True

[EthernautParticipant]

I think you may be missing information in the vertices. Try adding texture coordinates ( (0,0) for bottom left, (1,1) for top right ) and call UpdateNormals() to recalculate the normals on all vertices.

Some good examples here:
https://github.com/blitz-research/monkey2/blob/develop/modules/mojo3d/geometry/meshprims.monkey2

[Author]

Posts