[DruggedBunnyParticipant]

Ahh, cool… thanks, Mark.

[DruggedBunnyParticipant]

Weird, I get an invalid image error on chalky.png here, using latest itch.io release.

[DruggedBunnyParticipant]

Yeah, take your time, we’ll still be here!

[DruggedBunnyParticipant]

Yeah, I did read that, so will just wait, was just amusing myself anyway… at least it sounds like I was using it properly!

[DruggedBunnyParticipant]

Nah, I’ve tried that:

Monkey

#Import "<reflection>" #Import "<std>" Using std.. Function Main () Print TypeInfo.GetType ("std.graphics.Color") ' Nope! End

1 2 3 4 5 6 7 8 9 10 11

#Import "<reflection>" #Import "<std>" Using std.. Function Main () Print TypeInfo.GetType ("std.graphics.Color") ' Nope! End

This results in “Caught signal:Memory access violation”.

[DruggedBunnyParticipant]

Don’t get that here on 7!

[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 ()

[DruggedBunnyParticipant]

Not sure if mx2 checks Windows version (yet?).

Do mx2 executables fail on XP? Any error messages?

Does a simple non-mojo app work, compiled in console mode, like this?

Monkey

[crayon-5cba8e66e0853880663186 inline="true" ]Function Main () Print "Hello" End

1 2 3

[crayon-5cba8e66e0853880663186 inline="true" ]Function Main ()     Print "Hello" End

[/crayon]

A quick scan of /modules and /src turns up no obvious OS version checks, but it’s possible angle or sdl might do this. Wouldn’t imagine the backend C++ compiler prevents XP by default, though not sure if mx2 forces something in the build options…

[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

[DruggedBunnyParticipant]

it’s what mojo3d and all cpus and fpus and the standard C libs and a ton of equations and algorithms and 3rd party libs and 99% of programing languages and apis etc etc etc use – suck it up!

Yeah, but apart from that… (Ha ha/ouchie.)

Is a set of degree variants do-able for people who aren’t actually CPUs/GPUs/math libraries?

Can be worked around if not, obviously…

[DruggedBunnyParticipant]

Just  realised my two ‘asides’ got missed!

1. Not sure if I should be checking for keypresses during OnRender, as that seems wrong going by mx1;
2. Should RequestRender be at the start of OnRender, or at the end? Does it matter?

EDIT: Interestingly, VPN wasn’t blocked this time, just realised on hitting Submit that I hadn’t disabled it. Must be particular IPs that are blocked.

[DruggedBunnyParticipant]

Gah! That’ll teach me to copy/paste — I used http://wasted.nz/codearcs.php?code=510 !

What’s the main reason for using radians instead of degrees now? I’m vaguely aware it has, er, beneficial properties… mathematically… but is pretty darn impossible to visualise a simple ‘turn by x amount’ from my end, whereas 0-360 is just like a compass. People talk about turning 45 degrees, 90 degrees, etc, in the real world.

Not a major deal, I suppose, but it seems awkward and inefficient to have to call a function to get what I’m after. I wonder if the C++ compiler optimises the call away? I suppose the conversion has to happen somewhere if the GPU or 3D API is after radians…

I use PIA for my VPN service (one of the biggest providers out there) and I haven’t run into this anywhere else — assume it’s built into the board software, though. Admittedly, I don’t really post much in general, but it’s a bit of a PITA to have to disable it just to post here — just realised I need to do that now!

Thanks all!

[DruggedBunnyParticipant]

Aside #3, OT!

Is it intentional that the forums don’t allow posting via a VPN? It either silently fails, or (as I’ve seen once) gives a message saying “Forbidden. Sender blacklisted”, with a “request number”…

I can only post here if I specifically disable my VPN

[DruggedBunnyParticipant]

You should destroy it before making it appear somwhere else

…

Disable collision, place body at new position, enable collision, seems like a better idea

Whatever works best with Bullet, I’m sure it could be wrapped in a nice “Entity.Warp”-type command that takes care of the ugly details of manually repositioning an entity within the physics system!

Pretty sure that Newton allowed manual repositioning of physics objects, so ought to be do-able one way or another…

[DruggedBunnyParticipant]

Weird, same here! PBR demo runs at 1% CPU while showing, but 5-7% when minimised. Back to 1% when showing again.

[Author]

Posts