mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-19 21:25:11 +00:00
497 lines
14 KiB
C
497 lines
14 KiB
C
/**
|
|
* OpenAL cross platform audio library
|
|
* Copyright (C) 1999-2000 by authors.
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Library General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Library General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Library General Public
|
|
* License along with this library; if not, write to the
|
|
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
* Boston, MA 02111-1307, USA.
|
|
* Or go to http://www.gnu.org/copyleft/lgpl.html
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#include "alMain.h"
|
|
#include "AL/alc.h"
|
|
#include "alError.h"
|
|
#include "alListener.h"
|
|
#include "alSource.h"
|
|
|
|
AL_API ALvoid AL_APIENTRY alListenerf(ALenum eParam, ALfloat flArg)
|
|
{
|
|
ALCcontext *pContext;
|
|
ALboolean updateAll = AL_FALSE;
|
|
ALfp flValue = float2ALfp(flArg);
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
switch(eParam)
|
|
{
|
|
case AL_GAIN:
|
|
if(flValue >= int2ALfp(0))
|
|
{
|
|
pContext->Listener.Gain = flValue;
|
|
updateAll = AL_TRUE;
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
break;
|
|
|
|
case AL_METERS_PER_UNIT:
|
|
if(flValue > int2ALfp(0))
|
|
{
|
|
pContext->Listener.MetersPerUnit = flValue;
|
|
updateAll = AL_TRUE;
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
|
|
// Force updating the sources for these parameters, since even head-
|
|
// relative sources are affected
|
|
if(updateAll)
|
|
{
|
|
ALsizei pos;
|
|
for(pos = 0;pos < pContext->SourceMap.size;pos++)
|
|
{
|
|
ALsource *source = pContext->SourceMap.array[pos].value;
|
|
source->NeedsUpdate = AL_TRUE;
|
|
}
|
|
}
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API ALvoid AL_APIENTRY alListener3f(ALenum eParam, ALfloat flArg1, ALfloat flArg2, ALfloat flArg3)
|
|
{
|
|
ALCcontext *pContext;
|
|
ALboolean updateWorld = AL_FALSE;
|
|
ALfp flValue1 = float2ALfp(flArg1);
|
|
ALfp flValue2 = float2ALfp(flArg2);
|
|
ALfp flValue3 = float2ALfp(flArg3);
|
|
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
switch(eParam)
|
|
{
|
|
case AL_POSITION:
|
|
pContext->Listener.Position[0] = flValue1;
|
|
pContext->Listener.Position[1] = flValue2;
|
|
pContext->Listener.Position[2] = flValue3;
|
|
updateWorld = AL_TRUE;
|
|
break;
|
|
|
|
case AL_VELOCITY:
|
|
pContext->Listener.Velocity[0] = flValue1;
|
|
pContext->Listener.Velocity[1] = flValue2;
|
|
pContext->Listener.Velocity[2] = flValue3;
|
|
updateWorld = AL_TRUE;
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
|
|
if(updateWorld)
|
|
{
|
|
ALsizei pos;
|
|
for(pos = 0;pos < pContext->SourceMap.size;pos++)
|
|
{
|
|
ALsource *source = pContext->SourceMap.array[pos].value;
|
|
if(!source->bHeadRelative)
|
|
source->NeedsUpdate = AL_TRUE;
|
|
}
|
|
}
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API ALvoid AL_APIENTRY alListenerfv(ALenum eParam, const ALfloat *pflValues)
|
|
{
|
|
ALCcontext *pContext;
|
|
ALboolean updateWorld = AL_FALSE;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
if(pflValues)
|
|
{
|
|
switch(eParam)
|
|
{
|
|
case AL_GAIN:
|
|
case AL_METERS_PER_UNIT:
|
|
alListenerf(eParam, pflValues[0]);
|
|
break;
|
|
|
|
case AL_POSITION:
|
|
case AL_VELOCITY:
|
|
alListener3f(eParam, pflValues[0], pflValues[1], pflValues[2]);
|
|
break;
|
|
|
|
case AL_ORIENTATION:
|
|
// AT then UP
|
|
pContext->Listener.Forward[0] = float2ALfp(pflValues[0]);
|
|
pContext->Listener.Forward[1] = float2ALfp(pflValues[1]);
|
|
pContext->Listener.Forward[2] = float2ALfp(pflValues[2]);
|
|
pContext->Listener.Up[0] = float2ALfp(pflValues[3]);
|
|
pContext->Listener.Up[1] = float2ALfp(pflValues[4]);
|
|
pContext->Listener.Up[2] = float2ALfp(pflValues[5]);
|
|
updateWorld = AL_TRUE;
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
|
|
if(updateWorld)
|
|
{
|
|
ALsizei pos;
|
|
for(pos = 0;pos < pContext->SourceMap.size;pos++)
|
|
{
|
|
ALsource *source = pContext->SourceMap.array[pos].value;
|
|
if(!source->bHeadRelative)
|
|
source->NeedsUpdate = AL_TRUE;
|
|
}
|
|
}
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API ALvoid AL_APIENTRY alListeneri(ALenum eParam, ALint lValue)
|
|
{
|
|
ALCcontext *pContext;
|
|
|
|
(void)lValue;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
switch(eParam)
|
|
{
|
|
case AL_PRIORITY_SLOTS:
|
|
pContext->PrioritySlots = (ALsizei)lValue;
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API void AL_APIENTRY alListener3i(ALenum eParam, ALint lValue1, ALint lValue2, ALint lValue3)
|
|
{
|
|
ALCcontext *pContext;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
switch(eParam)
|
|
{
|
|
case AL_POSITION:
|
|
case AL_VELOCITY:
|
|
alListener3f(eParam, (ALfloat)lValue1, (ALfloat)lValue2, (ALfloat)lValue3);
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API void AL_APIENTRY alListeneriv( ALenum eParam, const ALint* plValues )
|
|
{
|
|
ALCcontext *pContext;
|
|
ALfloat flValues[6];
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
if(plValues)
|
|
{
|
|
switch(eParam)
|
|
{
|
|
case AL_POSITION:
|
|
case AL_VELOCITY:
|
|
flValues[0] = (ALfloat)plValues[0];
|
|
flValues[1] = (ALfloat)plValues[1];
|
|
flValues[2] = (ALfloat)plValues[2];
|
|
alListenerfv(eParam, flValues);
|
|
break;
|
|
|
|
case AL_ORIENTATION:
|
|
flValues[0] = (ALfloat)plValues[0];
|
|
flValues[1] = (ALfloat)plValues[1];
|
|
flValues[2] = (ALfloat)plValues[2];
|
|
flValues[3] = (ALfloat)plValues[3];
|
|
flValues[4] = (ALfloat)plValues[4];
|
|
flValues[5] = (ALfloat)plValues[5];
|
|
alListenerfv(eParam, flValues);
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API ALvoid AL_APIENTRY alGetListenerf(ALenum eParam, ALfloat *pflValue)
|
|
{
|
|
ALCcontext *pContext;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
if(pflValue)
|
|
{
|
|
switch(eParam)
|
|
{
|
|
case AL_GAIN:
|
|
*pflValue = ALfp2float(pContext->Listener.Gain);
|
|
break;
|
|
|
|
case AL_METERS_PER_UNIT:
|
|
*pflValue = ALfp2float(pContext->Listener.MetersPerUnit);
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API ALvoid AL_APIENTRY alGetListener3f(ALenum eParam, ALfloat *pflValue1, ALfloat *pflValue2, ALfloat *pflValue3)
|
|
{
|
|
ALCcontext *pContext;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
if(pflValue1 && pflValue2 && pflValue3)
|
|
{
|
|
switch(eParam)
|
|
{
|
|
case AL_POSITION:
|
|
*pflValue1 = ALfp2float(pContext->Listener.Position[0]);
|
|
*pflValue2 = ALfp2float(pContext->Listener.Position[1]);
|
|
*pflValue3 = ALfp2float(pContext->Listener.Position[2]);
|
|
break;
|
|
|
|
case AL_VELOCITY:
|
|
*pflValue1 = ALfp2float(pContext->Listener.Velocity[0]);
|
|
*pflValue2 = ALfp2float(pContext->Listener.Velocity[1]);
|
|
*pflValue3 = ALfp2float(pContext->Listener.Velocity[2]);
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API ALvoid AL_APIENTRY alGetListenerfv(ALenum eParam, ALfloat *pflValues)
|
|
{
|
|
ALCcontext *pContext;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
if(pflValues)
|
|
{
|
|
switch(eParam)
|
|
{
|
|
case AL_GAIN:
|
|
pflValues[0] = ALfp2float(pContext->Listener.Gain);
|
|
break;
|
|
|
|
case AL_METERS_PER_UNIT:
|
|
pflValues[0] = ALfp2float(pContext->Listener.MetersPerUnit);
|
|
break;
|
|
|
|
case AL_POSITION:
|
|
pflValues[0] = ALfp2float(pContext->Listener.Position[0]);
|
|
pflValues[1] = ALfp2float(pContext->Listener.Position[1]);
|
|
pflValues[2] = ALfp2float(pContext->Listener.Position[2]);
|
|
break;
|
|
|
|
case AL_VELOCITY:
|
|
pflValues[0] = ALfp2float(pContext->Listener.Velocity[0]);
|
|
pflValues[1] = ALfp2float(pContext->Listener.Velocity[1]);
|
|
pflValues[2] = ALfp2float(pContext->Listener.Velocity[2]);
|
|
break;
|
|
|
|
case AL_ORIENTATION:
|
|
// AT then UP
|
|
pflValues[0] = ALfp2float(pContext->Listener.Forward[0]);
|
|
pflValues[1] = ALfp2float(pContext->Listener.Forward[1]);
|
|
pflValues[2] = ALfp2float(pContext->Listener.Forward[2]);
|
|
pflValues[3] = ALfp2float(pContext->Listener.Up[0]);
|
|
pflValues[4] = ALfp2float(pContext->Listener.Up[1]);
|
|
pflValues[5] = ALfp2float(pContext->Listener.Up[2]);
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API ALvoid AL_APIENTRY alGetListeneri(ALenum eParam, ALint *plValue)
|
|
{
|
|
ALCcontext *pContext;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
if(plValue)
|
|
{
|
|
switch(eParam)
|
|
{
|
|
case AL_PRIORITY_SLOTS:
|
|
*plValue = (ALint)pContext->PrioritySlots;
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API void AL_APIENTRY alGetListener3i(ALenum eParam, ALint *plValue1, ALint *plValue2, ALint *plValue3)
|
|
{
|
|
ALCcontext *pContext;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
if(plValue1 && plValue2 && plValue3)
|
|
{
|
|
switch (eParam)
|
|
{
|
|
case AL_POSITION:
|
|
*plValue1 = (ALint)ALfp2int(pContext->Listener.Position[0]);
|
|
*plValue2 = (ALint)ALfp2int(pContext->Listener.Position[1]);
|
|
*plValue3 = (ALint)ALfp2int(pContext->Listener.Position[2]);
|
|
break;
|
|
|
|
case AL_VELOCITY:
|
|
*plValue1 = (ALint)ALfp2int(pContext->Listener.Velocity[0]);
|
|
*plValue2 = (ALint)ALfp2int(pContext->Listener.Velocity[1]);
|
|
*plValue3 = (ALint)ALfp2int(pContext->Listener.Velocity[2]);
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
|
|
ProcessContext(pContext);
|
|
}
|
|
|
|
|
|
AL_API void AL_APIENTRY alGetListeneriv(ALenum eParam, ALint* plValues)
|
|
{
|
|
ALCcontext *pContext;
|
|
|
|
pContext = GetContextSuspended();
|
|
if(!pContext) return;
|
|
|
|
if(plValues)
|
|
{
|
|
switch(eParam)
|
|
{
|
|
case AL_POSITION:
|
|
plValues[0] = (ALint)ALfp2int(pContext->Listener.Position[0]);
|
|
plValues[1] = (ALint)ALfp2int(pContext->Listener.Position[1]);
|
|
plValues[2] = (ALint)ALfp2int(pContext->Listener.Position[2]);
|
|
break;
|
|
|
|
case AL_VELOCITY:
|
|
plValues[0] = (ALint)ALfp2int(pContext->Listener.Velocity[0]);
|
|
plValues[1] = (ALint)ALfp2int(pContext->Listener.Velocity[1]);
|
|
plValues[2] = (ALint)ALfp2int(pContext->Listener.Velocity[2]);
|
|
break;
|
|
|
|
case AL_ORIENTATION:
|
|
// AT then UP
|
|
plValues[0] = (ALint)ALfp2int(pContext->Listener.Forward[0]);
|
|
plValues[1] = (ALint)ALfp2int(pContext->Listener.Forward[1]);
|
|
plValues[2] = (ALint)ALfp2int(pContext->Listener.Forward[2]);
|
|
plValues[3] = (ALint)ALfp2int(pContext->Listener.Up[0]);
|
|
plValues[4] = (ALint)ALfp2int(pContext->Listener.Up[1]);
|
|
plValues[5] = (ALint)ALfp2int(pContext->Listener.Up[2]);
|
|
break;
|
|
|
|
default:
|
|
alSetError(pContext, AL_INVALID_ENUM);
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
alSetError(pContext, AL_INVALID_VALUE);
|
|
|
|
ProcessContext(pContext);
|
|
}
|