mojo3d:Chunks creation problems (memory access violation)

[PakzParticipant]

I am kind of stuck with this. I changed my createcube method to having more vertices so I can put textures on them but then I got these errors thrown every time I got more or less in the center of the maps.

I modified a example to get these errors thrown again. It seems that there is some kind of limit? in the amount of meshes that can be created? When I recreated the models without recreating the messes I could fill the screen until the fps got to 0. I have been at it all night and maybe there is something really simple wrong.

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Class MyWindow Extends Window Field _scene:Scene 'The size of the chunks (Minecraft has 16x128*16 chunks) Field chunkwidth:Int=16 Field chunkheight:Int=64 Field chunkdepth:Int=16 Field _camera:Camera Field _light:Light Field _model:Model Field _rectCanvas:Canvas Field _rectImage:Image Method New() 'get scene ' _scene=Scene.GetCurrent() 'create camera ' _camera=New Camera _camera.Near=.1 _camera.Far=100 _camera.Move( 0,0,-35 ) 'create light ' _light=New Light _light.Move(110,110,120) _light.PointAt(New Vec3f(0,0,0)) ' _light.RotateX( 90 ) 'aim directional light downwards - 90 degrees. 'Here we create our chunk array Local chunk:Int[,,] = New Int[chunkwidth,chunkheight,chunkdepth] For Local z:Int=0 Until chunkdepth For Local y:Int=0 Until chunkheight For Local x:Int=0 Until chunkwidth chunk[x,y,z] = 1 Next Next Next For Local z:Int=0 Until chunkdepth For Local y:Int=0 Until chunkheight For Local x:Int=2 Until chunkwidth-2 chunk[x,y,z] = Int(Rnd(0,2)) If Rnd() <.7 Then chunk[x,y,z]=0 Next Next Next 'Here we create our chunk meshes to many chunks here -4 to 4 gives 'memory acces error For Local x2:Int=-4 To 4 For Local z2:Int=-4 To 4 Local chunkmesh:= New Mesh() For Local z:Int=0 Until chunkdepth For Local y:Int=0 Until chunkheight For Local x:Int=0 Until chunkwidth If chunk[x,y,z] <> 0 Then Local sides:Bool[] = New Bool[6] If z-1>=0 And chunk[x,y,z-1] <> 0 Then sides[0] = False Else sides[0] = True If x-1>=0 And chunk[x-1,y,z] <> 0 Then sides[3] = False Else sides[3] = True If z+1<chunkdepth And chunk[x,y,z+1] <> 0 Then sides[1] = False Else sides[1] = True If x+1<chunkwidth And chunk[x+1,y,z] <> 0 Then sides[2] = False Else sides[2] = True If y+1<chunkheight And chunk[x,y+1,z] <> 0 Then sides[4] = False Else sides[4] = True If y-1>=0 And chunk[x,y-1,z] <> 0 Then sides[5] = False Else sides[5] = True Local mesh2:=createcube(x*2,y*2,z*2,sides) chunkmesh.AddMesh(mesh2) endif Next Next Next ' Here we create our model containing the chunk chunkmesh.UpdateNormals() _model=New Model _model.Mesh=chunkmesh _model.Materials = _model.Materials.Resize(chunkmesh.NumMaterials) Local sm:= New PbrMaterial() _rectImage=New Image( 256, 256 ) _rectCanvas=New Canvas( _rectImage ) sm.ColorTexture = _rectImage.Texture sm.ColorTexture.Flags = TextureFlags.FilterMipmap 'sm.CullMode=CullMode.None _model.Materials[chunkmesh.NumMaterials - 1] = sm _model.Move(x2*2*chunkwidth,0,z2*2*chunkdepth) Next Next End Method Method OnRender( canvas:Canvas ) Override RequestRender() RenderTexture() controls() _scene.Update() _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 'sides (0-front,1=left,2=back,3=right,4=top,5=bottom) 'x,y,z is location in the chunk Method createcube:Mesh(x:Float=0,y:Float=0,z:Float=0,sides:Bool[]) 'create cube mesh ' Local vertices:=New Vertex3f[24] 'front vertices[0].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[1].position=New Vec3f( 1+x, 1+y,-1+z )'right front top vertices[2].position=New Vec3f( 1+x,-1+y,-1+z )'right front bottom vertices[3].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom 'back vertices[4].position=New Vec3f( 1+x, 1+y, 1+z )'right back top vertices[5].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[6].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom vertices[7].position=New Vec3f( 1+x,-1+y, 1+z )'right back bottom 'right vertices[8].position=New Vec3f( 1+x, 1+y,-1+z )'right front top vertices[9].position=New Vec3f( 1+x, 1+y, 1+z )'right back top vertices[10].position=New Vec3f( 1+x,-1+y, 1+z )'right back bottom vertices[11].position=New Vec3f( 1+x,-1+y,-1+z )'right front bottom 'left vertices[12].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[13].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[14].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[15].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom 'top vertices[16].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[17].position=New Vec3f( 1+x, 1+y, 1+z )'right back top vertices[18].position=New Vec3f( 1+x, 1+y,-1+z )'right front top vertices[19].position=New Vec3f( -1+x, 1+y,-1+z )'left front top 'bottom vertices[20].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[21].position=New Vec3f( 1+x,-1+y,-1+z )'right front bottom vertices[22].position=New Vec3f( 1+x,-1+y, 1+z )'right back bottom vertices[23].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom ' Texture coordinates represent coordinates within the image, where ' 0,0=top left, 1,0=top right, 1,1=bottom right, 0,1=bottom left 'front texture vertices[0].texCoord0 = New Vec2f(0,0) vertices[1].texCoord0 = New Vec2f(1,0) vertices[2].texCoord0 = New Vec2f(1,1) vertices[3].texCoord0 = New Vec2f(0,1) 'back texture vertices[4].texCoord0 = New Vec2f(0,0) vertices[5].texCoord0 = New Vec2f(1,0) vertices[6].texCoord0 = New Vec2f(1,1) vertices[7].texCoord0 = New Vec2f(0,1) 'right texture vertices[8].texCoord0 = New Vec2f(0,0) vertices[9].texCoord0 = New Vec2f(1,0) vertices[10].texCoord0 = New Vec2f(1,1) vertices[11].texCoord0 = New Vec2f(0,1) 'left texture vertices[12].texCoord0 = New Vec2f(0,0) vertices[13].texCoord0 = New Vec2f(1,0) vertices[14].texCoord0 = New Vec2f(1,1) vertices[15].texCoord0 = New Vec2f(0,1) 'top texture vertices[16].texCoord0 = New Vec2f(0,0) vertices[17].texCoord0 = New Vec2f(1,0) vertices[18].texCoord0 = New Vec2f(1,1) vertices[19].texCoord0 = New Vec2f(0,1) 'bottom texture vertices[20].texCoord0 = New Vec2f(0,0) vertices[21].texCoord0 = New Vec2f(1,0) vertices[22].texCoord0 = New Vec2f(1,1) vertices[23].texCoord0 = New Vec2f(0,1) ' Local indices:=New UInt[36] Local cnt:Int=0 'front If sides[0] indices[cnt]=0;cnt+=1 indices[cnt]=1;cnt+=1 indices[cnt]=2;cnt+=1 indices[cnt]=0;cnt+=1 indices[cnt]=2;cnt+=1 indices[cnt]=3;cnt+=1 End if 'back side If sides[1] indices[cnt]=4;cnt+=1 indices[cnt]=5;cnt+=1 indices[cnt]=6;cnt+=1 indices[cnt]=4;cnt+=1 indices[cnt]=6;cnt+=1 indices[cnt]=7;cnt+=1 End If 'right side If sides[2] indices[cnt]=8;cnt+=1 indices[cnt]=9;cnt+=1 indices[cnt]=10;cnt+=1 indices[cnt]=8;cnt+=1 indices[cnt]=10;cnt+=1 indices[cnt]=11;cnt+=1 End if ' left side If sides[3] indices[cnt]=12;cnt+=1 indices[cnt]=13;cnt+=1 indices[cnt]=14;cnt+=1 indices[cnt]=12;cnt+=1 indices[cnt]=14;cnt+=1 indices[cnt]=15;cnt+=1 End If 'top side If sides[4] indices[cnt]=16;cnt+=1 indices[cnt]=17;cnt+=1 indices[cnt]=18;cnt+=1 indices[cnt]=16;cnt+=1 indices[cnt]=18;cnt+=1 indices[cnt]=19;cnt+=1 End If 'bottom side If sides[5] indices[cnt]=20;cnt+=1 indices[cnt]=21;cnt+=1 indices[cnt]=22;cnt+=1 indices[cnt]=20;cnt+=1 indices[cnt]=22;cnt+=1 indices[cnt]=23;cnt+=1 End If Return New Mesh( vertices,indices ) End Method Method controls() If Keyboard.KeyDown(Key.W) Then _camera.Move(0,0,.5) If Keyboard.KeyDown(Key.S) Then _camera.Move(0,0,-.5) If Keyboard.KeyDown(Key.A) Then _camera.Move(-.5,0,0) If Keyboard.KeyDown(Key.D) Then _camera.Move(.5,0,0) If Keyboard.KeyDown(Key.Up) Then _camera.Rotate(1,0,0) If Keyboard.KeyDown(Key.Down) Then _camera.Rotate(-1,0,0) If Keyboard.KeyDown(Key.Left) Then _camera.Rotate(0,1,0) If Keyboard.KeyDown(Key.Right) Then _camera.Rotate(0,-1,0) End Method Method RenderTexture() If Not _rectCanvas Then _rectCanvas=New Canvas( _rectImage ) Endif 'This should be orange with white text on 'But since I'm drawing something in the top left corner - 'I'm just getting that top left pixel on the entire rectangle _rectCanvas.Clear( Color.Blue ) _rectCanvas.Color = Color.White _rectCanvas.DrawText( "Hello World", Rnd(8,12), 8 ) _rectCanvas.Color = Color.Orange _rectCanvas.DrawRect( 50, 50 , 200 ,90) 'White in the top left _rectCanvas.Flush() 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 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306

#Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Class MyWindow Extends Window Field _scene:Scene 'The size of the chunks (Minecraft has 16x128*16 chunks) Field chunkwidth:Int=16 Field chunkheight:Int=64 Field chunkdepth:Int=16 Field _camera:Camera Field _light:Light Field _model:Model Field _rectCanvas:Canvas Field _rectImage:Image   Method New() 'get scene ' _scene=Scene.GetCurrent() 'create camera ' _camera=New Camera _camera.Near=.1 _camera.Far=100 _camera.Move( 0,0,-35 ) 'create light ' _light=New Light _light.Move(110,110,120) _light.PointAt(New Vec3f(0,0,0)) ' _light.RotateX( 90 ) 'aim directional light downwards - 90 degrees. 'Here we create our chunk array Local chunk:Int[,,] = New Int[chunkwidth,chunkheight,chunkdepth]   For Local z:Int=0 Until chunkdepth For Local y:Int=0 Until chunkheight For Local x:Int=0 Until chunkwidth chunk[x,y,z] = 1 Next Next Next For Local z:Int=0 Until chunkdepth For Local y:Int=0 Until chunkheight For Local x:Int=2 Until chunkwidth-2 chunk[x,y,z] = Int(Rnd(0,2)) If Rnd() <.7 Then chunk[x,y,z]=0 Next Next Next 'Here we create our chunk meshes to many chunks here -4 to 4 gives 'memory acces error For Local x2:Int=-4 To 4 For Local z2:Int=-4 To 4 Local chunkmesh:= New Mesh() For Local z:Int=0 Until chunkdepth For Local y:Int=0 Until chunkheight For Local x:Int=0 Until chunkwidth If chunk[x,y,z] <> 0 Then Local sides:Bool[] = New Bool[6] If z-1>=0 And chunk[x,y,z-1] <> 0 Then sides[0] = False Else sides[0] = True If x-1>=0 And chunk[x-1,y,z] <> 0 Then sides[3] = False Else sides[3] = True If z+1<chunkdepth And chunk[x,y,z+1] <> 0 Then sides[1] = False Else sides[1] = True If x+1<chunkwidth And chunk[x+1,y,z] <> 0 Then sides[2] = False Else sides[2] = True If y+1<chunkheight And chunk[x,y+1,z] <> 0 Then sides[4] = False Else sides[4] = True If y-1>=0 And chunk[x,y-1,z] <> 0 Then sides[5] = False Else sides[5] = True Local mesh2:=createcube(x*2,y*2,z*2,sides) chunkmesh.AddMesh(mesh2) endif Next Next Next ' Here we create our model containing the chunk chunkmesh.UpdateNormals()   _model=New Model _model.Mesh=chunkmesh   _model.Materials = _model.Materials.Resize(chunkmesh.NumMaterials)   Local sm:= New PbrMaterial() _rectImage=New Image( 256, 256 ) _rectCanvas=New Canvas( _rectImage ) sm.ColorTexture = _rectImage.Texture sm.ColorTexture.Flags = TextureFlags.FilterMipmap 'sm.CullMode=CullMode.None _model.Materials[chunkmesh.NumMaterials - 1] = sm _model.Move(x2*2*chunkwidth,0,z2*2*chunkdepth)   Next Next End Method Method OnRender( canvas:Canvas ) Override RequestRender() RenderTexture() controls() _scene.Update() _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   'sides (0-front,1=left,2=back,3=right,4=top,5=bottom) 'x,y,z is location in the chunk Method createcube:Mesh(x:Float=0,y:Float=0,z:Float=0,sides:Bool[]) 'create cube mesh ' Local vertices:=New Vertex3f[24] 'front vertices[0].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[1].position=New Vec3f(  1+x, 1+y,-1+z )'right front top vertices[2].position=New Vec3f(  1+x,-1+y,-1+z )'right front bottom vertices[3].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom 'back vertices[4].position=New Vec3f(  1+x, 1+y, 1+z )'right back top vertices[5].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[6].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom vertices[7].position=New Vec3f(  1+x,-1+y, 1+z )'right back bottom 'right vertices[8].position=New Vec3f(  1+x, 1+y,-1+z )'right front top vertices[9].position=New Vec3f(  1+x, 1+y, 1+z )'right back top vertices[10].position=New Vec3f( 1+x,-1+y, 1+z )'right back bottom vertices[11].position=New Vec3f( 1+x,-1+y,-1+z )'right front bottom 'left vertices[12].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[13].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[14].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[15].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom 'top vertices[16].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[17].position=New Vec3f(  1+x, 1+y, 1+z )'right back top vertices[18].position=New Vec3f(  1+x, 1+y,-1+z )'right front top vertices[19].position=New Vec3f( -1+x, 1+y,-1+z )'left front top 'bottom vertices[20].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[21].position=New Vec3f(  1+x,-1+y,-1+z )'right front bottom vertices[22].position=New Vec3f(  1+x,-1+y, 1+z )'right back bottom vertices[23].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom '  Texture coordinates represent coordinates within the image, where ' 0,0=top left, 1,0=top right, 1,1=bottom right, 0,1=bottom left 'front texture vertices[0].texCoord0 = New Vec2f(0,0) vertices[1].texCoord0 = New Vec2f(1,0) vertices[2].texCoord0 = New Vec2f(1,1) vertices[3].texCoord0 = New Vec2f(0,1) 'back texture vertices[4].texCoord0 = New Vec2f(0,0) vertices[5].texCoord0 = New Vec2f(1,0) vertices[6].texCoord0 = New Vec2f(1,1) vertices[7].texCoord0 = New Vec2f(0,1) 'right texture vertices[8].texCoord0 = New Vec2f(0,0) vertices[9].texCoord0 = New Vec2f(1,0) vertices[10].texCoord0 = New Vec2f(1,1) vertices[11].texCoord0 = New Vec2f(0,1) 'left texture vertices[12].texCoord0 = New Vec2f(0,0) vertices[13].texCoord0 = New Vec2f(1,0) vertices[14].texCoord0 = New Vec2f(1,1) vertices[15].texCoord0 = New Vec2f(0,1) 'top texture vertices[16].texCoord0 = New Vec2f(0,0) vertices[17].texCoord0 = New Vec2f(1,0) vertices[18].texCoord0 = New Vec2f(1,1) vertices[19].texCoord0 = New Vec2f(0,1) 'bottom texture vertices[20].texCoord0 = New Vec2f(0,0) vertices[21].texCoord0 = New Vec2f(1,0) vertices[22].texCoord0 = New Vec2f(1,1) vertices[23].texCoord0 = New Vec2f(0,1) ' Local indices:=New UInt[36] Local cnt:Int=0 'front If sides[0] indices[cnt]=0;cnt+=1 indices[cnt]=1;cnt+=1 indices[cnt]=2;cnt+=1 indices[cnt]=0;cnt+=1 indices[cnt]=2;cnt+=1 indices[cnt]=3;cnt+=1 End if 'back side If sides[1] indices[cnt]=4;cnt+=1 indices[cnt]=5;cnt+=1 indices[cnt]=6;cnt+=1 indices[cnt]=4;cnt+=1 indices[cnt]=6;cnt+=1 indices[cnt]=7;cnt+=1 End If 'right side If sides[2] indices[cnt]=8;cnt+=1 indices[cnt]=9;cnt+=1 indices[cnt]=10;cnt+=1 indices[cnt]=8;cnt+=1 indices[cnt]=10;cnt+=1 indices[cnt]=11;cnt+=1 End if ' left side If sides[3] indices[cnt]=12;cnt+=1 indices[cnt]=13;cnt+=1 indices[cnt]=14;cnt+=1 indices[cnt]=12;cnt+=1 indices[cnt]=14;cnt+=1 indices[cnt]=15;cnt+=1 End If 'top side If sides[4] indices[cnt]=16;cnt+=1 indices[cnt]=17;cnt+=1 indices[cnt]=18;cnt+=1 indices[cnt]=16;cnt+=1 indices[cnt]=18;cnt+=1 indices[cnt]=19;cnt+=1 End If 'bottom side If sides[5] indices[cnt]=20;cnt+=1 indices[cnt]=21;cnt+=1 indices[cnt]=22;cnt+=1 indices[cnt]=20;cnt+=1 indices[cnt]=22;cnt+=1 indices[cnt]=23;cnt+=1 End If Return New Mesh( vertices,indices ) End Method Method controls() If Keyboard.KeyDown(Key.W) Then _camera.Move(0,0,.5) If Keyboard.KeyDown(Key.S) Then _camera.Move(0,0,-.5) If Keyboard.KeyDown(Key.A) Then _camera.Move(-.5,0,0) If Keyboard.KeyDown(Key.D) Then _camera.Move(.5,0,0) If Keyboard.KeyDown(Key.Up) Then _camera.Rotate(1,0,0) If Keyboard.KeyDown(Key.Down) Then _camera.Rotate(-1,0,0) If Keyboard.KeyDown(Key.Left) Then _camera.Rotate(0,1,0) If Keyboard.KeyDown(Key.Right) Then _camera.Rotate(0,-1,0) End Method Method RenderTexture() If Not _rectCanvas Then _rectCanvas=New Canvas( _rectImage ) Endif 'This should be orange with white text on 'But since I'm drawing something in the top left corner - 'I'm just getting that top left pixel on the entire rectangle _rectCanvas.Clear( Color.Blue ) _rectCanvas.Color = Color.White _rectCanvas.DrawText( "Hello World", Rnd(8,12), 8 ) _rectCanvas.Color = Color.Orange _rectCanvas.DrawRect( 50, 50 , 200 ,90) 'White in the top left _rectCanvas.Flush() End Method End Class Function Main() New AppInstance New MyWindow App.Run() End

[DruggedBunnyParticipant]

That code doesn’t seem to crash for me, though I did get a crash on the web demo once.

I notice you’re using an older version of mojo3d, though, as the current version of Scene.Render doesn’t take a camera parameter, so it might be worth upgrading to see if that resolves it.

[PakzParticipant]

I uploaded a new emscripten version yesterday evening I think after also getting a crash. Maybe that fixed it.

Yes, I am using the current itch.io version.

As for the new monkey version. I think I will need to learn how to update it from the github. Patreon asks for a creditcard so I can not get the 1.09 version that way.

Maybe I can manually download the mojo3d files and rebuild? Wil try that first.

[PakzParticipant]

Ok, I dowloaded a zip file from the monkey2 develop branch and unpacked it on my last monkey install. I rebuilt the desktop modules and the error has gone away.

[Mark SiblyKeymaster]

Yes, it’s crashing here if I set chunk sizes to 16, 128, 16 but it is also using about 2G memory which is the 32 bit limit and is likely to be causing problems (somehow). This shouldn’t be an issue on 64 bit windows really, although it will be on emscripten which is only 32 bit. You can check how much memory the app is using by starting task manager and watching the process memory usage growing.

Part of this is because the mojo3d vertex format is quite ‘heavyweight’ – 80 bytes per vertex. Something like minecraft really needs a very lightweight vertex format but you can’t do that in mojo3d yet. Also, Mesh really needs a Compact() method of some kind as meshes will currently be consuming about 2x what they need to be due to the internal stacks.

I’ll keep looking into this, but there is realistically likely to be some kind of 2G limit for monkey2 apps at the moment. It does also seem to be consuming more memory than I would have thought, which I’ll also look into.

Note that building meshes with the mesh=mesh+mesh2 will be very ineffecient. Each time you add a mesh, the old mesh must be copied, which ‘grows’ the output mesh, which gets incremental slower and slower etc. You’ll probably get much better performance if you build everything into an array first and just build the mesh once.

[Mark SiblyKeymaster]

Also, note that your code is creating *every* cube face here, even the hidden ones! The way you’ve done the sides[i] check effectively means that hidden sides will end up with ‘null’ indices (or possibly even incorrect indices) but the sides are actually still there and consuming memory and will even be ‘rendered’ by the gpu, although nothing willl be drawn because they are degenerate.

Here’s a version that skips sides properly and now works on my machine without crashing. Again, the more efficient way to do this would be to just writing the entire thing into one big array and create the mesh all at once, but this is an improvement!

Monkey

'sides (0-front,1=left,2=back,3=right,4=top,5=bottom) 'x,y,z is location in the chunk Method createcube:Mesh(x:Float=0,y:Float=0,z:Float=0,sides:Bool[]) 'create cube mesh ' Local vertices:=New Vertex3f[24],nv:=0 Local indices:=New UInt[36],ni:=0 'front If sides[0] vertices[nv+0].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[nv+1].position=New Vec3f( 1+x, 1+y,-1+z )'right front top vertices[nv+2].position=New Vec3f( 1+x,-1+y,-1+z )'right front bottom vertices[nv+3].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'back If sides[1] vertices[nv+0].position=New Vec3f( 1+x, 1+y, 1+z )'right back top vertices[nv+1].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[nv+2].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom vertices[nv+3].position=New Vec3f( 1+x,-1+y, 1+z )'right back bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'right If sides[2] vertices[nv+0].position=New Vec3f( 1+x, 1+y,-1+z )'right front top vertices[nv+1].position=New Vec3f( 1+x, 1+y, 1+z )'right back top vertices[nv+2].position=New Vec3f( 1+x,-1+y, 1+z )'right back bottom vertices[nv+3].position=New Vec3f( 1+x,-1+y,-1+z )'right front bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'left If sides[3] vertices[nv+0].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[nv+1].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[nv+2].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[nv+3].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'top If sides[4] vertices[nv+0].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[nv+1].position=New Vec3f( 1+x, 1+y, 1+z )'right back top vertices[nv+2].position=New Vec3f( 1+x, 1+y,-1+z )'right front top vertices[nv+3].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'bottom If sides[5] vertices[nv+0].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[nv+1].position=New Vec3f( 1+x,-1+y,-1+z )'right front bottom vertices[nv+2].position=New Vec3f( 1+x,-1+y, 1+z )'right back bottom vertices[nv+3].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif vertices=vertices.Slice( 0,nv ) indices=indices.Slice( 0,ni ) Return New Mesh( vertices,indices ) End Method

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

'sides (0-front,1=left,2=back,3=right,4=top,5=bottom) 'x,y,z is location in the chunk Method createcube:Mesh(x:Float=0,y:Float=0,z:Float=0,sides:Bool[]) 'create cube mesh ' Local vertices:=New Vertex3f[24],nv:=0 Local indices:=New UInt[36],ni:=0 'front If sides[0] vertices[nv+0].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[nv+1].position=New Vec3f(  1+x, 1+y,-1+z )'right front top vertices[nv+2].position=New Vec3f(  1+x,-1+y,-1+z )'right front bottom vertices[nv+3].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'back If sides[1] vertices[nv+0].position=New Vec3f(  1+x, 1+y, 1+z )'right back top vertices[nv+1].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[nv+2].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom vertices[nv+3].position=New Vec3f(  1+x,-1+y, 1+z )'right back bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'right If sides[2] vertices[nv+0].position=New Vec3f(  1+x, 1+y,-1+z )'right front top vertices[nv+1].position=New Vec3f(  1+x, 1+y, 1+z )'right back top vertices[nv+2].position=New Vec3f( 1+x,-1+y, 1+z )'right back bottom vertices[nv+3].position=New Vec3f( 1+x,-1+y,-1+z )'right front bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'left If sides[3] vertices[nv+0].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[nv+1].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[nv+2].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[nv+3].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif 'top If sides[4] vertices[nv+0].position=New Vec3f( -1+x, 1+y, 1+z )'left back top vertices[nv+1].position=New Vec3f(  1+x, 1+y, 1+z )'right back top vertices[nv+2].position=New Vec3f(  1+x, 1+y,-1+z )'right front top vertices[nv+3].position=New Vec3f( -1+x, 1+y,-1+z )'left front top vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif   'bottom If sides[5] vertices[nv+0].position=New Vec3f( -1+x,-1+y,-1+z )'left front bottom vertices[nv+1].position=New Vec3f(  1+x,-1+y,-1+z )'right front bottom vertices[nv+2].position=New Vec3f(  1+x,-1+y, 1+z )'right back bottom vertices[nv+3].position=New Vec3f( -1+x,-1+y, 1+z )'left back bottom vertices[nv+0].texCoord0 = New Vec2f(0,0) vertices[nv+1].texCoord0 = New Vec2f(1,0) vertices[nv+2].texCoord0 = New Vec2f(1,1) vertices[nv+3].texCoord0 = New Vec2f(0,1) indices[ni+0]=nv+0 indices[ni+1]=nv+1 indices[ni+2]=nv+2 indices[ni+3]=nv+0 indices[ni+4]=nv+2 indices[ni+5]=nv+3 nv+=4 ni+=6 Endif vertices=vertices.Slice( 0,nv ) indices=indices.Slice( 0,ni ) Return New Mesh( vertices,indices ) End Method

[Author]

Posts