Request – Mojo3d – Addtriangle example

[PakzParticipant]

I have been trying but failing into understanding on how to create a simple triangle. I want to start building things with meshes( I think that is what i need)

With blitz3d there was an example where it showed how to make a ramp. I was always able to go back to that to study how to make walls ect myself.

Would anyone who understands this already place some barebones code on how to make a wall or triangle?

[Mark SiblyKeymaster]

Just added this to tests!

The easiest way to go is to create an array of vertices and an array of indices and just use New Mesh( vertices,triangles ).

Also, have a look at the source code for Mesh.CreateBox, Mesh.CreateSphere etc in modules/mojo3d/graphics/meshprims.monkey2

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 Method New() 'get scene ' _scene=Scene.GetCurrent() 'create camera ' _camera=New Camera _camera.Near=.1 _camera.Far=100 _camera.Move( 0,0,-5 ) 'create light ' _light=New Light _light.RotateX( Pi/2 ) 'aim directional light downwards - Pi/2=90 degrees. '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 ) 'create model for the mesh ' _model=New Model _model.Mesh=mesh _model.Material=New PbrMaterial( Color.Red ) _model.Material.CullMode=CullMode.None End Method OnRender( canvas:Canvas ) Override RequestRender() _model.RotateY( .1 ) _scene.Render( canvas,_camera ) canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 ) End End 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

#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 Method New() 'get scene ' _scene=Scene.GetCurrent()   'create camera ' _camera=New Camera _camera.Near=.1 _camera.Far=100 _camera.Move( 0,0,-5 ) 'create light ' _light=New Light _light.RotateX( Pi/2 ) 'aim directional light downwards - Pi/2=90 degrees. '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 ) 'create model for the mesh ' _model=New Model _model.Mesh=mesh _model.Material=New PbrMaterial( Color.Red ) _model.Material.CullMode=CullMode.None   End Method OnRender( canvas:Canvas ) Override   RequestRender() _model.RotateY( .1 ) _scene.Render( canvas,_camera )   canvas.DrawText( "Width="+Width+", Height="+Height+", FPS="+App.FPS,0,0 ) End End   Function Main() New AppInstance New MyWindow App.Run() End

[Author]

Posts