10 respuestas en este tema

[cHackAll]

Aquí­ les dejo un Spectrum Analyzer en consola que hice gracias al ocio.


En la imagen se ve el Spectum Analyzer en azul, y sobre la consola otro proyecto con fin ilustrativo)

Recordé que el proyecto Delphamp (que es un Winamp v1~ escrito en Delphi) tiene dicha visualización sin realizar por si mismo ninguna transformación, en cambio utiliza una librerí­a llamada FMOD que entre otras cosas, realiza la DSP FFT. Con ésta interesante librerí­a tampoco es necesario encargarse del Streaming multimedia.

delphi

program Spectrum; {$apptype console}
 
uses Windows, fmod, fmodtypes;
 
var Screen: array [0..80 * 25 - 1] of TCharInfo;
 
procedure WriteXY(const X, Y: SmallInt; AsciiChar: Char; Attributes: Word = FOREGROUND_BLUE);
var Index: Cardinal;
begin
 Index := Y * 80 + X;
 Screen[Index].AsciiChar := AsciiChar;
 Screen[Index].Attributes := Attributes;
end;
 
type
 TSingleArray = array [0..511] of Single;
 
const
 NumFreq = 18;
 BlockFreq = 128 / NumFreq;
 
var
 ConsoleCursorInfo: TConsoleCursorInfo = (dwSize: 1);
 Rect: TSmallRect = (Left: 0; Top: 0; Right: 79; Bottom: 24);
 
 Single: System.Single;
 hOutput, x, y, Value: Integer;
 Vector: ^TSingleArray;
 
begin
 hOutput := GetStdHandle(STD_OUTPUT_HANDLE);
 SetConsoleCursorInfo(hOutput, ConsoleCursorInfo);
 
 FSOUND_Init(44100, 2, 0);
 FSOUND_Stream_Play(FSOUND_FREE, FSOUND_Stream_Open('Every little thing is gonna be all right.mp3',  FSOUND_NORMAL, 0, 0));
 FSOUND_DSP_SetActive(FSOUND_DSP_GetFFTUnit, True);
 
 repeat Sleep(55); // do you remember [int 1Ch] ?
  Vector := Pointer(FSOUND_DSP_GetSpectrum);
  FillChar(Screen, SizeOf(Screen), 0);
  for x := 0 to (NumFreq - 1) do
   begin
    Single := 0;
    Value := Trunc(x * BlockFreq);
    for y := 0 to Trunc(BlockFreq) do
     if Vector[y + Value] > Single then
      Single := Vector[y + Value];
 
    Single := 60 * Single;
    if Single > 16 then
     Single := 16;
    Value := 16 - Trunc(Single);
 
    for y := 0 to (Value div 2) - 1 do
     WriteXY(x, y, #219);
    if (Value mod 2) <> 0 then
     WriteXY(x, Value div 2, #223);
    WriteXY(x, 8, #223);
   end;
  for y := 0 to 7 do
   WriteXY(18, y, #219);
  WriteXY(18, 8, #223);
  
  Inc(Rect.Right);
  Inc(Rect.Bottom);
  WriteConsoleOutput(hOutput, @Screen, PCoord(@Rect.Right)^, PCoord(@Rect)^, Rect);
 until FSOUND_GetChannelsPlaying = 0;
 FSOUND_Close;
end.

FMOD se descarga de aquí­, en cualquier caso solo es necesaria la librerí­a.

Enjoy!

[egostar]

Hey little Bro, que ocio tan bueno tienes

Salud OS

[Delphius]

Hola Javier, tendrí­a que ponerme a ver las operaciones del tipo aritméticas para comprender el tema...

Esto me recuerda el tema del vúmetro que intenté investigar y hacer hace tiempo... cuando comenzaba a hacerme mi reproductor (si habrá pasado tiempo).

Mi duda, disculpa lo tonta que pueda sonar, que diferencia hay entre ¿vúmetro y un equalizador? No se si podrás evacuarme esa duda, pero me tengo que sacar la pregunta .

Cuando cursé redes y estaba viendo el tema de las ondas, frecuencias, Furrier y demás... le pregunté a mi profe si existe una relación entre db (decibeles) y la frecuencia y si la hay como dado un valor hallar otro. El me comentó que es un tanto complejo el tema y como no daba tiempo dentro y fuera del programa como para verlo desistí­ de ello.

Esto te comento porque lo que ves en un reproductor de música es un equalizador ¿o no?

Ahora bien... lo que tu graficas, en el analizador de espectro ¿que és? Disculpa que "suene" demasiada tonta la pregunta pero me asalta la duda... y además ya tengo demasiado oxidados los conceptos .

Saludos,

[cHackAll]

...que ocio tan bueno tienes ...

verdad?

...tendrí­a que ponerme a ver las operaciones del tipo aritméticas para comprender el tema...

Lo dicho, simplemente FFT

...que diferencia hay entre ¿vúmetro y un equalizador? ...

Epa no se que es vúmetro... creo que es la misma cosa solo que el termino no esta asociado al DSP multimedia.

...Cuando cursé redes y estaba viendo el tema de las ondas, frecuencias, Furrier y demás... le pregunté a mi profe si existe una relación entre db (decibeles) y la frecuencia y si la hay como dado un valor hallar otro. El me comentó que es un tanto complejo el tema y como no daba tiempo dentro y fuera del programa como para verlo desistí­ de ello...

Un amigo electronico me dijo; "el hombre se paso al mundo digital porque no pudo comprender la complejidad del mundo analógico"

...Esto te comento porque lo que ves en un reproductor de música es un equalizador ¿o no?...

En mis palabras; El ecualizador que tu defines con el ratón son factores multiplicadores que modifican la onda de sonido, un Spectrum Analyzer al igual que un Osciloscopio es una visualizacion (representacion) del sonido.

...lo que tu graficas, en el analizador de espectro ¿que és?...

Creo haberlo dicho, pero acoto que cada barra es una frecuencia de sonido.

Salud

[escafandra]

Interesante código cHackAll. 

Desde mi punto de vista un Vúmetro es un instrumento para visualizar los niveles de audio. Clásicamente eran instrumentos de aguja. Un ecualizador es un dispositivo que sirve para atenuar o aumentar los niveles comprendidos en rangos de frecuencias establecidos, y a la par, puede representar esos niveles por cada rango.

Saludos.

[Caral]

Hola
Como me gusta ver lo que haces amigo, siempre innovando.
Saludos

[Delphius]

Muchas gracias Javier por las aclaraciones,

Tendré que volver a los libros porque de Fourier no recuerdo prácticamente nada.... por tanto menos aún recuerdo la FFT

Entonces deberé darle más que una mirada al tema.

Saludos,

[cHackAll]

...un Vúmetro es un instrumento para visualizar los niveles de audio. Clásicamente eran instrumentos de aguja...

Claro de volúmen jejeje, adjunto la primea prueba

...Tendré que volver a los libros porque de Fourier no recuerdo prácticamente nada.... por tanto menos aún recuerdo la FFT

Entonces deberé darle más que una mirada al tema...

Delphius; no tienes que aprender más que la teoria basica de lo que es FFT gracias a la ayuda de la libreria FMOD

Salud!

[Delphius]

Delphius; no tienes que aprender más que la teoria basica de lo que es FFT gracias a la ayuda de la libreria FMOD

Salud!

Recuerda con quien estás hablando amigo, ¡con Delphius! Si no lo repaso bien no lo entiendo

¡Lo peor de todo es que cuando dí­ el final de redes hablé hermosamente del tema!... se vé que no me quedó nada . Eso me pasa por estudiarlo de memoria

Pero bueno serí­a cuestión de ponerme a ver FMOD...
Revisando...

...

¿No le podrí­an haber agregado una función o procedimiento más no?  
¡Son más de 150! (cálculo a ojo)

Saludos,

[cHackAll]

...¡Son más de 150! (cálculo a ojo)...

FMOD 3.75 Programmers API (incluye ejemplos y documentacion)

 

Habiéndoles presentado la librerí­a FMOD, ahora les presento otra librerí­a con facultades comparables, me refiero a la librerí­a bass que también es utilizada en numerosos proyectos multimedia facilitando principalmente el Audio streming. (En el ejemplo adjunto, se demuestra el uso de bass con un mí­nimo de verificación de errores)

Para hacerlo más llamativo se ha creado en el ejemplo una clase base simple (TVis) que permite escribir visualizaciones simples comentadas brevemente según í­ndice;

TVisOBlur
Es un analizador de espectro con efecto de bruma.

TVisOBRotate
Es un anailzador de espectro que cambia de color mientras gira contra las agujas del reloj dejando una bruma*.

TVisSwa
Es un analizador de espectro común que muestra las primeras frecuencias sonoras.

TVisVP
Es un "voice print" simple.

TVisOScale
Es un osciloscopio mostrado a una curva de tiempo reducida (falta optimizar).

TVisCFire
Es un osciloscopio mostrado en una circunferencia la cual "deja" un efecto de fuego simple.

TVisSpectrum
Es un analizador de espectro "normal".

TVisVol
Es un vúmetro (requiere optimización).

TVisOscilloscope
Es un osciloscopio simple.

TVisCTunel
Es un osciloscopio circular, base para crear un efecto de túnel 3d.

Como podrán ver en el cogido, todas las visualizaciones varí­an en cuanto a su complejidad, demostrando la creación de efectos visuales en pocas lí­neas.

Dejo 6 visualizaciones libres para que Uds. en sus momentos de ocio puedan completar el ejemplo. Solo deben crear una clase hija de TVis sobreescribir los métodos Clear y/o Process con su codigo y añadirlo en la creacion del formulario.

PD; el ejemplo incluye un "SeekBar" (parte inferior) y re-Open (click derecho sobre el formulario)

Enjoy!