2 * OpenAL cross platform audio library
3 * Copyright (C) 1999-2007 by authors.
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Library General Public
6 * License as published by the Free Software Foundation; either
7 * version 2 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Library General Public License for more details.
14 * You should have received a copy of the GNU Library General Public
15 * License along with this library; if not, write to the
16 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17 * Boston, MA 02111-1307, USA.
18 * Or go to http://www.gnu.org/copyleft/lgpl.html
21 #define _CRT_SECURE_NO_DEPRECATE // get rid of sprintf security warnings on VS2005
30 #if defined(HAVE_STDINT_H)
32 typedef int64_t ALint64
;
33 #elif defined(HAVE___INT64)
34 typedef __int64 ALint64
;
35 #elif (SIZEOF_LONG == 8)
37 #elif (SIZEOF_LONG_LONG == 8)
38 typedef long long ALint64
;
42 #define aluSqrt(x) ((ALfloat)sqrtf((float)(x)))
44 #define aluSqrt(x) ((ALfloat)sqrt((double)(x)))
48 #if defined(max) && !defined(__max)
51 #if defined(min) && !defined(__min)
55 __inline ALuint
aluBytesFromFormat(ALenum format
)
60 case AL_FORMAT_STEREO8
:
64 case AL_FORMAT_MONO16
:
65 case AL_FORMAT_STEREO16
:
66 case AL_FORMAT_QUAD16
:
74 __inline ALuint
aluChannelsFromFormat(ALenum format
)
79 case AL_FORMAT_MONO16
:
82 case AL_FORMAT_STEREO8
:
83 case AL_FORMAT_STEREO16
:
87 case AL_FORMAT_QUAD16
:
95 static __inline ALint
aluF2L(ALfloat Value
)
97 if(sizeof(ALint
) == 4 && sizeof(double) == 8)
100 temp
= Value
+ (((65536.0*65536.0*16.0)+(65536.0*65536.0*8.0))*65536.0);
101 return *((ALint
*)&temp
);
106 static __inline ALshort
aluF2S(ALfloat Value
)
111 i
= __min( 32767, i
);
112 i
= __max(-32768, i
);
116 static __inline ALvoid
aluCrossproduct(ALfloat
*inVector1
,ALfloat
*inVector2
,ALfloat
*outVector
)
118 outVector
[0] = inVector1
[1]*inVector2
[2] - inVector1
[2]*inVector2
[1];
119 outVector
[1] = inVector1
[2]*inVector2
[0] - inVector1
[0]*inVector2
[2];
120 outVector
[2] = inVector1
[0]*inVector2
[1] - inVector1
[1]*inVector2
[0];
123 static __inline ALfloat
aluDotproduct(ALfloat
*inVector1
,ALfloat
*inVector2
)
125 return inVector1
[0]*inVector2
[0] + inVector1
[1]*inVector2
[1] +
126 inVector1
[2]*inVector2
[2];
129 static __inline ALvoid
aluNormalize(ALfloat
*inVector
)
131 ALfloat length
, inverse_length
;
133 length
= (ALfloat
)aluSqrt(aluDotproduct(inVector
, inVector
));
136 inverse_length
= 1.0f
/length
;
137 inVector
[0] *= inverse_length
;
138 inVector
[1] *= inverse_length
;
139 inVector
[2] *= inverse_length
;
143 static __inline ALvoid
aluMatrixVector(ALfloat
*vector
,ALfloat matrix
[3][3])
147 result
[0] = vector
[0]*matrix
[0][0] + vector
[1]*matrix
[1][0] + vector
[2]*matrix
[2][0];
148 result
[1] = vector
[0]*matrix
[0][1] + vector
[1]*matrix
[1][1] + vector
[2]*matrix
[2][1];
149 result
[2] = vector
[0]*matrix
[0][2] + vector
[1]*matrix
[1][2] + vector
[2]*matrix
[2][2];
150 memcpy(vector
, result
, sizeof(result
));
153 static __inline ALfloat
aluComputeDrySample(ALsource
*source
, ALfloat DryGainHF
, ALfloat sample
)
158 sample
+= source
->LastDrySample
* (1.0f
- DryGainHF
);
161 source
->LastDrySample
= sample
;
165 static __inline ALfloat
aluComputeWetSample(ALsource
*source
, ALfloat WetGainHF
, ALfloat sample
)
170 sample
+= source
->LastWetSample
* (1.0f
- WetGainHF
);
173 source
->LastWetSample
= sample
;
177 static ALvoid
CalcSourceParams(ALCcontext
*ALContext
, ALsource
*ALSource
,
178 ALenum isMono
, ALenum OutputFormat
,
179 ALfloat
*drysend
, ALfloat
*wetsend
,
180 ALfloat
*pitch
, ALfloat
*drygainhf
,
183 ALfloat ListenerOrientation
[6],ListenerPosition
[3],ListenerVelocity
[3];
184 ALfloat InnerAngle
,OuterAngle
,OuterGain
,Angle
,Distance
,DryMix
,WetMix
;
185 ALfloat Direction
[3],Position
[3],Velocity
[3],SourceToListener
[3];
186 ALfloat MinVolume
,MaxVolume
,MinDist
,MaxDist
,Rolloff
,OuterGainHF
;
187 ALfloat Pitch
,ConeVolume
,SourceVolume
,PanningFB
,PanningLR
,ListenerGain
;
188 ALfloat U
[3],V
[3],N
[3];
189 ALfloat DopplerFactor
, DopplerVelocity
, flSpeedOfSound
, flMaxVelocity
;
190 ALfloat flVSS
, flVLS
;
192 ALfloat Matrix
[3][3];
194 ALfloat flAttenuation
;
195 ALfloat MetersPerUnit
;
196 ALfloat DryGainHF
= 1.0f
;
197 ALfloat WetGainHF
= 1.0f
;
199 //Get context properties
200 DopplerFactor
= ALContext
->DopplerFactor
;
201 DistanceModel
= ALContext
->DistanceModel
;
202 DopplerVelocity
= ALContext
->DopplerVelocity
;
203 flSpeedOfSound
= ALContext
->flSpeedOfSound
;
205 //Get listener properties
206 ListenerGain
= ALContext
->Listener
.Gain
;
207 MetersPerUnit
= ALContext
->Listener
.MetersPerUnit
;
208 memcpy(ListenerPosition
, ALContext
->Listener
.Position
, sizeof(ALContext
->Listener
.Position
));
209 memcpy(ListenerVelocity
, ALContext
->Listener
.Velocity
, sizeof(ALContext
->Listener
.Velocity
));
210 memcpy(&ListenerOrientation
[0], ALContext
->Listener
.Forward
, sizeof(ALContext
->Listener
.Forward
));
211 memcpy(&ListenerOrientation
[3], ALContext
->Listener
.Up
, sizeof(ALContext
->Listener
.Up
));
213 //Get source properties
214 Pitch
= ALSource
->flPitch
;
215 SourceVolume
= ALSource
->flGain
;
216 memcpy(Position
, ALSource
->vPosition
, sizeof(ALSource
->vPosition
));
217 memcpy(Velocity
, ALSource
->vVelocity
, sizeof(ALSource
->vVelocity
));
218 memcpy(Direction
, ALSource
->vOrientation
, sizeof(ALSource
->vOrientation
));
219 MinVolume
= ALSource
->flMinGain
;
220 MaxVolume
= ALSource
->flMaxGain
;
221 MinDist
= ALSource
->flRefDistance
;
222 MaxDist
= ALSource
->flMaxDistance
;
223 Rolloff
= ALSource
->flRollOffFactor
;
224 OuterGain
= ALSource
->flOuterGain
;
225 InnerAngle
= ALSource
->flInnerAngle
;
226 OuterAngle
= ALSource
->flOuterAngle
;
227 HeadRelative
= ALSource
->bHeadRelative
;
228 OuterGainHF
= (ALSource
->DryGainHFAuto
? ALSource
->OuterGainHF
: 1.0f
);
230 //Set working variables
231 DryMix
= (ALfloat
)(1.0f
);
232 WetMix
= (ALfloat
)(0.0f
);
234 //Only apply 3D calculations for mono buffers
235 if(isMono
!= AL_FALSE
)
237 //1. Translate Listener to origin (convert to head relative)
238 if(HeadRelative
==AL_FALSE
)
240 Position
[0] -= ListenerPosition
[0];
241 Position
[1] -= ListenerPosition
[1];
242 Position
[2] -= ListenerPosition
[2];
245 //2. Calculate distance attenuation
246 Distance
= aluSqrt(aluDotproduct(Position
, Position
));
248 flAttenuation
= 1.0f
;
249 switch (DistanceModel
)
251 case AL_INVERSE_DISTANCE_CLAMPED
:
252 Distance
=__max(Distance
,MinDist
);
253 Distance
=__min(Distance
,MaxDist
);
254 if (MaxDist
< MinDist
)
257 case AL_INVERSE_DISTANCE
:
260 if ((MinDist
+ (Rolloff
* (Distance
- MinDist
))) > 0.0f
)
261 flAttenuation
= MinDist
/ (MinDist
+ (Rolloff
* (Distance
- MinDist
)));
265 case AL_LINEAR_DISTANCE_CLAMPED
:
266 Distance
=__max(Distance
,MinDist
);
267 Distance
=__min(Distance
,MaxDist
);
268 if (MaxDist
< MinDist
)
271 case AL_LINEAR_DISTANCE
:
272 Distance
=__min(Distance
,MaxDist
);
273 if (MaxDist
!= MinDist
)
274 flAttenuation
= 1.0f
- (Rolloff
*(Distance
-MinDist
)/(MaxDist
- MinDist
));
277 case AL_EXPONENT_DISTANCE_CLAMPED
:
278 Distance
=__max(Distance
,MinDist
);
279 Distance
=__min(Distance
,MaxDist
);
280 if (MaxDist
< MinDist
)
283 case AL_EXPONENT_DISTANCE
:
284 if ((Distance
> 0.0f
) && (MinDist
> 0.0f
))
285 flAttenuation
= (ALfloat
)pow(Distance
/MinDist
, -Rolloff
);
290 flAttenuation
= 1.0f
;
294 // Source Gain + Attenuation
295 DryMix
= SourceVolume
* flAttenuation
;
297 // Clamp to Min/Max Gain
298 DryMix
= __min(DryMix
,MaxVolume
);
299 DryMix
= __max(DryMix
,MinVolume
);
300 WetMix
= __min(WetMix
,MaxVolume
);
301 WetMix
= __max(WetMix
,MinVolume
);
302 //3. Apply directional soundcones
303 SourceToListener
[0] = -Position
[0];
304 SourceToListener
[1] = -Position
[1];
305 SourceToListener
[2] = -Position
[2];
306 aluNormalize(Direction
);
307 aluNormalize(SourceToListener
);
308 Angle
= (ALfloat
)(180.0*acos(aluDotproduct(Direction
,SourceToListener
))/3.141592654f
);
309 if(Angle
>= InnerAngle
&& Angle
<= OuterAngle
)
311 ALfloat scale
= (Angle
-InnerAngle
) / (OuterAngle
-InnerAngle
);
312 ConeVolume
= (1.0f
+(OuterGain
-1.0f
)*scale
);
313 DryGainHF
*= (1.0f
+(OuterGainHF
-1.0f
)*scale
);
315 else if(Angle
> OuterAngle
)
317 ConeVolume
= (1.0f
+(OuterGain
-1.0f
));
318 DryGainHF
*= (1.0f
+(OuterGainHF
-1.0f
));
323 //4. Calculate Velocity
324 if(DopplerFactor
!= 0.0f
)
326 flVLS
= aluDotproduct(ListenerVelocity
, SourceToListener
);
327 flVSS
= aluDotproduct(Velocity
, SourceToListener
);
329 flMaxVelocity
= (DopplerVelocity
* flSpeedOfSound
) / DopplerFactor
;
331 if (flVSS
>= flMaxVelocity
)
332 flVSS
= (flMaxVelocity
- 1.0f
);
333 else if (flVSS
<= -flMaxVelocity
)
334 flVSS
= -flMaxVelocity
+ 1.0f
;
336 if (flVLS
>= flMaxVelocity
)
337 flVLS
= (flMaxVelocity
- 1.0f
);
338 else if (flVLS
<= -flMaxVelocity
)
339 flVLS
= -flMaxVelocity
+ 1.0f
;
341 pitch
[0] = Pitch
* ((flSpeedOfSound
* DopplerVelocity
) - (DopplerFactor
* flVLS
)) /
342 ((flSpeedOfSound
* DopplerVelocity
) - (DopplerFactor
* flVSS
));
347 //5. Align coordinate system axes
348 aluCrossproduct(&ListenerOrientation
[0], &ListenerOrientation
[3], U
); // Right-vector
349 aluNormalize(U
); // Normalized Right-vector
350 memcpy(V
, &ListenerOrientation
[3], sizeof(V
)); // Up-vector
351 aluNormalize(V
); // Normalized Up-vector
352 memcpy(N
, &ListenerOrientation
[0], sizeof(N
)); // At-vector
353 aluNormalize(N
); // Normalized At-vector
354 Matrix
[0][0] = U
[0]; Matrix
[0][1] = V
[0]; Matrix
[0][2] = -N
[0];
355 Matrix
[1][0] = U
[1]; Matrix
[1][1] = V
[1]; Matrix
[1][2] = -N
[1];
356 Matrix
[2][0] = U
[2]; Matrix
[2][1] = V
[2]; Matrix
[2][2] = -N
[2];
357 aluMatrixVector(Position
, Matrix
);
359 //6. Convert normalized position into left/right front/back pannings
362 aluNormalize(Position
);
363 PanningLR
= 0.5f
+ 0.5f
*Position
[0];
364 PanningFB
= 0.5f
+ 0.5f
*Position
[2];
372 *drygainhf
= DryGainHF
;
373 *wetgainhf
= WetGainHF
;
375 //7. Convert pannings into channel volumes
378 case AL_FORMAT_MONO8
:
379 case AL_FORMAT_MONO16
:
380 drysend
[0] = ConeVolume
* ListenerGain
* DryMix
* aluSqrt(1.0f
); //Direct
381 drysend
[1] = ConeVolume
* ListenerGain
* DryMix
* aluSqrt(1.0f
); //Direct
382 wetsend
[0] = ListenerGain
* WetMix
* aluSqrt(1.0f
); //Room
383 wetsend
[1] = ListenerGain
* WetMix
* aluSqrt(1.0f
); //Room
385 case AL_FORMAT_STEREO8
:
386 case AL_FORMAT_STEREO16
:
387 drysend
[0] = ConeVolume
* ListenerGain
* DryMix
* aluSqrt(1.0f
-PanningLR
); //L Direct
388 drysend
[1] = ConeVolume
* ListenerGain
* DryMix
* aluSqrt( PanningLR
); //R Direct
389 wetsend
[0] = ListenerGain
* WetMix
* aluSqrt(1.0f
-PanningLR
); //L Room
390 wetsend
[1] = ListenerGain
* WetMix
* aluSqrt( PanningLR
); //R Room
392 case AL_FORMAT_QUAD8
:
393 case AL_FORMAT_QUAD16
:
394 drysend
[0] = ConeVolume
* ListenerGain
* DryMix
* aluSqrt((1.0f
-PanningLR
)*(1.0f
-PanningFB
)); //FL Direct
395 drysend
[1] = ConeVolume
* ListenerGain
* DryMix
* aluSqrt(( PanningLR
)*(1.0f
-PanningFB
)); //FR Direct
396 drysend
[2] = ConeVolume
* ListenerGain
* DryMix
* aluSqrt((1.0f
-PanningLR
)*( PanningFB
)); //BL Direct
397 drysend
[3] = ConeVolume
* ListenerGain
* DryMix
* aluSqrt(( PanningLR
)*( PanningFB
)); //BR Direct
398 wetsend
[0] = ListenerGain
* WetMix
* aluSqrt((1.0f
-PanningLR
)*(1.0f
-PanningFB
)); //FL Room
399 wetsend
[1] = ListenerGain
* WetMix
* aluSqrt(( PanningLR
)*(1.0f
-PanningFB
)); //FR Room
400 wetsend
[2] = ListenerGain
* WetMix
* aluSqrt((1.0f
-PanningLR
)*( PanningFB
)); //BL Room
401 wetsend
[3] = ListenerGain
* WetMix
* aluSqrt(( PanningLR
)*( PanningFB
)); //BR Room
409 //1. Multi-channel buffers always play "normal"
410 drysend
[0] = SourceVolume
* 1.0f
* ListenerGain
;
411 drysend
[1] = SourceVolume
* 1.0f
* ListenerGain
;
412 drysend
[2] = SourceVolume
* 1.0f
* ListenerGain
;
413 drysend
[3] = SourceVolume
* 1.0f
* ListenerGain
;
414 wetsend
[0] = SourceVolume
* 0.0f
* ListenerGain
;
415 wetsend
[1] = SourceVolume
* 0.0f
* ListenerGain
;
416 wetsend
[2] = SourceVolume
* 0.0f
* ListenerGain
;
417 wetsend
[3] = SourceVolume
* 0.0f
* ListenerGain
;
421 *drygainhf
= DryGainHF
;
422 *wetgainhf
= WetGainHF
;
426 ALvoid
aluMixData(ALCcontext
*ALContext
,ALvoid
*buffer
,ALsizei size
,ALenum format
)
428 static float DryBuffer
[BUFFERSIZE
][OUTPUTCHANNELS
];
429 static float WetBuffer
[BUFFERSIZE
][OUTPUTCHANNELS
];
430 ALfloat DrySend
[OUTPUTCHANNELS
] = { 0.0f
, 0.0f
, 0.0f
, 0.0f
};
431 ALfloat WetSend
[OUTPUTCHANNELS
] = { 0.0f
, 0.0f
, 0.0f
, 0.0f
};
432 ALfloat DryGainHF
= 0.0f
;
433 ALfloat WetGainHF
= 0.0f
;
434 ALuint BlockAlign
,BufferSize
;
435 ALuint DataSize
=0,DataPosInt
=0,DataPosFrac
=0;
436 ALuint Channels
,Bits
,Frequency
,ulExtraSamples
;
438 ALint Looping
,increment
,State
;
439 ALuint Buffer
,fraction
;
446 ALbufferlistitem
*BufferListItem
;
448 ALint64 DataSize64
,DataPos64
;
450 SuspendContext(ALContext
);
454 //Figure output format variables
455 BlockAlign
= aluChannelsFromFormat(format
);
456 BlockAlign
*= aluBytesFromFormat(format
);
462 ALSource
= (ALContext
? ALContext
->Source
: NULL
);
463 SamplesToDo
= min(size
, BUFFERSIZE
);
465 //Clear mixing buffer
466 memset(DryBuffer
, 0, SamplesToDo
*OUTPUTCHANNELS
*sizeof(ALfloat
));
467 memset(WetBuffer
, 0, SamplesToDo
*OUTPUTCHANNELS
*sizeof(ALfloat
));
473 State
= ALSource
->state
;
474 while(State
== AL_PLAYING
&& j
< SamplesToDo
)
481 if((Buffer
= ALSource
->ulBufferID
))
483 ALBuffer
= (ALbuffer
*)ALTHUNK_LOOKUPENTRY(Buffer
);
485 Data
= ALBuffer
->data
;
486 Bits
= aluBytesFromFormat(ALBuffer
->format
) * 8;
487 Channels
= aluChannelsFromFormat(ALBuffer
->format
);
488 DataSize
= ALBuffer
->size
;
489 Frequency
= ALBuffer
->frequency
;
491 CalcSourceParams(ALContext
, ALSource
,
492 (Channels
==1) ? AL_TRUE
: AL_FALSE
,
493 format
, DrySend
, WetSend
, &Pitch
,
494 &DryGainHF
, &WetGainHF
);
497 Pitch
= (Pitch
*Frequency
) / ALContext
->Frequency
;
498 DataSize
= DataSize
/ (Bits
*Channels
/8);
501 DataPosInt
= ALSource
->position
;
502 DataPosFrac
= ALSource
->position_fraction
;
504 //Compute 18.14 fixed point step
505 increment
= aluF2L(Pitch
*(1L<<FRACTIONBITS
));
506 if(increment
> (MAX_PITCH
<<FRACTIONBITS
))
507 increment
= (MAX_PITCH
<<FRACTIONBITS
);
509 //Figure out how many samples we can mix.
510 //Pitch must be <= 4 (the number below !)
511 DataSize64
= DataSize
+MAX_PITCH
;
512 DataSize64
<<= FRACTIONBITS
;
513 DataPos64
= DataPosInt
;
514 DataPos64
<<= FRACTIONBITS
;
515 DataPos64
+= DataPosFrac
;
516 BufferSize
= (ALuint
)((DataSize64
-DataPos64
) / increment
);
517 BufferListItem
= ALSource
->queue
;
518 for(loop
= 0; loop
< ALSource
->BuffersPlayed
; loop
++)
521 BufferListItem
= BufferListItem
->next
;
525 if (BufferListItem
->next
)
527 if(BufferListItem
->next
->buffer
&&
528 ((ALbuffer
*)ALTHUNK_LOOKUPENTRY(BufferListItem
->next
->buffer
))->data
)
530 ulExtraSamples
= min(((ALbuffer
*)ALTHUNK_LOOKUPENTRY(BufferListItem
->next
->buffer
))->size
, (ALint
)(16*Channels
));
531 memcpy(&Data
[DataSize
*Channels
], ((ALbuffer
*)ALTHUNK_LOOKUPENTRY(BufferListItem
->next
->buffer
))->data
, ulExtraSamples
);
534 else if (ALSource
->bLooping
)
536 if (ALSource
->queue
->buffer
)
538 if(((ALbuffer
*)ALTHUNK_LOOKUPENTRY(ALSource
->queue
->buffer
))->data
)
540 ulExtraSamples
= min(((ALbuffer
*)ALTHUNK_LOOKUPENTRY(ALSource
->queue
->buffer
))->size
, (ALint
)(16*Channels
));
541 memcpy(&Data
[DataSize
*Channels
], ((ALbuffer
*)ALTHUNK_LOOKUPENTRY(ALSource
->queue
->buffer
))->data
, ulExtraSamples
);
546 BufferSize
= min(BufferSize
, (SamplesToDo
-j
));
548 //Actual sample mixing loop
549 Data
+= DataPosInt
*Channels
;
552 k
= DataPosFrac
>>FRACTIONBITS
;
553 fraction
= DataPosFrac
&FRACTIONMASK
;
556 //First order interpolator
557 ALfloat sample
= (ALfloat
)((ALshort
)(((Data
[k
]*((1L<<FRACTIONBITS
)-fraction
))+(Data
[k
+1]*(fraction
)))>>FRACTIONBITS
));
559 //Direct path final mix buffer and panning
560 value
= aluComputeDrySample(ALSource
, DryGainHF
, sample
);
561 DryBuffer
[j
][0] += value
*DrySend
[0];
562 DryBuffer
[j
][1] += value
*DrySend
[1];
563 DryBuffer
[j
][2] += value
*DrySend
[2];
564 DryBuffer
[j
][3] += value
*DrySend
[3];
566 //Room path final mix buffer and panning
567 value
= aluComputeWetSample(ALSource
, WetGainHF
, sample
);
568 WetBuffer
[j
][0] += value
*WetSend
[0];
569 WetBuffer
[j
][1] += value
*WetSend
[1];
570 WetBuffer
[j
][2] += value
*WetSend
[2];
571 WetBuffer
[j
][3] += value
*WetSend
[3];
575 //First order interpolator (left)
576 value
= (ALfloat
)((ALshort
)(((Data
[k
*2 ]*((1L<<FRACTIONBITS
)-fraction
))+(Data
[k
*2+2]*(fraction
)))>>FRACTIONBITS
));
577 //Direct path final mix buffer and panning (left)
578 DryBuffer
[j
][0] += value
*DrySend
[0];
579 //Room path final mix buffer and panning (left)
580 WetBuffer
[j
][0] += value
*WetSend
[0];
581 //First order interpolator (right)
582 value
= (ALfloat
)((ALshort
)(((Data
[k
*2+1]*((1L<<FRACTIONBITS
)-fraction
))+(Data
[k
*2+3]*(fraction
)))>>FRACTIONBITS
));
583 //Direct path final mix buffer and panning (right)
584 DryBuffer
[j
][1] += value
*DrySend
[1];
585 //Room path final mix buffer and panning (right)
586 WetBuffer
[j
][1] += value
*WetSend
[1];
588 DataPosFrac
+= increment
;
591 DataPosInt
+= (DataPosFrac
>>FRACTIONBITS
);
592 DataPosFrac
= (DataPosFrac
&FRACTIONMASK
);
595 ALSource
->position
= DataPosInt
;
596 ALSource
->position_fraction
= DataPosFrac
;
599 //Handle looping sources
600 if(!Buffer
|| DataPosInt
>= DataSize
)
605 Looping
= ALSource
->bLooping
;
606 if(ALSource
->BuffersPlayed
< (ALSource
->BuffersInQueue
-1))
608 BufferListItem
= ALSource
->queue
;
609 for(loop
= 0; loop
<= ALSource
->BuffersPlayed
; loop
++)
614 BufferListItem
->bufferstate
= PROCESSED
;
615 BufferListItem
= BufferListItem
->next
;
619 ALSource
->BuffersProcessed
++;
621 ALSource
->ulBufferID
= BufferListItem
->buffer
;
622 ALSource
->position
= DataPosInt
-DataSize
;
623 ALSource
->position_fraction
= DataPosFrac
;
624 ALSource
->BuffersPlayed
++;
631 ALSource
->state
= AL_STOPPED
;
632 ALSource
->inuse
= AL_FALSE
;
633 ALSource
->BuffersPlayed
= ALSource
->BuffersProcessed
= ALSource
->BuffersInQueue
;
634 BufferListItem
= ALSource
->queue
;
635 while(BufferListItem
!= NULL
)
637 BufferListItem
->bufferstate
= PROCESSED
;
638 BufferListItem
= BufferListItem
->next
;
645 ALSource
->state
= AL_PLAYING
;
646 ALSource
->inuse
= AL_TRUE
;
647 ALSource
->play
= AL_TRUE
;
648 ALSource
->BuffersPlayed
= 0;
649 ALSource
->BufferPosition
= 0;
650 ALSource
->lBytesPlayed
= 0;
651 ALSource
->BuffersProcessed
= 0;
652 BufferListItem
= ALSource
->queue
;
653 while(BufferListItem
!= NULL
)
655 BufferListItem
->bufferstate
= PENDING
;
656 BufferListItem
= BufferListItem
->next
;
658 ALSource
->ulBufferID
= ALSource
->queue
->buffer
;
660 ALSource
->position
= DataPosInt
-DataSize
;
661 ALSource
->position_fraction
= DataPosFrac
;
668 State
= ALSource
->state
;
671 ALSource
= ALSource
->next
;
674 //Post processing loop
677 case AL_FORMAT_MONO8
:
678 for(i
= 0;i
< SamplesToDo
;i
++)
680 *((ALubyte
*)buffer
) = (ALubyte
)((aluF2S(DryBuffer
[i
][0]+DryBuffer
[i
][1]+WetBuffer
[i
][0]+WetBuffer
[i
][1])>>8)+128);
681 buffer
= ((ALubyte
*)buffer
) + 1;
684 case AL_FORMAT_STEREO8
:
685 for(i
= 0;i
< SamplesToDo
*2;i
++)
687 *((ALubyte
*)buffer
) = (ALubyte
)((aluF2S(DryBuffer
[i
>>1][i
&1]+WetBuffer
[i
>>1][i
&1])>>8)+128);
688 buffer
= ((ALubyte
*)buffer
) + 1;
691 case AL_FORMAT_QUAD8
:
692 for(i
= 0;i
< SamplesToDo
*4;i
++)
694 *((ALubyte
*)buffer
) = (ALubyte
)((aluF2S(DryBuffer
[i
>>2][i
&3]+WetBuffer
[i
>>2][i
&3])>>8)+128);
695 buffer
= ((ALubyte
*)buffer
) + 1;
698 case AL_FORMAT_MONO16
:
699 for(i
= 0;i
< SamplesToDo
;i
++)
701 *((ALshort
*)buffer
) = aluF2S(DryBuffer
[i
][0]+DryBuffer
[i
][1]+WetBuffer
[i
][0]+WetBuffer
[i
][1]);
702 buffer
= ((ALshort
*)buffer
) + 1;
705 case AL_FORMAT_STEREO16
:
707 for(i
= 0;i
< SamplesToDo
*2;i
++)
709 *((ALshort
*)buffer
) = aluF2S(DryBuffer
[i
>>1][i
&1]+WetBuffer
[i
>>1][i
&1]);
710 buffer
= ((ALshort
*)buffer
) + 1;
713 case AL_FORMAT_QUAD16
:
714 for(i
= 0;i
< SamplesToDo
*4;i
++)
716 *((ALshort
*)buffer
) = aluF2S(DryBuffer
[i
>>2][i
&3]+WetBuffer
[i
>>2][i
&3]);
717 buffer
= ((ALshort
*)buffer
) + 1;
726 ProcessContext(ALContext
);