Native interface questions.

[Simon ArmstrongParticipant]

Hi Mark,

Some questions about module development.

What are the best ways to do following:

1. Returning const char * to monkey2
2. Add a -Ddefine to compiler flags when building a module’s .c and .cpp
3. What is state of audio modules?

For the first I am using the extern struct constcstring=”const char” as you do in gles20 and for the second I am hacking #define into appropriate header so they build properly.

I am also interested if you have any immediate plans to add to the module space and state of audio. Does openal mean sdl2 mixer should be deprecated. Does emscriptem have audio and how? Can monkey2 call webgl / webaudio/ webmidi directly for web? Am looking forward to exploring this area.

S

[Mark SiblyKeymaster]

Returning const char * to monkey2

This side of things is still a bit nasty, but for now I’d suggest make the function return a pointer to one of the char types in libc, eg: libc.char_t Ptr, libc.unsigned_char_t Ptr or libc.signed_char Ptr (I will probably also add const_char_t, const_signed_char_t etc).

Then use String.FromCString() or String.FromUtf8String() to convert the pointer to an mx2 string.

Add a -Ddefine to compiler flags when building a module’s .c and .cpp

You can’t yet, although you can hack the env_blah.txt file to force the define everywhere. I want to come up with a better way to achieve this rather than abusing #import ala bmx, but until then…

I am hacking #define into appropriate header so they build properly.

…is probably your best bet and what I actually what I’ve done for several modules.

What is state of audio modules?

Pretty good IMO!

Does openal mean sdl2 mixer should be deprecated.

I wont be using it myself for mojo.audio, but I don’t see why it can’t be left in there for others to use. Note also that AppInstance no longer inits SDL_AUDIO, but I probably don’t have to do this.

Does emscriptem have audio and how?

It has openal ‘built-in’. No fibers though, so no WaitQueued(). NumQueued can probably happen so you should eventually be able to poll.

Can monkey2 call webgl / webaudio/ webmidi directly for web?

Don’t see why not. #Import js might be useful here? Not in right now though.

[Simon ArmstrongParticipant]

Thanks!

Yes, I imagine importing js will be very useful when I poke my nose in.

I think maybe emscripten is ok name for target but seems a bit cryptic for lay person. In monkey2 is there a way for #if testing between cpp and js or maybe native and web environments?

[Simon ArmstrongParticipant]

OK, vsynth is running well on OpenAL,

To make use of new? std.audio stuff just been playing with skidmarks engine sample oscillator. Very happy it was so easy and bug free? and I may have missed a helper method…

 

Monkey

Class Sampler Extends Oscillator Field a:V Field audioData:AudioData Field bytespersample:Int Field pitch:F Method New() Load("asset::engine1.wav") Print "sampler loaded:"+audioData.Length+"@"+audioData.Hertz+" format="+Int(audioData.Format) bytespersample=BytesPerSample(audioData.Format) pitch=440.0 End Method Load(uri:String) audioData=AudioData.Load(uri) End Method Sample:V(hz:F) Override Local t:=hz*audioData.Hertz/(pitch*AudioFrequency) Local delta0:=delta delta+=t Local f:=delta f=f Mod (audioData.Length/bytespersample) Local i:Int=f Local udata:=audioData.Data Local sdata:=Cast<Byte Ptr>(udata) Select audioData.Format Case AudioFormat.Mono8 Return (udata[i]-128)/127.0 Case AudioFormat.Mono16 Return (sdata[i*2+1]*256+sdata[i*2+0])/32767.0 Case AudioFormat.Stereo8 Return (udata[i*2+0]-128)/127.0 Case AudioFormat.Stereo16 Return (sdata[i*4+1]*256+sdata[i*4+0])/32767.0 End Return 0 End 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

Class Sampler Extends Oscillator Field a:V Field audioData:AudioData Field bytespersample:Int Field pitch:F Method New() Load("asset::engine1.wav") Print "sampler loaded:"+audioData.Length+"@"+audioData.Hertz+" format="+Int(audioData.Format) bytespersample=BytesPerSample(audioData.Format) pitch=440.0 End Method Load(uri:String) audioData=AudioData.Load(uri) End   Method Sample:V(hz:F) Override Local t:=hz*audioData.Hertz/(pitch*AudioFrequency) Local delta0:=delta delta+=t Local f:=delta f=f Mod (audioData.Length/bytespersample) Local i:Int=f Local udata:=audioData.Data Local sdata:=Cast<Byte Ptr>(udata) Select audioData.Format Case AudioFormat.Mono8 Return (udata[i]-128)/127.0 Case AudioFormat.Mono16 Return (sdata[i*2+1]*256+sdata[i*2+0])/32767.0 Case AudioFormat.Stereo8 Return (udata[i*2+0]-128)/127.0 Case AudioFormat.Stereo16 Return (sdata[i*4+1]*256+sdata[i*4+0])/32767.0 End Return 0 End end

[Author]

Posts