[Mark SiblyKeymaster]

But you can still hear something? I’m stuck with crappy monitor HDMI audio (through a KVM!) and with 64 samples I can hear a noticeable ‘click’ here, which I don’t find particularly surprising as the sound is only playing for 1/11025*64, ie: ~6ms!

Not quite sure what everyone’s expecting here…

[Mark SiblyKeymaster]

…also works fine with 44100hz, even short sample data lengths such as 32.

I had assumed this was a macos openal bug, looks like I was wrong.

[Mark SiblyKeymaster]

Can you post a sample you are having problems with?

This is playing something that sounds a lot like a sine wave, which would suggest it’s not actually a playback problem:

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field _sounds:=New Sound[4] Field _soundid:=0 Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) Local n:=8192 Local s:=11025 '44100 Local p:=1 '.25 Local data:=New AudioData( n,AudioFormat.Mono8,s ) For Local i:=0 Until n data.Data[i]=Sin( i*p ) * 127+128 Next _sounds[0]=New Sound( data ) data=New AudioData( n,AudioFormat.Mono16,s ) For Local i:=0 Until n Cast<Short Ptr>(data.Data)[i]=Sin( i*p ) * 32767 Next _sounds[1]=New Sound( data ) data=New AudioData( n,AudioFormat.Stereo8,s ) For Local i:=0 Until n data.Data[i*2+0]=Sin( i*p ) * 127+128 data.Data[i*2+1]=Sin( i*p ) * 127+128 Next _sounds[2]=New Sound( data ) data=New AudioData( n,AudioFormat.Stereo16,s ) For Local i:=0 Until n Cast<Short Ptr>(data.Data)[i*2+0]=Sin( i*p ) * 32767 Cast<Short Ptr>(data.Data)[i*2+1]=Sin( i*p ) * 32767 Next _sounds[3]=New Sound( data ) End Method OnRender( canvas:Canvas ) Override If Keyboard.KeyHit( Key.Space ) _soundid=(_soundid+1)&3 _sounds[_soundid].Play() Endif App.RequestRender() canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 ) 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field _sounds:=New Sound[4] Field _soundid:=0   Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null )   Super.New( title,width,height,flags ) Local n:=8192 Local s:=11025 '44100 Local p:=1 '.25 Local data:=New AudioData( n,AudioFormat.Mono8,s ) For Local i:=0 Until n data.Data[i]=Sin( i*p ) * 127+128 Next _sounds[0]=New Sound( data ) data=New AudioData( n,AudioFormat.Mono16,s ) For Local i:=0 Until n Cast<Short Ptr>(data.Data)[i]=Sin( i*p ) * 32767 Next _sounds[1]=New Sound( data ) data=New AudioData( n,AudioFormat.Stereo8,s ) For Local i:=0 Until n data.Data[i*2+0]=Sin( i*p ) * 127+128 data.Data[i*2+1]=Sin( i*p ) * 127+128 Next _sounds[2]=New Sound( data ) data=New AudioData( n,AudioFormat.Stereo16,s ) For Local i:=0 Until n Cast<Short Ptr>(data.Data)[i*2+0]=Sin( i*p ) * 32767 Cast<Short Ptr>(data.Data)[i*2+1]=Sin( i*p ) * 32767 Next _sounds[3]=New Sound( data ) End   Method OnRender( canvas:Canvas ) Override If Keyboard.KeyHit( Key.Space ) _soundid=(_soundid+1)&3 _sounds[_soundid].Play() Endif App.RequestRender() canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 ) End End   Function Main()   New AppInstance New MyWindow App.Run() End

[Mark SiblyKeymaster]

Thank you!

[Mark SiblyKeymaster]

Yes, camera’ll eventually support orthographic, and hopefully stero one day!

This is the nice thing about the 4×4 projection matrix – it supports both perspective and orthographic projections so the project/unproject code wont have to change.

[Mark SiblyKeymaster]

This has been fixed in more recent versions of monkey2. There’s a new binary build on its way – this week sometime for sure!

[Mark SiblyKeymaster]

Ok, I think these camera methods are basically what you’re after? Adding to repos soon…

Monkey

#rem monkeydoc Converts a point from world coordinates to viewport coordinates. #end Method ProjectToViewport:Vec2f( worldVertex:Vec3f ) Local clip_coords:=ProjectionMatrix * InverseMatrix * New Vec4f( worldVertex,1.0 ) Local ndc_coords:=clip_coords.XY/clip_coords.w Local vp_coords:=Cast<Vec2f>( Viewport.Size ) * (ndc_coords * 0.5 + 0.5) Return vp_coords End #rem monkeydoc Converts a point from viewport coordinates to world coordinates. #end Method UnprojectFromViewport:Vec3f( viewportCoords:Vec2f ) Local vp_coords:=viewportCoords / Cast<Vec2f>( Viewport.Size ) * 2.0 - 1.0 Local clip_coords:=New Mat4f( Matrix ) * -ProjectionMatrix * New Vec4f( vp_coords,-1.0,1.0 ) Local world_coords:=clip_coords.XYZ/clip_coords.w Return world_coords 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

#rem monkeydoc Converts a point from world coordinates to viewport coordinates. #end Method ProjectToViewport:Vec2f( worldVertex:Vec3f )   Local clip_coords:=ProjectionMatrix * InverseMatrix * New Vec4f( worldVertex,1.0 ) Local ndc_coords:=clip_coords.XY/clip_coords.w Local vp_coords:=Cast<Vec2f>( Viewport.Size ) * (ndc_coords * 0.5 + 0.5) Return vp_coords End #rem monkeydoc Converts a point from viewport coordinates to world coordinates. #end Method UnprojectFromViewport:Vec3f( viewportCoords:Vec2f ) Local vp_coords:=viewportCoords / Cast<Vec2f>( Viewport.Size ) * 2.0 - 1.0 Local clip_coords:=New Mat4f( Matrix ) * -ProjectionMatrix * New Vec4f( vp_coords,-1.0,1.0 ) Local world_coords:=clip_coords.XYZ/clip_coords.w Return world_coords End

You can added these as extensoin methods if you want, or butcher them for your own evil purposes.

[Mark SiblyKeymaster]

Turns out I forgot ;${PATH} at the very end!

Aha!

[Mark SiblyKeymaster]

Is your bin/env_windows.txt file correct, or have you set system PATH to mingw binaries?

Can you dump bin/env_windows.txt file here, along with full path to devtools.

[Mark SiblyKeymaster]

The MSVC version still needs g++ to generate dependancies, so you’ll need this in devtools too.

[Mark SiblyKeymaster]

Dividing a 3d point by it’s ‘z’ component will give you a 2d point at z=1.

[Mark SiblyKeymaster]

You’re right, the latest version of the NDK (v15.2.4203891) breaks the sqlite module.

A fix for this has just been pushed to the develop branch, plus I updated to the latest version of sqlite.

[Mark SiblyKeymaster]

Woah, had to dig deep to find that one, but once I did the fix was surprisingly simple and halved the length of the light vertex shader in the process.

Fix push to develop branch, but you should really only need to update this file:

https://github.com/blitz-research/monkey2/blob/develop/modules/mojo/graphics/shaders/light.glsl

[Mark SiblyKeymaster]

And just to confuse things a bit more, here’s another approach!

This is a bit of a compromise in that it doesn’t store entities in components, but stores a single entity per gameobject (which is effectively its ‘transform’ too) that you can access directly. This means a gameobject can’t have both a camera and a light component – it must have one or the other. You can think of a gameobject’s entity as a sort of special case component.

It doesn’t bother managing a hierarchy – gameobjects are just stored in a linear stack. You can of course parent gameobject entities to each other though, much like Transform above.

Again, the implementation of components here isn’t really important, I’m more trying to think out how mojo3d can be interfaced with.

Monkey

Class GameObject Method New( entity:Entity ) _entity=entity _entity.SetDynamicProperty( "gameObject",Self ) _gameObjects.Add( Self ) End Property Entity:Entity() Return _entity End 'for lazy people like me.... Property Camera:Camera() Return Cast<Camera>( _entity ) End Property Light:Light() Return Cast<Light>( _entity ) End Property Model:Model() Return Cast<Model>( _entity ) End Method Destroy() For Local component:=Eachin Components component.OnDestroy() Next _gameObjects.Remove( Self ) _entity.Destroy() _components=Null _entity=Null End 'helpers... Function CreatePivot:GameObject() Return New GameObject( New Entity ) End Function CreateLight:GameObject() Return New GameObject( New Light ) End Function CreateCamera:GameObject() Return New GameObject( New Camera ) End Function CreateModel:GameObject() Return New GameObject( New Model ) End Function UpdateAll() For Local gameObject:=Eachin _gameObjects Local modified:=_seq<>_entity.Seq _seq=_entity.Seq For Local component:=Eachin gameObject.Components component.OnUpdate( modified ) Next Next End Internal Property Components:StringMap<Object>() Return _components End Private Global _gameObjects:=New Stack<GameObject> Field _components:=New StringMap<Object> Field _entity:Entity Field _seq:Int End Class Component Method New( gameObject:GameObject,type:String ) _gameObject=gameObject _type=type _gameObject.Components[_type]=Self End Property GameObject:GameObject() Return _gameObject End Property Type:String() Return _type End Protected Method OnUpdate( modified:Bool ) Virtual End Method OnDestroy() Virtual End Private Field _gameObject:GameObject Field _type:String 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

Class GameObject   Method New( entity:Entity ) _entity=entity _entity.SetDynamicProperty( "gameObject",Self ) _gameObjects.Add( Self ) End Property Entity:Entity() Return _entity End   'for lazy people like me.... Property Camera:Camera() Return Cast<Camera>( _entity ) End Property Light:Light() Return Cast<Light>( _entity ) End   Property Model:Model() Return Cast<Model>( _entity ) End Method Destroy()   For Local component:=Eachin Components component.OnDestroy() Next _gameObjects.Remove( Self ) _entity.Destroy() _components=Null _entity=Null End 'helpers... Function CreatePivot:GameObject() Return New GameObject( New Entity ) End Function CreateLight:GameObject() Return New GameObject( New Light ) End Function CreateCamera:GameObject()   Return New GameObject( New Camera ) End Function CreateModel:GameObject() Return New GameObject( New Model ) End Function UpdateAll() For Local gameObject:=Eachin _gameObjects Local modified:=_seq<>_entity.Seq _seq=_entity.Seq For Local component:=Eachin gameObject.Components component.OnUpdate( modified ) Next Next End Internal Property Components:StringMap<Object>() Return _components End Private Global _gameObjects:=New Stack<GameObject> Field _components:=New StringMap<Object> Field _entity:Entity Field _seq:Int End   Class Component   Method New( gameObject:GameObject,type:String ) _gameObject=gameObject _type=type _gameObject.Components[_type]=Self End Property GameObject:GameObject() Return _gameObject End Property Type:String() Return _type End Protected Method OnUpdate( modified:Bool ) Virtual End Method OnDestroy() Virtual End Private Field _gameObject:GameObject Field _type:String End

[Mark SiblyKeymaster]

One thing I dislike here – using component string name. In my code above I achived this by Typeof().Name, because you can take a mistake in string but not in type name.

I didn’t put much thought into how the actual component system should work, and that ‘s sort of the point – having ‘clean’ GameObject and Component classes means you can do whatever you want, however you want.

But doesn’t the GameObject approach mean you have to wrap all the functionality in the Entity subclasses?

Yes it does, and it’s up to you to decide if that’s an acceptable amount of work. But it *does* give you 100% control over access to entities, so you can fire off callbacks and invoke signals etc whenever you want etc. You can also mess with parameters, or even prevent properties being modified or methods being called at all. It’s a form of Proxy object I guess, and is really the only way I can think of to gain 100% control over an object.

A ‘halfway’ solution to this would be to add Entity:Camera, Entity:Light, Entity:Model properties to components to return underlying entities, so people could access component entities directly. This would save you writing all the ‘wrapper’ properties/methods, but again, you lose a degree  of control over things this way, as you have NO IDEA how the entity could potential be modified. But its really up to you how big a deal that is. The above is just an example of IMO a 100% safe/clean approach.

[Author]

Posts