SuperStrict

Framework Vertex.OpenAL
Import BRL.StandardIO

Global Device  : Byte Ptr, ..
       Context : Byte Ptr


Device = alcOpenDevice(Null)
Context = alcCreateContext(Device, Null)
alcMakeContextCurrent(Context)

Print(String.FromCString(alGetString(AL_VENDOR)))
Print(String.FromCString(alGetString(AL_RENDERER)))

alcDestroyContext(Context)
alcCloseDevice(Device)
End

SuperStrict

Framework Vertex.OpenAL
Import Pub.OggVorbis
Import BRL.FileSystem
Import BRL.PolledInput

Const SEEK_SET : Int = 0
Const SEEK_CUR : Int = 1
Const SEEK_END : Int = 2

Global Stream    : TStream, ..
       Samples   : Int, ..
       Channels  : Int, ..
       Frequence : Int, ..
       OggFile   : Byte Ptr, ..
       Size      : Int, ..
       OggBuffer : Byte Ptr, ..
       Format    : Int

Global Device  : Byte Ptr, ..
       Context : Byte Ptr, ..
       Buffer  : Int, ..
       Source  : Int, ..
       State   : Int


Stream = ReadStream("Test.ogg")
If Not Stream Then Throw("Unable to load file")

OggFile = Decode_Ogg(Stream, VorbisRead, VorbisSeek, VorbisClose, VorbisTell, ..
                     Samples, Channels, Frequence)
If Not OggFile Then Throw("Unable to read file")

Size = Samples*2*Channels
OggBuffer = MemAlloc(Size)

Select Channels
   Case 1
      Format = AL_FORMAT_MONO16
   Case 2
      Format = AL_FORMAT_STEREO16
End Select

Device = alcOpenDevice(Null)
Context = alcCreateContext(Device, Null)
alcMakeContextCurrent(Context)

alGenBuffers(1, Varptr(Buffer))
Read_Ogg(OggFile, OggBuffer, Size)

alBufferData(Buffer, Format, OggBuffer, Size, Frequence)

alGenSources(1, Varptr(Source))
alSourcei(Source, AL_BUFFER, Buffer)

alSourcePlay(Source)
Repeat
   alGetSourcei(Source, AL_SOURCE_STATE, Varptr(State))
Until State <> AL_PLAYING

alcDestroyContext(Context)
alcCloseDevice(Device)
End

Function VorbisRead:Int(Buffer:Byte Ptr, ByteSize:Int, Count:Int, Stream:Object)
   Return TStream(Stream).Read(Buffer, ByteSize*Count)/ByteSize
End Function

Function VorbisSeek:Int(Stream:Object, Offset0:Int, Offset1:Int, Origin:Int)
   Local Success:Int

   Success = -1
   Select Origin
      Case SEEK_SET
         Success = TStream(Stream).Seek(Int(Offset0))
      
      Case SEEK_CUR
         Success = TStream(Stream).Seek(TStream(Stream).Pos() + Offset0)
      
      Case SEEK_END
         Success = TStream(Stream).Seek(TStream(Stream).Size() + Offset0)
   End Select

   If Success = -1 Then Return -1

   Return 0
End Function

Function VorbisClose:Int(Stream:Object)
   TStream(Stream).Close()
End Function

Function VorbisTell:Int(Stream:Object)
   Return TStream(Stream).Pos()
End Function

SuperStrict

Framework Vertex.OpenAL
Import "OggVorbis.bmx"

Global Device  : Byte Ptr, ..
       Context : Byte Ptr, ..
       Song    : TOggVorbis

Device = alcOpenDevice(Null)
Context = alcCreateContext(Device, Null)
alcMakeContextCurrent(Context)

Song = TOggVorbis.Load("The Dandy Warhols - Bohemian like you.ogg")
Song.Play()
While Song.State() = STATE_PLAYING
   Song.Decode()
   Delay(10)
Wend

alcMakeContextCurrent(Null)
alcDestroyContext(Context)
alcCloseDevice(Device)
End

TOggVorbis
 Method Play()
 Method SetVolume(Volume:Float)
  - from 0.0 till 1.0
 Method State:Int()
  - STATE_INITIAL
  - STATE_PLAYING
  - STATE_PAUSED
  - STATE_STOPPED
 Method Stop()
 Method Pause()
 Method Length:Long()
  - in milliseconds
 Method Seek(Milliseconds:Long)
 Method Position:Long()
  - decode position in milliseconds
 Method Decode()
 Function Load:TOggVorbis(URL:OBject)

Framework Vertex.OpenAL
Import "OggVorbis.bmx"

Global Device  : Byte Ptr, ..
       Context : Byte Ptr, ..
       Song    : TOggVorbis

Device = alcOpenDevice(Null)
Context = alcCreateContext(Device, Null)
alcMakeContextCurrent(Context)

Song = TOggVorbis.Load("test.ogg")

Local xposition:Float=2
Local yposition:Float=0
Local tposition:Float=0

Local xvelocity:Float=0
Local yvelocity:Float=0
Local zvelocity:Float=0

'//set source position
alSource3f(Song.Source,AL_POSITION, xposition, yposition, zposition)

'//set source velocity
alSource3f(Song.Source,AL_VELOCITY, xvelocity, yvelocity, zvelocity)


Local listenerx:Float=0
Local listenery:Float=0
Local listenerz:Float=0

Local vec:Float[6]

'listenerx=10.0f;
'listenery=0.0f;
'listenerz=5.0f;

vec[0] = 0'fvecx'; //forward vector x value
vec[1] = 0'fvecy'; //forward vector y value
vec[2] = 0'fvecz'; //forward vector z value
vec[3] = 0'uvecx'; //up vector x value
vec[4] = 0'uvecy'; //up vector y value
vec[5] = 0'uvecz'; //up vector z value

'//set current listener position
alListener3f(AL_POSITION, listenerx, listenery, listenerz)

'//set current listener orientation
alListenerfv(AL_ORIENTATION, vec)


Song.Play()
While Song.State() = STATE_PLAYING
   Song.Decode()
   Delay(10)
Wend

alcMakeContextCurrent(Null)
alcDestroyContext(Context)
alcCloseDevice(Device)
End