[dicatek]

LECCIÓN2
Si la lección anterior te salió perfecto, puedes usarla como base, para la lección siguiente. Deberemos hacer algunos cambios para conseguir un sonido que se mueva en el espacio (3D).
Cuando el sonido se está moviendo debemos cambiar los valores de sourcevel a:

Código Delphi [-]
sourcevel: array [0..2] of TALfloat= ( 0.5, 0.0, 0.5);

Se mueve de izquierda a derecha y de adelante hacia atras.
El valor de sourcepos debe de ser cambiado:

Código Delphi [-]
sourcepos: array [0..2] of TALfloat= ( -5.0, 0.0, -5.0 );

It is placed left and front of you.
Para tener un sonido más interesante en ese aspecto, usaremos el siguiente, que lo podemos encontrar en el .Zip del final de la lección.

Código Delphi [-]
AlutLoadWavFile('footsteps.wav', format, data, size, freq, loop);

Si no pusimos el sonido anteriormente en bucle, debemos de hacerlo ahora:

Código Delphi [-]
AlSourcei ( source, AL_LOOPING, AL_TRUE);

Ahora debemos cambiar la posición del sonido cada cierto tiempo. Lo más facil, es usar un Timer dispuesto en el form. En el evento ontimer ponemos el siguiente código:

Código Delphi [-]
SourcePos[0] := SourcePos[0] + SourceVel[0];
SourcePos[1] := SourcePos[1] + SourceVel[1];
SourcePos[2] := SourcePos[2] + SourceVel[2];
If SourcePos[0] >= 5 then SourcePos[0]:=-5;
If SourcePos[2] >= 5 then SourcePos[2]:=-5;
alSourcefv(source, AL_POSITION, @SourcePos);

Cada segundo el sourcevel es añadido al sourcepos, y el nuevo sourcepos es mandado a OpenAL. Si el sourcepos llega a tu derecha, automáticamente vuelve a su posición inicial.
En el botón de reproducir, debemos añadir el siguiente código para poder activar el Timer:

Código Delphi [-]
Timer1.Enabled:=True;

En el botón de detención, también debemos añadir el siguiente código para anular el Timer.

Código Delphi [-]
Timer1.Enabled:=False;

Lección2
Escrito por Noeska.
Traducido por Gerard Turmo.
Corregido por ..............................