git.oblomov.eu Git - wine/blob - dlls/dsound/sound3d.c

   1 /*                      DirectSound
   2  *
   3  * Copyright 1998 Marcus Meissner
   4  * Copyright 1998 Rob Riggs
   5  * Copyright 2000-2001 TransGaming Technologies, Inc.
   6  * Copyright 2002-2003 Rok Mandeljc <rok.mandeljc@gimb.org>
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  21  */
  22 /*
  23  * Most thread locking is complete. There may be a few race
  24  * conditions still lurking.
  25  *
  26  * Tested with a Soundblaster clone, a Gravis UltraSound Classic,
  27  * and a Turtle Beach Tropez+.
  28  *
  29  * TODO:
  30  *      Implement SetCooperativeLevel properly (need to address focus issues)
  31  *      Implement DirectSound3DBuffers (stubs in place)
  32  *      Use hardware 3D support if available
  33  *      Add critical section locking inside Release and AddRef methods
  34  *      Handle static buffers - put those in hardware, non-static not in hardware
  35  *      Hardware DuplicateSoundBuffer
  36  *      Proper volume calculation, and setting volume in HEL primary buffer
  37  *      Optimize WINMM and negotiate fragment size, decrease DS_HEL_MARGIN
  38  */
  39
  40 #include <stdarg.h>
  41 #include <math.h>       /* Insomnia - pow() function */
  42
  43 #define NONAMELESSUNION
  44 #define NONAMELESSSTRUCT
  45 #include "windef.h"
  46 #include "winbase.h"
  47 #include "mmsystem.h"
  48 #include "winreg.h"
  49 #include "winternl.h"
  50 #include "mmddk.h"
  51 #include "wine/debug.h"
  52 #include "dsound.h"
  53 #include "dsdriver.h"
  54 #include "dsound_private.h"
  55
  56 /* default intensity level for human ears */
  57 #define DEFAULT_INTENSITY 0.000000000001f
  58 /* default velocity of sound in the air */
  59 #define DEFAULT_VELOCITY 340
  60
  61 WINE_DEFAULT_DEBUG_CHANNEL(dsound3d);
  62
  63 /*******************************************************************************
  64  *              Auxiliary functions
  65  */
  66
  67 /* scalar product (i believe it's called dot product in english) */
  68 static inline D3DVALUE ScalarProduct (LPD3DVECTOR a, LPD3DVECTOR b)
  69 {
  70         D3DVALUE c;
  71         c = (a->x*b->x) + (a->y*b->y) + (a->z*b->z);
  72         TRACE("(%f,%f,%f) * (%f,%f,%f) = %f)\n", a->x, a->y, a->z, b->x, b->y, \
  73               b->z, c);
  74         return c;
  75 }
  76
  77 /* vector product (i believe it's called cross product in english */
  78 static inline D3DVECTOR VectorProduct (LPD3DVECTOR a, LPD3DVECTOR b)
  79 {
  80         D3DVECTOR c;
  81         c.x = (a->y*b->z) - (a->z*b->y);
  82         c.y = (a->z*b->x) - (a->x*b->z);
  83         c.z = (a->x*b->y) - (a->y*b->x);
  84         TRACE("(%f,%f,%f) x (%f,%f,%f) = (%f,%f,%f)\n", a->x, a->y, a->z, b->x, b->y, \
  85               b->z, c.x, c.y, c.z);
  86         return c;
  87 }
  88
  89 /* magnitude (length) of vector */
  90 static inline D3DVALUE VectorMagnitude (LPD3DVECTOR a)
  91 {
  92         D3DVALUE l;
  93         l = sqrt (ScalarProduct (a, a));
  94         TRACE("|(%f,%f,%f)| = %f\n", a->x, a->y, a->z, l);
  95         return l;
  96 }
  97
  98 /* conversion between radians and degrees */
  99 static inline D3DVALUE RadToDeg (D3DVALUE angle)
 100 {
 101         D3DVALUE newangle;
 102         newangle = angle * (360/(2*M_PI));
 103         TRACE("%f rad = %f deg\n", angle, newangle);
 104         return newangle;
 105 }
 106
 107 /* conversion between degrees and radians */
 108 static inline D3DVALUE DegToRad (D3DVALUE angle)
 109 {
 110         D3DVALUE newangle;
 111         newangle = angle * (2*M_PI/360);
 112         TRACE("%f deg = %f rad\n", angle, newangle);
 113         return newangle;
 114 }
 115
 116 /* angle between vectors - deg version */
 117 static inline D3DVALUE AngleBetweenVectorsDeg (LPD3DVECTOR a, LPD3DVECTOR b)
 118 {
 119         D3DVALUE la, lb, product, angle, cos;
 120         /* definition of scalar product: a*b = |a|*|b|*cos...therefore: */
 121         product = ScalarProduct (a,b);
 122         la = VectorMagnitude (a);
 123         lb = VectorMagnitude (b);
 124         cos = product/(la*lb);
 125         angle = acos(cos);
 126         /* we now have angle in radians */
 127         angle = RadToDeg(angle);
 128         TRACE("angle between (%f,%f,%f) and (%f,%f,%f) = %f degrees\n",  a->x, a->y, a->z, b->x,
 129               b->y, b->z, angle);
 130         return angle;
 131 }
 132
 133 /* angle between vectors - rad version */
 134 static inline D3DVALUE AngleBetweenVectorsRad (LPD3DVECTOR a, LPD3DVECTOR b)
 135 {
 136         D3DVALUE la, lb, product, angle, cos;
 137         /* definition of scalar product: a*b = |a|*|b|*cos...therefore: */
 138         product = ScalarProduct (a,b);
 139         la = VectorMagnitude (a);
 140         lb = VectorMagnitude (b);
 141         cos = product/(la*lb);
 142         angle = acos(cos);
 143         TRACE("angle between (%f,%f,%f) and (%f,%f,%f) = %f radians\n",  a->x, a->y, a->z, b->x,
 144               b->y, b->z, angle);
 145         return angle;
 146 }
 147
 148 /* calculates vector between two points */
 149 static inline D3DVECTOR VectorBetweenTwoPoints (LPD3DVECTOR a, LPD3DVECTOR b)
 150 {
 151         D3DVECTOR c;
 152         c.x = b->x - a->x;
 153         c.y = b->y - a->y;
 154         c.z = b->z - a->z;
 155         TRACE("A (%f,%f,%f), B (%f,%f,%f), AB = (%f,%f,%f)\n", a->x, a->y, a->z, b->x, b->y,
 156               b->z, c.x, c.y, c.z);
 157         return c;
 158 }
 159
 160 /* calculates the length of vector's projection on another vector */
 161 static inline D3DVALUE ProjectVector (LPD3DVECTOR a, LPD3DVECTOR p)
 162 {
 163         D3DVALUE prod, result;
 164         prod = ScalarProduct(a, p);
 165         result = prod/VectorMagnitude(p);
 166         TRACE("length projection of (%f,%f,%f) on (%f,%f,%f) = %f\n", a->x, a->y, a->z, p->x,
 167               p->y, p->z, result);
 168         return result;
 169 }
 170
 171 /*******************************************************************************
 172  *              3D Buffer and Listener mixing
 173  */
 174
 175 void DSOUND_Calc3DBuffer(IDirectSoundBufferImpl *dsb)
 176 {
 177         /* volume, at which the sound will be played after all calcs. */
 178         D3DVALUE lVolume = 0;
 179         /* intensity (used for distance related stuff) */
 180         double flIntensity;
 181         double flTemp;
 182         /* stuff for distance related stuff calc. */
 183         D3DVECTOR vDistance;
 184         D3DVALUE flDistance = 0;
 185         /* panning related stuff */
 186         D3DVALUE flAngle;
 187         D3DVECTOR vLeft;
 188         /* doppler shift related stuff */
 189 #if 0
 190         D3DVALUE flFreq, flBufferVel, flListenerVel;
 191 #endif
 192
 193         TRACE("(%p)\n",dsb);
 194
 195         /* initial buffer volume */
 196         lVolume = dsb->ds3db_lVolume;
 197
 198         switch (dsb->ds3db_ds3db.dwMode)
 199         {
 200                 case DS3DMODE_DISABLE:
 201                         TRACE("3D processing disabled\n");
 202                         /* this one is here only to eliminate annoying warning message */
 203                         DSOUND_RecalcVolPan (&dsb->volpan);
 204                         DSOUND_ForceRemix (dsb);
 205                         break;
 206                 case DS3DMODE_NORMAL:
 207                         TRACE("Normal 3D processing mode\n");
 208                         /* we need to calculate distance between buffer and listener*/
 209                         vDistance = VectorBetweenTwoPoints(&dsb->ds3db_ds3db.vPosition, &dsb->dsound->ds3dl.vPosition);
 210                         flDistance = VectorMagnitude (&vDistance);
 211                         break;
 212                 case DS3DMODE_HEADRELATIVE:
 213                         TRACE("Head-relative 3D processing mode\n");
 214                         /* distance between buffer and listener is same as buffer's position */
 215                         flDistance = VectorMagnitude (&dsb->ds3db_ds3db.vPosition);
 216                         break;
 217         }
 218
 219         if (flDistance > dsb->ds3db_ds3db.flMaxDistance)
 220         {
 221                 /* some apps don't want you to hear too distant sounds... */
 222                 if (dsb->dsbd.dwFlags & DSBCAPS_MUTE3DATMAXDISTANCE)
 223                 {
 224                         dsb->volpan.lVolume = DSBVOLUME_MIN;
 225                         DSOUND_RecalcVolPan (&dsb->volpan);
 226                         /* i guess mixing here would be a waste of power */
 227                         return;
 228                 }
 229                 else
 230                         flDistance = dsb->ds3db_ds3db.flMaxDistance;
 231         }
 232
 233         if (flDistance < dsb->ds3db_ds3db.flMinDistance)
 234                 flDistance = dsb->ds3db_ds3db.flMinDistance;
 235
 236         /* the following formula is taken from my physics book. I think it's ok for the *real* world...i hope m$ does it that way */
 237         lVolume += 10000; /* ms likes working with negative volume...i don't */
 238         lVolume /= 1000; /* convert hundreths of dB into B */
 239         /* intensity level (loudness) = log10(Intensity/DefaultIntensity)...therefore */
 240         flIntensity = pow(10,lVolume)*DEFAULT_INTENSITY;
 241         flTemp = (flDistance/dsb->ds3db_ds3db.flMinDistance)*(flDistance/dsb->ds3db_ds3db.flMinDistance);
 242         flIntensity /= flTemp;
 243         lVolume = log10(flIntensity/DEFAULT_INTENSITY);
 244         lVolume *= 1000; /* convert back to hundreths of dB */
 245         lVolume -= 10000; /* we need to do it in ms way */
 246         TRACE("dist. att: Distance = %f, MinDistance = %f => adjusting volume %ld to %f\n", flDistance, dsb->ds3db_ds3db.flMinDistance, dsb->ds3db_lVolume, lVolume);
 247
 248         /* conning */
 249         /* sometimes it happens that vConeOrientation vector = (0,0,0); in this case angle is "nan" and it's useless*/
 250         if (dsb->ds3db_ds3db.vConeOrientation.x == 0 && dsb->ds3db_ds3db.vConeOrientation.y == 0 && dsb->ds3db_ds3db.vConeOrientation.z == 0)
 251         {
 252                 TRACE("conning: cones not set\n");
 253         }
 254         else
 255         {
 256                 /* calculate angle */
 257                 flAngle = AngleBetweenVectorsDeg(&dsb->ds3db_ds3db.vConeOrientation, &vDistance);
 258                 /* if by any chance it happens that OutsideConeAngle = InsideConeAngle (that means that conning has no effect) */
 259                 if (dsb->ds3db_ds3db.dwInsideConeAngle != dsb->ds3db_ds3db.dwOutsideConeAngle)
 260                 {
 261                         /* my test show that for my way of calc., we need only half of angles */
 262                         DWORD dwInsideConeAngle = dsb->ds3db_ds3db.dwInsideConeAngle/2;
 263                         DWORD dwOutsideConeAngle = dsb->ds3db_ds3db.dwOutsideConeAngle/2;
 264                         /* full volume */
 265                         if (flAngle < dwInsideConeAngle)
 266                                 flAngle = dwInsideConeAngle;
 267                         /* min (app defined) volume */
 268                         if (flAngle > dwOutsideConeAngle)
 269                                 flAngle = dwOutsideConeAngle;
 270                         /* this probably isn't the right thing, but it's ok for the time being */
 271                         lVolume += ((dsb->ds3db_ds3db.lConeOutsideVolume)/((dwOutsideConeAngle) - (dwInsideConeAngle))) * flAngle;
 272                 }
 273                 TRACE("conning: Angle = %f deg; InsideConeAngle(/2) = %ld deg; OutsideConeAngle(/2) = %ld deg; ConeOutsideVolume = %ld => adjusting volume to %f\n",
 274                        flAngle, dsb->ds3db_ds3db.dwInsideConeAngle/2, dsb->ds3db_ds3db.dwOutsideConeAngle/2, dsb->ds3db_ds3db.lConeOutsideVolume, lVolume);
 275         }
 276         dsb->volpan.lVolume = lVolume;
 277
 278         /* panning */
 279         if (dsb->dsound->ds3dl.vPosition.x == dsb->ds3db_ds3db.vPosition.x &&
 280             dsb->dsound->ds3dl.vPosition.y == dsb->ds3db_ds3db.vPosition.y &&
 281             dsb->dsound->ds3dl.vPosition.z == dsb->ds3db_ds3db.vPosition.z) {
 282                 dsb->volpan.lPan = 0;
 283                 flAngle = 0.0;
 284         }
 285         else
 286         {
 287                 vDistance = VectorBetweenTwoPoints(&dsb->dsound->ds3dl.vPosition, &dsb->ds3db_ds3db.vPosition);
 288                 vLeft = VectorProduct(&dsb->dsound->ds3dl.vOrientFront, &dsb->dsound->ds3dl.vOrientTop);
 289                 flAngle = AngleBetweenVectorsRad(&vLeft, &vDistance);
 290                 /* for now, we'll use "linear formula" (which is probably incorrect); if someone has it in book, correct it */
 291                 dsb->volpan.lPan = 10000*2*flAngle/M_PI - 10000;
 292         }
 293         TRACE("panning: Angle = %f rad, lPan = %ld\n", flAngle, dsb->volpan.lPan);
 294
 295         /* FIXME: Doppler Effect disabled since i have no idea which frequency to change and how to do it */
 296 #if 0
 297         /* doppler shift*/
 298         if ((VectorMagnitude(&ds3db.vVelocity) == 0) && (VectorMagnitude(&dsb->dsound->ds3dl.vVelocity) == 0))
 299         {
 300                 TRACE("doppler: Buffer and Listener don't have velocities\n");
 301         }
 302         else
 303         {
 304                 /* calculate length of ds3db.vVelocity component which causes Doppler Effect
 305                    NOTE: if buffer moves TOWARDS the listener, it's velocity component is NEGATIVE
 306                          if buffer moves AWAY from listener, it's velocity component is POSITIVE */
 307                 flBufferVel = ProjectVector(&dsb->ds3db_ds3db.vVelocity, &vDistance);
 308                 /* calculate length of ds3dl.vVelocity component which causes Doppler Effect
 309                    NOTE: if listener moves TOWARDS the buffer, it's velocity component is POSITIVE
 310                          if listener moves AWAY from buffer, it's velocity component is NEGATIVE */
 311                 flListenerVel = ProjectVector(&dsb->dsound->ds3dl.vVelocity, &vDistance);
 312                 /* formula taken from Gianicoli D.: Physics, 4th edition: */
 313                 /* FIXME: replace dsb->freq with appropriate frequency ! */
 314                 flFreq = dsb->freq * ((DEFAULT_VELOCITY + flListenerVel)/(DEFAULT_VELOCITY + flBufferVel));
 315                 TRACE("doppler: Buffer velocity (component) = %lf, Listener velocity (component) = %lf => Doppler shift: %ld Hz -> %lf Hz\n", flBufferVel, flListenerVel, \
 316                       dsb->freq, flFreq);
 317                 /* FIXME: replace following line with correct frequency setting ! */
 318                 dsb->freq = flFreq;
 319         }
 320 #endif
 321
 322         /* time for remix */
 323         DSOUND_RecalcVolPan(&dsb->volpan);
 324 }
 325
 326 static void DSOUND_Mix3DBuffer(IDirectSoundBufferImpl *dsb)
 327 {
 328         TRACE("(%p)\n",dsb);
 329
 330         DSOUND_Calc3DBuffer(dsb);
 331         DSOUND_ForceRemix(dsb);
 332 }
 333
 334 static void WINAPI DSOUND_ChangeListener(IDirectSound3DListenerImpl *ds3dl)
 335 {
 336         int i;
 337         TRACE("(%p)\n",ds3dl);
 338         for (i = 0; i < ds3dl->dsound->nrofbuffers; i++)
 339         {
 340                 /* some buffers don't have 3d buffer (Ultima IX seems to
 341                 crash without the following line) */
 342                 if (ds3dl->dsound->buffers[i]->ds3db == NULL)
 343                         continue;
 344                 if (ds3dl->dsound->buffers[i]->ds3db_need_recalc)
 345                 {
 346                         DSOUND_Mix3DBuffer(ds3dl->dsound->buffers[i]);
 347                 }
 348         }
 349 }
 350
 351 /*******************************************************************************
 352  *              IDirectSound3DBuffer
 353  */
 354
 355 /* IUnknown methods */
 356 static HRESULT WINAPI IDirectSound3DBufferImpl_QueryInterface(
 357         LPDIRECTSOUND3DBUFFER iface, REFIID riid, LPVOID *ppobj)
 358 {
 359         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 360
 361         TRACE("(%p,%s,%p)\n",This,debugstr_guid(riid),ppobj);
 362         return IDirectSoundBuffer_QueryInterface((LPDIRECTSOUNDBUFFER8)This->dsb, riid, ppobj);
 363 }
 364
 365 static ULONG WINAPI IDirectSound3DBufferImpl_AddRef(LPDIRECTSOUND3DBUFFER iface)
 366 {
 367         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 368         TRACE("(%p) ref was %ld, thread is %04lx\n",This, This->ref, GetCurrentThreadId());
 369         return InterlockedIncrement(&(This->ref));
 370 }
 371
 372 static ULONG WINAPI IDirectSound3DBufferImpl_Release(LPDIRECTSOUND3DBUFFER iface)
 373 {
 374         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 375         ULONG ulReturn;
 376
 377         TRACE("(%p) ref was %ld, thread is %04lx\n",This, This->ref, GetCurrentThreadId());
 378         ulReturn = InterlockedDecrement(&(This->ref));
 379         if (!ulReturn) {
 380                 This->dsb->ds3db = NULL;
 381                 IDirectSoundBuffer_Release((LPDIRECTSOUNDBUFFER8)This->dsb);
 382                 HeapFree(GetProcessHeap(),0,This);
 383                 TRACE("(%p) released\n",This);
 384         }
 385
 386         return ulReturn;
 387 }
 388
 389 /* IDirectSound3DBuffer methods */
 390 static HRESULT WINAPI IDirectSound3DBufferImpl_GetAllParameters(
 391         LPDIRECTSOUND3DBUFFER iface,
 392         LPDS3DBUFFER lpDs3dBuffer)
 393 {
 394         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 395         TRACE("(%p,%p)\n",This,lpDs3dBuffer);
 396
 397         if (lpDs3dBuffer == NULL) {
 398                 WARN("invalid parameter: lpDs3dBuffer == NULL\n");
 399                 return DSERR_INVALIDPARAM;
 400         }
 401
 402         if (lpDs3dBuffer->dwSize < sizeof(*lpDs3dBuffer)) {
 403                 WARN("invalid parameter: lpDs3dBuffer->dwSize = %ld < %d\n",lpDs3dBuffer->dwSize, sizeof(*lpDs3dBuffer));
 404                 return DSERR_INVALIDPARAM;
 405         }
 406
 407         TRACE("returning: all parameters\n");
 408         *lpDs3dBuffer = This->dsb->ds3db_ds3db;
 409         return DS_OK;
 410 }
 411
 412 static HRESULT WINAPI IDirectSound3DBufferImpl_GetConeAngles(
 413         LPDIRECTSOUND3DBUFFER iface,
 414         LPDWORD lpdwInsideConeAngle,
 415         LPDWORD lpdwOutsideConeAngle)
 416 {
 417         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 418         TRACE("returning: Inside Cone Angle = %ld degrees; Outside Cone Angle = %ld degrees\n",
 419                 This->dsb->ds3db_ds3db.dwInsideConeAngle, This->dsb->ds3db_ds3db.dwOutsideConeAngle);
 420         *lpdwInsideConeAngle = This->dsb->ds3db_ds3db.dwInsideConeAngle;
 421         *lpdwOutsideConeAngle = This->dsb->ds3db_ds3db.dwOutsideConeAngle;
 422         return DS_OK;
 423 }
 424
 425 static HRESULT WINAPI IDirectSound3DBufferImpl_GetConeOrientation(
 426         LPDIRECTSOUND3DBUFFER iface,
 427         LPD3DVECTOR lpvConeOrientation)
 428 {
 429         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 430         TRACE("returning: Cone Orientation vector = (%f,%f,%f)\n",
 431                 This->dsb->ds3db_ds3db.vConeOrientation.x,
 432                 This->dsb->ds3db_ds3db.vConeOrientation.y,
 433                 This->dsb->ds3db_ds3db.vConeOrientation.z);
 434         *lpvConeOrientation = This->dsb->ds3db_ds3db.vConeOrientation;
 435         return DS_OK;
 436 }
 437
 438 static HRESULT WINAPI IDirectSound3DBufferImpl_GetConeOutsideVolume(
 439         LPDIRECTSOUND3DBUFFER iface,
 440         LPLONG lplConeOutsideVolume)
 441 {
 442         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 443         TRACE("returning: Cone Outside Volume = %ld\n", This->dsb->ds3db_ds3db.lConeOutsideVolume);
 444         *lplConeOutsideVolume = This->dsb->ds3db_ds3db.lConeOutsideVolume;
 445         return DS_OK;
 446 }
 447
 448 static HRESULT WINAPI IDirectSound3DBufferImpl_GetMaxDistance(
 449         LPDIRECTSOUND3DBUFFER iface,
 450         LPD3DVALUE lpfMaxDistance)
 451 {
 452         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 453         TRACE("returning: Max Distance = %f\n", This->dsb->ds3db_ds3db.flMaxDistance);
 454         *lpfMaxDistance = This->dsb->ds3db_ds3db.flMaxDistance;
 455         return DS_OK;
 456 }
 457
 458 static HRESULT WINAPI IDirectSound3DBufferImpl_GetMinDistance(
 459         LPDIRECTSOUND3DBUFFER iface,
 460         LPD3DVALUE lpfMinDistance)
 461 {
 462         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 463         TRACE("returning: Min Distance = %f\n", This->dsb->ds3db_ds3db.flMinDistance);
 464         *lpfMinDistance = This->dsb->ds3db_ds3db.flMinDistance;
 465         return DS_OK;
 466 }
 467
 468 static HRESULT WINAPI IDirectSound3DBufferImpl_GetMode(
 469         LPDIRECTSOUND3DBUFFER iface,
 470         LPDWORD lpdwMode)
 471 {
 472         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 473         TRACE("returning: Mode = %ld\n", This->dsb->ds3db_ds3db.dwMode);
 474         *lpdwMode = This->dsb->ds3db_ds3db.dwMode;
 475         return DS_OK;
 476 }
 477
 478 static HRESULT WINAPI IDirectSound3DBufferImpl_GetPosition(
 479         LPDIRECTSOUND3DBUFFER iface,
 480         LPD3DVECTOR lpvPosition)
 481 {
 482         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 483         TRACE("returning: Position vector = (%f,%f,%f)\n",
 484                 This->dsb->ds3db_ds3db.vPosition.x,
 485                 This->dsb->ds3db_ds3db.vPosition.y,
 486                 This->dsb->ds3db_ds3db.vPosition.z);
 487         *lpvPosition = This->dsb->ds3db_ds3db.vPosition;
 488         return DS_OK;
 489 }
 490
 491 static HRESULT WINAPI IDirectSound3DBufferImpl_GetVelocity(
 492         LPDIRECTSOUND3DBUFFER iface,
 493         LPD3DVECTOR lpvVelocity)
 494 {
 495         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 496         TRACE("returning: Velocity vector = (%f,%f,%f)\n",
 497                 This->dsb->ds3db_ds3db.vVelocity.x,
 498                 This->dsb->ds3db_ds3db.vVelocity.y,
 499                 This->dsb->ds3db_ds3db.vVelocity.z);
 500         *lpvVelocity = This->dsb->ds3db_ds3db.vVelocity;
 501         return DS_OK;
 502 }
 503
 504 static HRESULT WINAPI IDirectSound3DBufferImpl_SetAllParameters(
 505         LPDIRECTSOUND3DBUFFER iface,
 506         LPCDS3DBUFFER lpcDs3dBuffer,
 507         DWORD dwApply)
 508 {
 509         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 510         DWORD status = DSERR_INVALIDPARAM;
 511         TRACE("(%p,%p,%lx)\n",iface,lpcDs3dBuffer,dwApply);
 512
 513         if (lpcDs3dBuffer == NULL) {
 514                 WARN("invalid parameter: lpcDs3dBuffer == NULL\n");
 515                 return status;
 516         }
 517
 518         if (lpcDs3dBuffer->dwSize != sizeof(DS3DBUFFER)) {
 519                 WARN("invalid parameter: lpcDs3dBuffer->dwSize = %ld != %d\n",
 520                         lpcDs3dBuffer->dwSize, sizeof(DS3DBUFFER));
 521                 return status;
 522         }
 523
 524         TRACE("setting: all parameters; dwApply = %ld\n", dwApply);
 525         This->dsb->ds3db_ds3db = *lpcDs3dBuffer;
 526
 527         if (dwApply == DS3D_IMMEDIATE)
 528         {
 529                 DSOUND_Mix3DBuffer(This->dsb);
 530         }
 531         This->dsb->ds3db_need_recalc = TRUE;
 532         status = DS_OK;
 533
 534         return status;
 535 }
 536
 537 static HRESULT WINAPI IDirectSound3DBufferImpl_SetConeAngles(
 538         LPDIRECTSOUND3DBUFFER iface,
 539         DWORD dwInsideConeAngle,
 540         DWORD dwOutsideConeAngle,
 541         DWORD dwApply)
 542 {
 543         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 544         TRACE("setting: Inside Cone Angle = %ld; Outside Cone Angle = %ld; dwApply = %ld\n",
 545                 dwInsideConeAngle, dwOutsideConeAngle, dwApply);
 546         This->dsb->ds3db_ds3db.dwInsideConeAngle = dwInsideConeAngle;
 547         This->dsb->ds3db_ds3db.dwOutsideConeAngle = dwOutsideConeAngle;
 548         if (dwApply == DS3D_IMMEDIATE)
 549         {
 550                 DSOUND_Mix3DBuffer(This->dsb);
 551         }
 552         This->dsb->ds3db_need_recalc = TRUE;
 553         return DS_OK;
 554 }
 555
 556 static HRESULT WINAPI IDirectSound3DBufferImpl_SetConeOrientation(
 557         LPDIRECTSOUND3DBUFFER iface,
 558         D3DVALUE x, D3DVALUE y, D3DVALUE z,
 559         DWORD dwApply)
 560 {
 561         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 562         TRACE("setting: Cone Orientation vector = (%f,%f,%f); dwApply = %ld\n", x, y, z, dwApply);
 563         This->dsb->ds3db_ds3db.vConeOrientation.x = x;
 564         This->dsb->ds3db_ds3db.vConeOrientation.y = y;
 565         This->dsb->ds3db_ds3db.vConeOrientation.z = z;
 566         if (dwApply == DS3D_IMMEDIATE)
 567         {
 568                 This->dsb->ds3db_need_recalc = FALSE;
 569                 DSOUND_Mix3DBuffer(This->dsb);
 570         }
 571         This->dsb->ds3db_need_recalc = TRUE;
 572         return DS_OK;
 573 }
 574
 575 static HRESULT WINAPI IDirectSound3DBufferImpl_SetConeOutsideVolume(
 576         LPDIRECTSOUND3DBUFFER iface,
 577         LONG lConeOutsideVolume,
 578         DWORD dwApply)
 579 {
 580         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 581         TRACE("setting: ConeOutsideVolume = %ld; dwApply = %ld\n", lConeOutsideVolume, dwApply);
 582         This->dsb->ds3db_ds3db.lConeOutsideVolume = lConeOutsideVolume;
 583         if (dwApply == DS3D_IMMEDIATE)
 584         {
 585                 This->dsb->ds3db_need_recalc = FALSE;
 586                 DSOUND_Mix3DBuffer(This->dsb);
 587         }
 588         This->dsb->ds3db_need_recalc = TRUE;
 589         return DS_OK;
 590 }
 591
 592 static HRESULT WINAPI IDirectSound3DBufferImpl_SetMaxDistance(
 593         LPDIRECTSOUND3DBUFFER iface,
 594         D3DVALUE fMaxDistance,
 595         DWORD dwApply)
 596 {
 597         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 598         TRACE("setting: MaxDistance = %f; dwApply = %ld\n", fMaxDistance, dwApply);
 599         This->dsb->ds3db_ds3db.flMaxDistance = fMaxDistance;
 600         if (dwApply == DS3D_IMMEDIATE)
 601         {
 602                 This->dsb->ds3db_need_recalc = FALSE;
 603                 DSOUND_Mix3DBuffer(This->dsb);
 604         }
 605         This->dsb->ds3db_need_recalc = TRUE;
 606         return DS_OK;
 607 }
 608
 609 static HRESULT WINAPI IDirectSound3DBufferImpl_SetMinDistance(
 610         LPDIRECTSOUND3DBUFFER iface,
 611         D3DVALUE fMinDistance,
 612         DWORD dwApply)
 613 {
 614         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 615         TRACE("setting: MinDistance = %f; dwApply = %ld\n", fMinDistance, dwApply);
 616         This->dsb->ds3db_ds3db.flMinDistance = fMinDistance;
 617         if (dwApply == DS3D_IMMEDIATE)
 618         {
 619                 This->dsb->ds3db_need_recalc = FALSE;
 620                 DSOUND_Mix3DBuffer(This->dsb);
 621         }
 622         This->dsb->ds3db_need_recalc = TRUE;
 623         return DS_OK;
 624 }
 625
 626 static HRESULT WINAPI IDirectSound3DBufferImpl_SetMode(
 627         LPDIRECTSOUND3DBUFFER iface,
 628         DWORD dwMode,
 629         DWORD dwApply)
 630 {
 631         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 632         TRACE("setting: Mode = %ld; dwApply = %ld\n", dwMode, dwApply);
 633         This->dsb->ds3db_ds3db.dwMode = dwMode;
 634         if (dwApply == DS3D_IMMEDIATE)
 635         {
 636                 This->dsb->ds3db_need_recalc = FALSE;
 637                 DSOUND_Mix3DBuffer(This->dsb);
 638         }
 639         This->dsb->ds3db_need_recalc = TRUE;
 640         return DS_OK;
 641 }
 642
 643 static HRESULT WINAPI IDirectSound3DBufferImpl_SetPosition(
 644         LPDIRECTSOUND3DBUFFER iface,
 645         D3DVALUE x, D3DVALUE y, D3DVALUE z,
 646         DWORD dwApply)
 647 {
 648         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 649         TRACE("setting: Position vector = (%f,%f,%f); dwApply = %ld\n", x, y, z, dwApply);
 650         This->dsb->ds3db_ds3db.vPosition.x = x;
 651         This->dsb->ds3db_ds3db.vPosition.y = y;
 652         This->dsb->ds3db_ds3db.vPosition.z = z;
 653         if (dwApply == DS3D_IMMEDIATE)
 654         {
 655                 This->dsb->ds3db_need_recalc = FALSE;
 656                 DSOUND_Mix3DBuffer(This->dsb);
 657         }
 658         This->dsb->ds3db_need_recalc = TRUE;
 659         return DS_OK;
 660 }
 661
 662 static HRESULT WINAPI IDirectSound3DBufferImpl_SetVelocity(
 663         LPDIRECTSOUND3DBUFFER iface,
 664         D3DVALUE x, D3DVALUE y, D3DVALUE z,
 665         DWORD dwApply)
 666 {
 667         IDirectSound3DBufferImpl *This = (IDirectSound3DBufferImpl *)iface;
 668         TRACE("setting: Velocity vector = (%f,%f,%f); dwApply = %ld\n", x, y, z, dwApply);
 669         This->dsb->ds3db_ds3db.vVelocity.x = x;
 670         This->dsb->ds3db_ds3db.vVelocity.y = y;
 671         This->dsb->ds3db_ds3db.vVelocity.z = z;
 672         if (dwApply == DS3D_IMMEDIATE)
 673         {
 674                 This->dsb->ds3db_need_recalc = FALSE;
 675                 DSOUND_Mix3DBuffer(This->dsb);
 676         }
 677         This->dsb->ds3db_need_recalc = TRUE;
 678         return DS_OK;
 679 }
 680
 681 static IDirectSound3DBufferVtbl ds3dbvt =
 682 {
 683         /* IUnknown methods */
 684         IDirectSound3DBufferImpl_QueryInterface,
 685         IDirectSound3DBufferImpl_AddRef,
 686         IDirectSound3DBufferImpl_Release,
 687         /* IDirectSound3DBuffer methods */
 688         IDirectSound3DBufferImpl_GetAllParameters,
 689         IDirectSound3DBufferImpl_GetConeAngles,
 690         IDirectSound3DBufferImpl_GetConeOrientation,
 691         IDirectSound3DBufferImpl_GetConeOutsideVolume,
 692         IDirectSound3DBufferImpl_GetMaxDistance,
 693         IDirectSound3DBufferImpl_GetMinDistance,
 694         IDirectSound3DBufferImpl_GetMode,
 695         IDirectSound3DBufferImpl_GetPosition,
 696         IDirectSound3DBufferImpl_GetVelocity,
 697         IDirectSound3DBufferImpl_SetAllParameters,
 698         IDirectSound3DBufferImpl_SetConeAngles,
 699         IDirectSound3DBufferImpl_SetConeOrientation,
 700         IDirectSound3DBufferImpl_SetConeOutsideVolume,
 701         IDirectSound3DBufferImpl_SetMaxDistance,
 702         IDirectSound3DBufferImpl_SetMinDistance,
 703         IDirectSound3DBufferImpl_SetMode,
 704         IDirectSound3DBufferImpl_SetPosition,
 705         IDirectSound3DBufferImpl_SetVelocity,
 706 };
 707
 708 HRESULT WINAPI IDirectSound3DBufferImpl_Create(
 709         IDirectSoundBufferImpl *dsb,
 710         IDirectSound3DBufferImpl **pds3db)
 711 {
 712         IDirectSound3DBufferImpl *ds3db;
 713         TRACE("(%p,%p)\n",dsb,pds3db);
 714
 715         ds3db = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(*ds3db));
 716
 717         if (ds3db == NULL) {
 718                 WARN("out of memory\n");
 719                 *pds3db = 0;
 720                 return DSERR_OUTOFMEMORY;
 721         }
 722
 723         ds3db->ref = 0;
 724         ds3db->dsb = dsb;
 725         ds3db->lpVtbl = &ds3dbvt;
 726
 727         ds3db->dsb->ds3db_ds3db.dwSize = sizeof(DS3DBUFFER);
 728         ds3db->dsb->ds3db_ds3db.vPosition.x = 0.0;
 729         ds3db->dsb->ds3db_ds3db.vPosition.y = 0.0;
 730         ds3db->dsb->ds3db_ds3db.vPosition.z = 0.0;
 731         ds3db->dsb->ds3db_ds3db.vVelocity.x = 0.0;
 732         ds3db->dsb->ds3db_ds3db.vVelocity.y = 0.0;
 733         ds3db->dsb->ds3db_ds3db.vVelocity.z = 0.0;
 734         ds3db->dsb->ds3db_ds3db.dwInsideConeAngle = DS3D_DEFAULTCONEANGLE;
 735         ds3db->dsb->ds3db_ds3db.dwOutsideConeAngle = DS3D_DEFAULTCONEANGLE;
 736         ds3db->dsb->ds3db_ds3db.vConeOrientation.x = 0.0;
 737         ds3db->dsb->ds3db_ds3db.vConeOrientation.y = 0.0;
 738         ds3db->dsb->ds3db_ds3db.vConeOrientation.z = 0.0;
 739         ds3db->dsb->ds3db_ds3db.lConeOutsideVolume = DS3D_DEFAULTCONEOUTSIDEVOLUME;
 740         ds3db->dsb->ds3db_ds3db.flMinDistance = DS3D_DEFAULTMINDISTANCE;
 741         ds3db->dsb->ds3db_ds3db.flMaxDistance = DS3D_DEFAULTMAXDISTANCE;
 742         ds3db->dsb->ds3db_ds3db.dwMode = DS3DMODE_NORMAL;
 743
 744         ds3db->dsb->ds3db_need_recalc = TRUE;
 745
 746         IDirectSoundBuffer_AddRef((LPDIRECTSOUNDBUFFER8)dsb);
 747
 748         *pds3db = ds3db;
 749         return S_OK;
 750 }
 751
 752 HRESULT WINAPI IDirectSound3DBufferImpl_Destroy(
 753     IDirectSound3DBufferImpl *pds3db)
 754 {
 755     TRACE("(%p)\n",pds3db);
 756
 757     while (IDirectSound3DBufferImpl_Release((LPDIRECTSOUND3DBUFFER)pds3db) > 0);
 758
 759     return S_OK;
 760 }
 761
 762 /*******************************************************************************
 763  *            IDirectSound3DListener
 764  */
 765
 766 /* IUnknown methods */
 767 static HRESULT WINAPI IDirectSound3DListenerImpl_QueryInterface(
 768         LPDIRECTSOUND3DLISTENER iface, REFIID riid, LPVOID *ppobj)
 769 {
 770         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 771
 772         TRACE("(%p,%s,%p)\n",This,debugstr_guid(riid),ppobj);
 773
 774         if (ppobj == NULL) {
 775                 WARN("invalid parameter\n");
 776                 return E_INVALIDARG;
 777         }
 778
 779         *ppobj = NULL;  /* assume failure */
 780
 781         if ( IsEqualGUID(riid, &IID_IUnknown) ||
 782              IsEqualGUID(riid, &IID_IDirectSound3DListener ) ) {
 783                 IDirectSound3DListener_AddRef((LPDIRECTSOUND3DLISTENER)This);
 784                 *ppobj = This;
 785                 return S_OK;
 786         }
 787
 788         if ( IsEqualGUID(riid, &IID_IDirectSoundBuffer) ) {
 789                 if (!This->dsound->primary)
 790                         PrimaryBufferImpl_Create(This->dsound, &(This->dsound->primary), &(This->dsound->dsbd));
 791                 if (This->dsound->primary) {
 792                         *ppobj = This->dsound->primary;
 793                         IDirectSoundBuffer_AddRef((LPDIRECTSOUNDBUFFER)*ppobj);
 794                         return S_OK;
 795                 }
 796         }
 797
 798         FIXME( "Unknown IID %s\n", debugstr_guid( riid ) );
 799         return E_NOINTERFACE;
 800 }
 801
 802 static ULONG WINAPI IDirectSound3DListenerImpl_AddRef(LPDIRECTSOUND3DLISTENER iface)
 803 {
 804         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 805         TRACE("(%p) ref was %ld, thread is %04lx\n",This, This->ref, GetCurrentThreadId());
 806         return InterlockedIncrement(&(This->ref));
 807 }
 808
 809 static ULONG WINAPI IDirectSound3DListenerImpl_Release(LPDIRECTSOUND3DLISTENER iface)
 810 {
 811         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 812         ULONG ulReturn;
 813
 814         TRACE("(%p) ref was %ld, thread is %04lx\n",This, This->ref, GetCurrentThreadId());
 815         ulReturn = InterlockedDecrement(&(This->ref));
 816
 817         /* Free all resources */
 818         if( ulReturn == 0 ) {
 819                 This->dsound->listener = 0;
 820                 HeapFree(GetProcessHeap(),0,This);
 821                 TRACE("(%p) released\n",This);
 822         }
 823
 824         return ulReturn;
 825 }
 826
 827 /* IDirectSound3DListener methods */
 828 static HRESULT WINAPI IDirectSound3DListenerImpl_GetAllParameter(
 829         LPDIRECTSOUND3DLISTENER iface,
 830         LPDS3DLISTENER lpDS3DL)
 831 {
 832         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 833         TRACE("(%p,%p)\n",This,lpDS3DL);
 834
 835         if (lpDS3DL == NULL) {
 836                 WARN("invalid parameter: lpDS3DL == NULL\n");
 837                 return DSERR_INVALIDPARAM;
 838         }
 839
 840         if (lpDS3DL->dwSize < sizeof(*lpDS3DL)) {
 841                 WARN("invalid parameter: lpDS3DL->dwSize = %ld < %d\n",lpDS3DL->dwSize, sizeof(*lpDS3DL));
 842                 return DSERR_INVALIDPARAM;
 843         }
 844
 845         TRACE("returning: all parameters\n");
 846         *lpDS3DL = This->dsound->ds3dl;
 847         return DS_OK;
 848 }
 849
 850 static HRESULT WINAPI IDirectSound3DListenerImpl_GetDistanceFactor(
 851         LPDIRECTSOUND3DLISTENER iface,
 852         LPD3DVALUE lpfDistanceFactor)
 853 {
 854         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 855         TRACE("returning: Distance Factor = %f\n", This->dsound->ds3dl.flDistanceFactor);
 856         *lpfDistanceFactor = This->dsound->ds3dl.flDistanceFactor;
 857         return DS_OK;
 858 }
 859
 860 static HRESULT WINAPI IDirectSound3DListenerImpl_GetDopplerFactor(
 861         LPDIRECTSOUND3DLISTENER iface,
 862         LPD3DVALUE lpfDopplerFactor)
 863 {
 864         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 865         TRACE("returning: Doppler Factor = %f\n", This->dsound->ds3dl.flDopplerFactor);
 866         *lpfDopplerFactor = This->dsound->ds3dl.flDopplerFactor;
 867         return DS_OK;
 868 }
 869
 870 static HRESULT WINAPI IDirectSound3DListenerImpl_GetOrientation(
 871         LPDIRECTSOUND3DLISTENER iface,
 872         LPD3DVECTOR lpvOrientFront,
 873         LPD3DVECTOR lpvOrientTop)
 874 {
 875         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 876         TRACE("returning: OrientFront vector = (%f,%f,%f); OrientTop vector = (%f,%f,%f)\n", This->dsound->ds3dl.vOrientFront.x, \
 877         This->dsound->ds3dl.vOrientFront.y, This->dsound->ds3dl.vOrientFront.z, This->dsound->ds3dl.vOrientTop.x, This->dsound->ds3dl.vOrientTop.y, \
 878         This->dsound->ds3dl.vOrientTop.z);
 879         *lpvOrientFront = This->dsound->ds3dl.vOrientFront;
 880         *lpvOrientTop = This->dsound->ds3dl.vOrientTop;
 881         return DS_OK;
 882 }
 883
 884 static HRESULT WINAPI IDirectSound3DListenerImpl_GetPosition(
 885         LPDIRECTSOUND3DLISTENER iface,
 886         LPD3DVECTOR lpvPosition)
 887 {
 888         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 889         TRACE("returning: Position vector = (%f,%f,%f)\n", This->dsound->ds3dl.vPosition.x, This->dsound->ds3dl.vPosition.y, This->dsound->ds3dl.vPosition.z);
 890         *lpvPosition = This->dsound->ds3dl.vPosition;
 891         return DS_OK;
 892 }
 893
 894 static HRESULT WINAPI IDirectSound3DListenerImpl_GetRolloffFactor(
 895         LPDIRECTSOUND3DLISTENER iface,
 896         LPD3DVALUE lpfRolloffFactor)
 897 {
 898         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 899         TRACE("returning: RolloffFactor = %f\n", This->dsound->ds3dl.flRolloffFactor);
 900         *lpfRolloffFactor = This->dsound->ds3dl.flRolloffFactor;
 901         return DS_OK;
 902 }
 903
 904 static HRESULT WINAPI IDirectSound3DListenerImpl_GetVelocity(
 905         LPDIRECTSOUND3DLISTENER iface,
 906         LPD3DVECTOR lpvVelocity)
 907 {
 908         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 909         TRACE("returning: Velocity vector = (%f,%f,%f)\n", This->dsound->ds3dl.vVelocity.x, This->dsound->ds3dl.vVelocity.y, This->dsound->ds3dl.vVelocity.z);
 910         *lpvVelocity = This->dsound->ds3dl.vVelocity;
 911         return DS_OK;
 912 }
 913
 914 static HRESULT WINAPI IDirectSound3DListenerImpl_SetAllParameters(
 915         LPDIRECTSOUND3DLISTENER iface,
 916         LPCDS3DLISTENER lpcDS3DL,
 917         DWORD dwApply)
 918 {
 919         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 920         TRACE("setting: all parameters; dwApply = %ld\n", dwApply);
 921         This->dsound->ds3dl = *lpcDS3DL;
 922         if (dwApply == DS3D_IMMEDIATE)
 923         {
 924                 This->dsound->ds3dl_need_recalc = FALSE;
 925                 DSOUND_ChangeListener(This);
 926         }
 927         This->dsound->ds3dl_need_recalc = TRUE;
 928         return DS_OK;
 929 }
 930
 931 static HRESULT WINAPI IDirectSound3DListenerImpl_SetDistanceFactor(
 932         LPDIRECTSOUND3DLISTENER iface,
 933         D3DVALUE fDistanceFactor,
 934         DWORD dwApply)
 935 {
 936         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 937         TRACE("setting: Distance Factor = %f; dwApply = %ld\n", fDistanceFactor, dwApply);
 938         This->dsound->ds3dl.flDistanceFactor = fDistanceFactor;
 939         if (dwApply == DS3D_IMMEDIATE)
 940         {
 941                 This->dsound->ds3dl_need_recalc = FALSE;
 942                 DSOUND_ChangeListener(This);
 943         }
 944         This->dsound->ds3dl_need_recalc = TRUE;
 945         return DS_OK;
 946 }
 947
 948 static HRESULT WINAPI IDirectSound3DListenerImpl_SetDopplerFactor(
 949         LPDIRECTSOUND3DLISTENER iface,
 950         D3DVALUE fDopplerFactor,
 951         DWORD dwApply)
 952 {
 953         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 954         TRACE("setting: Doppler Factor = %f; dwApply = %ld\n", fDopplerFactor, dwApply);
 955         This->dsound->ds3dl.flDopplerFactor = fDopplerFactor;
 956         if (dwApply == DS3D_IMMEDIATE)
 957         {
 958                 This->dsound->ds3dl_need_recalc = FALSE;
 959                 DSOUND_ChangeListener(This);
 960         }
 961         This->dsound->ds3dl_need_recalc = TRUE;
 962         return DS_OK;
 963 }
 964
 965 static HRESULT WINAPI IDirectSound3DListenerImpl_SetOrientation(
 966         LPDIRECTSOUND3DLISTENER iface,
 967         D3DVALUE xFront, D3DVALUE yFront, D3DVALUE zFront,
 968         D3DVALUE xTop, D3DVALUE yTop, D3DVALUE zTop,
 969         DWORD dwApply)
 970 {
 971         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 972         TRACE("setting: Front vector = (%f,%f,%f); Top vector = (%f,%f,%f); dwApply = %ld\n", \
 973         xFront, yFront, zFront, xTop, yTop, zTop, dwApply);
 974         This->dsound->ds3dl.vOrientFront.x = xFront;
 975         This->dsound->ds3dl.vOrientFront.y = yFront;
 976         This->dsound->ds3dl.vOrientFront.z = zFront;
 977         This->dsound->ds3dl.vOrientTop.x = xTop;
 978         This->dsound->ds3dl.vOrientTop.y = yTop;
 979         This->dsound->ds3dl.vOrientTop.z = zTop;
 980         if (dwApply == DS3D_IMMEDIATE)
 981         {
 982                 This->dsound->ds3dl_need_recalc = FALSE;
 983                 DSOUND_ChangeListener(This);
 984         }
 985         This->dsound->ds3dl_need_recalc = TRUE;
 986         return DS_OK;
 987 }
 988
 989 static HRESULT WINAPI IDirectSound3DListenerImpl_SetPosition(
 990         LPDIRECTSOUND3DLISTENER iface,
 991         D3DVALUE x, D3DVALUE y, D3DVALUE z,
 992         DWORD dwApply)
 993 {
 994         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
 995         TRACE("setting: Position vector = (%f,%f,%f); dwApply = %ld\n", x, y, z, dwApply);
 996         This->dsound->ds3dl.vPosition.x = x;
 997         This->dsound->ds3dl.vPosition.y = y;
 998         This->dsound->ds3dl.vPosition.z = z;
 999         if (dwApply == DS3D_IMMEDIATE)
1000         {
1001                 This->dsound->ds3dl_need_recalc = FALSE;
1002                 DSOUND_ChangeListener(This);
1003         }
1004         This->dsound->ds3dl_need_recalc = TRUE;
1005         return DS_OK;
1006 }
1007
1008 static HRESULT WINAPI IDirectSound3DListenerImpl_SetRolloffFactor(
1009         LPDIRECTSOUND3DLISTENER iface,
1010         D3DVALUE fRolloffFactor,
1011         DWORD dwApply)
1012 {
1013         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
1014         TRACE("setting: Rolloff Factor = %f; dwApply = %ld\n", fRolloffFactor, dwApply);
1015         This->dsound->ds3dl.flRolloffFactor = fRolloffFactor;
1016         if (dwApply == DS3D_IMMEDIATE)
1017         {
1018                 This->dsound->ds3dl_need_recalc = FALSE;
1019                 DSOUND_ChangeListener(This);
1020         }
1021         This->dsound->ds3dl_need_recalc = TRUE;
1022         return DS_OK;
1023 }
1024
1025 static HRESULT WINAPI IDirectSound3DListenerImpl_SetVelocity(
1026         LPDIRECTSOUND3DLISTENER iface,
1027         D3DVALUE x, D3DVALUE y, D3DVALUE z,
1028         DWORD dwApply)
1029 {
1030         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
1031         TRACE("setting: Velocity vector = (%f,%f,%f); dwApply = %ld\n", x, y, z, dwApply);
1032         This->dsound->ds3dl.vVelocity.x = x;
1033         This->dsound->ds3dl.vVelocity.y = y;
1034         This->dsound->ds3dl.vVelocity.z = z;
1035         if (dwApply == DS3D_IMMEDIATE)
1036         {
1037                 This->dsound->ds3dl_need_recalc = FALSE;
1038                 DSOUND_ChangeListener(This);
1039         }
1040         This->dsound->ds3dl_need_recalc = TRUE;
1041         return DS_OK;
1042 }
1043
1044 static HRESULT WINAPI IDirectSound3DListenerImpl_CommitDeferredSettings(
1045         LPDIRECTSOUND3DLISTENER iface)
1046 {
1047         IDirectSound3DListenerImpl *This = (IDirectSound3DListenerImpl *)iface;
1048         TRACE("\n");
1049         DSOUND_ChangeListener(This);
1050         return DS_OK;
1051 }
1052
1053 static IDirectSound3DListenerVtbl ds3dlvt =
1054 {
1055         /* IUnknown methods */
1056         IDirectSound3DListenerImpl_QueryInterface,
1057         IDirectSound3DListenerImpl_AddRef,
1058         IDirectSound3DListenerImpl_Release,
1059         /* IDirectSound3DListener methods */
1060         IDirectSound3DListenerImpl_GetAllParameter,
1061         IDirectSound3DListenerImpl_GetDistanceFactor,
1062         IDirectSound3DListenerImpl_GetDopplerFactor,
1063         IDirectSound3DListenerImpl_GetOrientation,
1064         IDirectSound3DListenerImpl_GetPosition,
1065         IDirectSound3DListenerImpl_GetRolloffFactor,
1066         IDirectSound3DListenerImpl_GetVelocity,
1067         IDirectSound3DListenerImpl_SetAllParameters,
1068         IDirectSound3DListenerImpl_SetDistanceFactor,
1069         IDirectSound3DListenerImpl_SetDopplerFactor,
1070         IDirectSound3DListenerImpl_SetOrientation,
1071         IDirectSound3DListenerImpl_SetPosition,
1072         IDirectSound3DListenerImpl_SetRolloffFactor,
1073         IDirectSound3DListenerImpl_SetVelocity,
1074         IDirectSound3DListenerImpl_CommitDeferredSettings,
1075 };
1076
1077 HRESULT WINAPI IDirectSound3DListenerImpl_Create(
1078         PrimaryBufferImpl *This,
1079         IDirectSound3DListenerImpl **pdsl)
1080 {
1081         IDirectSound3DListenerImpl *dsl;
1082         TRACE("(%p,%p)\n",This,pdsl);
1083
1084         dsl = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(*dsl));
1085
1086         if (dsl == NULL) {
1087                 WARN("out of memory\n");
1088                 *pdsl = 0;
1089                 return DSERR_OUTOFMEMORY;
1090         }
1091
1092         dsl->ref = 0;
1093         dsl->lpVtbl = &ds3dlvt;
1094
1095         dsl->dsound = This->dsound;
1096
1097         dsl->dsound->ds3dl.dwSize = sizeof(DS3DLISTENER);
1098         dsl->dsound->ds3dl.vPosition.x = 0.0;
1099         dsl->dsound->ds3dl.vPosition.y = 0.0;
1100         dsl->dsound->ds3dl.vPosition.z = 0.0;
1101         dsl->dsound->ds3dl.vVelocity.x = 0.0;
1102         dsl->dsound->ds3dl.vVelocity.y = 0.0;
1103         dsl->dsound->ds3dl.vVelocity.z = 0.0;
1104         dsl->dsound->ds3dl.vOrientFront.x = 0.0;
1105         dsl->dsound->ds3dl.vOrientFront.y = 0.0;
1106         dsl->dsound->ds3dl.vOrientFront.z = 1.0;
1107         dsl->dsound->ds3dl.vOrientTop.x = 0.0;
1108         dsl->dsound->ds3dl.vOrientTop.y = 1.0;
1109         dsl->dsound->ds3dl.vOrientTop.z = 0.0;
1110         dsl->dsound->ds3dl.flDistanceFactor = DS3D_DEFAULTDISTANCEFACTOR;
1111         dsl->dsound->ds3dl.flRolloffFactor = DS3D_DEFAULTROLLOFFFACTOR;
1112         dsl->dsound->ds3dl.flDopplerFactor = DS3D_DEFAULTDOPPLERFACTOR;
1113
1114         dsl->dsound->ds3dl_need_recalc = TRUE;
1115
1116         *pdsl = dsl;
1117         return S_OK;
1118 }