Very basic mojo3d application/template

[DruggedBunnyParticipant]

[Updated]

Minimal mojo3d example. Just shows minimal setup needed, with an example cube and basic camera movement — use cursors plus A & Z.

Monkey

#Import "<std>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. ' ---------------------------------------- ' Application name... ' ---------------------------------------- Global AppName:String = "My 3D Game" Class Game Extends Window ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light ' Test cube... Field cube:Model Field cubemesh:Mesh Field cubematerial:Material Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () ' Important! camera = New Camera ' Camera settings... camera.Near = 0.1 ' Camera position... camera.Move (0, 0, -2) camera.Rotate (0, 0, 0) light = New Light light.Move (-10, 10, -10) light.Rotate (0, 0, 0) cubemesh = Mesh.CreateBox (New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5)) ' 1 x 1 x 1 cubematerial = New PbrMaterial (Color.Aluminum) cube = New Model (cubemesh, cubematerial) cube.Rotate (0, 45, 0) End Method OnRender (canvas:Canvas) Override If Keyboard.KeyHit (Key.Escape) Then App.Terminate () If Keyboard.KeyDown (Key.A) camera.Move (0.0, 0.0, 0.1) Endif If Keyboard.KeyDown (Key.Z) camera.Move (0.0, 0.0, -0.1) Endif If Keyboard.KeyDown (Key.Left) camera.Rotate (0.0, 1.0, 0.0) Endif If Keyboard.KeyDown (Key.Right) camera.Rotate (0.0, -1.0, 0.0) Endif If Keyboard.KeyDown (Key.Up) camera.Rotate (1.0, 0.0, 0.0) Endif If Keyboard.KeyDown (Key.Down) camera.Rotate (-1.0, 0.0, 0.0) Endif cube.Rotate (0.0, 1.0, 0.0) ' Render scene to canvas (passed to OnRender by mojo), from camera... scene.Render (canvas, camera) ' Tell app to draw frame when ready... RequestRender () End End Function Main () ' Windowed mode... Local width:Int = 640 Local height:Int = 480 Local flags:WindowFlags = WindowFlags.Center ' Full-screen mode (comment out above)... ' Local width:Int = 1920 ' Local height:Int = 1080 ' Local flags:WindowFlags = WindowFlags.Fullscreen New AppInstance New Game (AppName, width, height, flags) 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

#Import "<std>" #Import "<mojo3d>"   Using std.. Using mojo.. Using mojo3d..   ' ---------------------------------------- ' Application name... ' ----------------------------------------   Global AppName:String = "My 3D Game"   Class Game Extends Window ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light   ' Test cube... Field cube:Model Field cubemesh:Mesh Field cubematerial:Material Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () ' Important! camera = New Camera   ' Camera settings... camera.Near = 0.1 ' Camera position... camera.Move (0, 0, -2) camera.Rotate (0, 0, 0) light = New Light light.Move (-10, 10, -10) light.Rotate (0, 0, 0) cubemesh = Mesh.CreateBox (New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5)) ' 1 x 1 x 1 cubematerial = New PbrMaterial (Color.Aluminum)   cube = New Model (cubemesh, cubematerial) cube.Rotate (0, 45, 0) End Method OnRender (canvas:Canvas) Override   If Keyboard.KeyHit (Key.Escape) Then App.Terminate () If Keyboard.KeyDown (Key.A) camera.Move (0.0, 0.0, 0.1) Endif   If Keyboard.KeyDown (Key.Z) camera.Move (0.0, 0.0, -0.1) Endif   If Keyboard.KeyDown (Key.Left) camera.Rotate (0.0, 1.0, 0.0) Endif   If Keyboard.KeyDown (Key.Right) camera.Rotate (0.0, -1.0, 0.0) Endif   If Keyboard.KeyDown (Key.Up) camera.Rotate (1.0, 0.0, 0.0) Endif   If Keyboard.KeyDown (Key.Down) camera.Rotate (-1.0, 0.0, 0.0) Endif   cube.Rotate (0.0, 1.0, 0.0) ' Render scene to canvas (passed to OnRender by mojo), from camera... scene.Render (canvas, camera)   ' Tell app to draw frame when ready... RequestRender () End End   Function Main ()   ' Windowed mode... Local width:Int = 640 Local height:Int = 480 Local flags:WindowFlags = WindowFlags.Center ' Full-screen mode (comment out above)... ' Local width:Int = 1920 ' Local height:Int = 1080 ' Local flags:WindowFlags = WindowFlags.Fullscreen New AppInstance New Game (AppName, width, height, flags) App.Run () End

I think you definitely need to have your own template for mojo3d, as the app setup is a LOT more complicated than Blitz3D. (Which was, er, Graphics3D 640, 480!)

However, once set up, it should be just as easy to use for simple messing about.

[DruggedBunnyParticipant]

… and a stripped-down version without the demo cube or camera controls. Shows nothing, just ready for you to take over! [Updated]

Monkey

#Import "<std>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. ' ---------------------------------------- ' Application name... ' ---------------------------------------- Global AppName:String = "My 3D Game" Class Game Extends Window ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () ' Important! camera = New Camera light = New Light End Method OnRender (canvas:Canvas) Override scene.Render (canvas, camera) RequestRender () End End Function Main () ' Windowed mode... Local width:Int = 640 Local height:Int = 480 Local flags:WindowFlags = WindowFlags.Center New AppInstance New Game (AppName, width, height, flags) 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

#Import "<std>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. ' ---------------------------------------- ' Application name... ' ---------------------------------------- Global AppName:String = "My 3D Game" Class Game Extends Window ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () ' Important! camera = New Camera light = New Light End Method OnRender (canvas:Canvas) Override scene.Render (canvas, camera) RequestRender () End End Function Main () ' Windowed mode... Local width:Int = 640 Local height:Int = 480 Local flags:WindowFlags = WindowFlags.Center New AppInstance New Game (AppName, width, height, flags) App.Run () End

[degacParticipant]

At this point I will add (if and when I have time!) some Blitz3d equivalent ‘command’ like

EntityPosition entity,x,y,z
EntityRotate entity,x,y,z

where (at least for Rotate) x,y,z are internally converted using Degrees(x)

ps: never touched at the moment, I dont’ know if ‘entity’ can be any thing (like Light, Camera, Mesh etc)

[DruggedBunnyParticipant]

Been having a bit of fun with this. Add/remove 100 cubes at a time via plus and minus keys:

Monkey

#Import "<std>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. ' ---------------------------------------- ' Application name... ' ---------------------------------------- Global AppName:String = "My 3D Game" ' ---------------------------------------- Function CreateEasyBox:Model (color:Color = Color.Aluminum) Local box:Model Local boxmesh:Mesh Local boxmaterial:Material boxmesh = Mesh.CreateBox (New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5)) boxmaterial = New PbrMaterial (color) box = New Model (boxmesh, boxmaterial) Return box End Function AddBoxes (stack:Stack <Model>, number:Int) For Local loop:Int = 1 To number Local box:Model = CreateEasyBox (New Color (Rnd (0.4, 1.0), Rnd (0.4, 1.0), Rnd (0.4, 1.0))) box.Move (Rnd (-100, 100), Rnd (-100, 100), Rnd (-100, 100)) box.SetScale (Rnd (1, 10), Rnd (1, 10), Rnd (1, 10)) stack.Push (box) Next End Function RemoveBoxes (stack:Stack <Model>, number:Int) number = Min (stack.Length, number) For Local loop:Int = 1 To number stack.Pop ().Destroy () Next End Class Game Extends Window ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light Field boxes:Stack<Model> Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () camera = New Camera light = New Light light.Move (-50, 50, 0) light.Rotate (0, 90, 0) light.ShadowsEnabled = False boxes = New Stack<Model> End Method ProcessInput:Void () ' If Keyboard.KeyHit (Key.Space) Then light.ShadowsEnabled = Not light.ShadowsEnabled If Keyboard.KeyHit (Key.Escape) Then App.Terminate () If Keyboard.KeyDown (Key.A) camera.Move (0.0, 0.0, 0.5) End If Keyboard.KeyDown (Key.Z) camera.Move (0.0, 0.0, -0.5) End If Keyboard.KeyDown (Key.Left) camera.Rotate (0.0, 1.0, 0.0, True) End If Keyboard.KeyDown (Key.Right) camera.Rotate (0.0, -1.0, 0.0, true) End If Keyboard.KeyDown (Key.Up) camera.Rotate (1.0, 0.0, 0.0, True) End If Keyboard.KeyDown (Key.Down) camera.Rotate (-1.0, 0.0, 0.0, True) End If Keyboard.KeyHit (Key.Equals) Or Keyboard.KeyHit (Key.KeypadPlus) AddBoxes (boxes, 100) Endif If Keyboard.KeyHit (Key.Minus) Or Keyboard.KeyHit (Key.KeypadMinus) RemoveBoxes (boxes, 100) Endif End Method OnRender (canvas:Canvas) Override ProcessInput () For Local box:Model = Eachin boxes box.Rotate (1.0, 2.0, 4.0) Next scene.Render (canvas, camera) canvas.DrawText ("Cursors plus A/Z to move", 20, 20) canvas.DrawText ("Use - and + to add/remove 100 boxes (currently " + boxes.Length + ")", 20, 60) RequestRender () End End Function Main () ' Windowed mode... Local width:Int = 1920 Local height:Int = 1080 Local flags:WindowFlags = WindowFlags.Fullscreen New AppInstance New Game (AppName, width, height, flags) 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

#Import "<std>" #Import "<mojo3d>"   Using std.. Using mojo.. Using mojo3d..   ' ---------------------------------------- ' Application name... ' ----------------------------------------   Global AppName:String = "My 3D Game"   ' ----------------------------------------   Function CreateEasyBox:Model (color:Color = Color.Aluminum)   Local box:Model Local boxmesh:Mesh Local boxmaterial:Material   boxmesh = Mesh.CreateBox (New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5)) boxmaterial = New PbrMaterial (color) box = New Model (boxmesh, boxmaterial)   Return box End   Function AddBoxes (stack:Stack <Model>, number:Int)   For Local loop:Int = 1 To number Local box:Model = CreateEasyBox (New Color (Rnd (0.4, 1.0), Rnd (0.4, 1.0), Rnd (0.4, 1.0)))   box.Move (Rnd (-100, 100), Rnd (-100, 100), Rnd (-100, 100)) box.SetScale (Rnd (1, 10), Rnd (1, 10), Rnd (1, 10)) stack.Push (box) Next   End   Function RemoveBoxes (stack:Stack <Model>, number:Int) number = Min (stack.Length, number)   For Local loop:Int = 1 To number stack.Pop ().Destroy () Next End   Class Game Extends Window ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light   Field boxes:Stack<Model> Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent ()   camera = New Camera   light = New Light   light.Move (-50, 50, 0) light.Rotate (0, 90, 0)   light.ShadowsEnabled = False boxes = New Stack<Model> End Method ProcessInput:Void ()   ' If Keyboard.KeyHit (Key.Space) Then light.ShadowsEnabled = Not light.ShadowsEnabled If Keyboard.KeyHit (Key.Escape) Then App.Terminate ()   If Keyboard.KeyDown (Key.A) camera.Move (0.0, 0.0, 0.5) End   If Keyboard.KeyDown (Key.Z) camera.Move (0.0, 0.0, -0.5) End   If Keyboard.KeyDown (Key.Left) camera.Rotate (0.0, 1.0, 0.0, True) End If Keyboard.KeyDown (Key.Right) camera.Rotate (0.0, -1.0, 0.0, true) End   If Keyboard.KeyDown (Key.Up) camera.Rotate (1.0, 0.0, 0.0, True) End If Keyboard.KeyDown (Key.Down) camera.Rotate (-1.0, 0.0, 0.0, True) End If Keyboard.KeyHit (Key.Equals) Or Keyboard.KeyHit (Key.KeypadPlus) AddBoxes (boxes, 100) Endif   If Keyboard.KeyHit (Key.Minus) Or Keyboard.KeyHit (Key.KeypadMinus) RemoveBoxes (boxes, 100) Endif End Method OnRender (canvas:Canvas) Override   ProcessInput () For Local box:Model = Eachin boxes box.Rotate (1.0, 2.0, 4.0) Next scene.Render (canvas, camera) canvas.DrawText ("Cursors plus A/Z to move", 20, 20) canvas.DrawText ("Use - and + to add/remove 100 boxes (currently " + boxes.Length + ")", 20, 60) RequestRender () End End   Function Main ()   ' Windowed mode... Local width:Int = 1920 Local height:Int = 1080 Local flags:WindowFlags = WindowFlags.Fullscreen New AppInstance New Game (AppName, width, height, flags) App.Run () End

I notice that it gets slow very quickly (like, around 1,000 cubes), but I think it’s at least partly because mojo3d isn’t doing visibility culling yet — a 10,000-cube demo in Blitz3D runs very well when the camera is in the middle of the cube ‘cloud’, but slows down as you back out to view more, while similar numbers cripple mojo3d at the moment, regardless of how many are in view!

Here it is online via Emscripten — works for me in Firefox and Opera; Vivaldi didn’t like it and I don’t have any other up-to-date browsers installed!

http://www.hi-toro.com/temp/mx2/Incube.html

Click within the canvas and hit + to get started!

Oh, and I LOVE that this worked for removing cubes from the stack and the scene!

Monkey

stack.Pop ().Destroy ()

1	stack.Pop ().Destroy ()

[Author]

Posts