Articulos para programar aspectos de sonidos

[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 ..............................

[dicatek]

LECCIÓN3
Un sonido en movimiento no tiene demasiada complicación, pero ¿qué ocurre cuando tenemos varios sonidos en movimiento? Para realizar la siguiente lección, necesitaremos como base, el código hecho en la lección2.
El uso de sonidos múltiples no tiene la complicación que parece. En la unidad de la lección2 debemos añadir una sección de constantes (

Código Delphi [-]
const

) que contenga el siguiente codigo:

Código Delphi [-]
numbuffers = 3;
numsources = 3;
walk = 0;
ding = 1;
zap = 2;

Este código significa que tendremos tres buffers y tres sources. Tambien debemos dar nombres sencillos a dichos recursos.
La variable buffer y source necesitan ser modificados de la siguiente manera:

Código Delphi [-]
buffer : array [0..numbuffers] of TALuint;
source : array [0..numsources] of TALuint;

That gives you an array of buffers and an array of sources. Now every buffer has to be initialised in the oncreate event:

Código Delphi [-]
alGenBuffers(numbuffers, buffer);
alGenSources(numsources, source);

y cada sonido debe ser cargado:

Código Delphi [-]
AlutLoadWavFile(’footsteps.wav’, format, data, size, freq, loop);
AlBufferData(buffer[walk], format, data, size, freq);
AlutUnloadWav(format, data, size, freq);

AlutLoadWavFile(’ding.wav’, format, data, size, freq, loop);
AlBufferData(buffer[ding], format, data, size, freq);
AlutUnloadWav(format, data, size, freq);

AlutLoadWavFile(’phaser.wav’, format, data, size, freq, loop);
AlBufferData(buffer[zap], format, data, size, freq);
AlutUnloadWav(format, data, size, freq);

Tambien hemos de localizar cada source:

Código Delphi [-]
AlSourcei ( source[walk], AL_BUFFER, buffer[walk]);
AlSourcef ( source[walk], AL_PITCH, 1.0 );
AlSourcef ( source[walk], AL_GAIN, 1.0 );
AlSourcefv ( source[walk], AL_POSITION, @sourcepos);
AlSourcefv ( source[walk], AL_VELOCITY, @sourcevel);
AlSourcei ( source[walk], AL_LOOPING, AL_TRUE);

Debes añadir lo mismo para el sondidp "ding" y "zap".

Para reproducir un único sonido debemos de aplicar la siguiente función:

Código Delphi [-]
AlSourcePlay(source[walk]);
AlSourcePlay(source[ding]);
AlSourcePlay(source[zap]);

Lo mismo ocurre si queremos detener o pausar un sonido. Puedes crear botones para reproducir, pausar o detener cada sonido o bien crear un botón para reproducirlos todos a la vez.
The ontimer event also needs calls to multiple sources instead of one. You should have an idea on thow to change this.

Ahora todos los sonidos se mueven en la misma dirección y esto no es muy interesante. Change the ontimer event so that it only updates the walk source. In front of setting the source for ding and zap place something like this:

Código Delphi [-]
SourcePos[0] := 8.0;
SourcePos[1] := 1.0;
SourcePos[2] := -8.0;

You may also want to lower the gain (loudnes) of ding and zap to 0.2 The walk could use a boost to 1.5 . But you could place ding and zap further away to make them sound softer.
Lección3

[dicatek]

LECCIÓN4
Si tu quieres usar un sonido varias veces no es necesario cargarlo constantemente, basta con compartir el buffer usado.
Modifica el numsources a 4, pero deja el numbuffers a 3. Añade un nuevo nombre al nuevo source:

Código Delphi [-]
walk2 = 3;

En el evento oncreate necesitamos inicializar el nuevo source:

Código Delphi [-]
SourcePos[0] := -8.0;
SourcePos[1] := 0.0;
SourcePos[2] := -8.0;
AlSourcei ( source[walk2], AL_BUFFER, buffer[walk]);
AlSourcef ( source[walk2], AL_PITCH, 1.0 );
AlSourcef ( source[walk2], AL_GAIN, 0.2 );
AlSourcefv ( source[walk2], AL_POSITION, @sourcepos);
AlSourcefv ( source[walk2], AL_VELOCITY, @sourcevel);
AlSourcei ( source[walk2], AL_LOOPING, AL_TRUE);

You see instead of using buffer[walk2] we use buffer[walk] again. If you want you could use the same walk sound again and again.
For playing the new source it is easiest to create some new buttons for playing and stopping it.

If you feel up to it you really should change the way sourcepos and sourcevel are used. Instead of sharing it for all sounds you should give each source its own sourcepos and sourcevel.
Lección4