Визуальный спектр звука

[Abversoft]

Сообщение от raxp

да.

сдвигом во времени у вас будет смещение индекса массива отображения. В первый момент времени вы получили n-выборок, во второй момент времени еще n-выборок, в третий момент - еще n-выборок, в m-й момент времени - еще n-выборок.

Допустим на временной оси вашей визуализации вмещается окно на 4*n выборок. Как следует заполнять и смещать? Сначала заполняется окно 0..n, в следующий момент от n+1..2n, далее 2n+1..3n и наконец 3n+1..4n. Что делать при получении пятой выборки? Очевидно сместить все значения окна на n влево и поместить свежий буфер из n-значений в окно на место 3n+1..4n. Все последующие шаги повторяют предпоследний.

for i := 0 to 256 do
begin
L := LoWord(WaveData[i]);
R := HiWord(WaveData[i]);
bit.Canvas.MoveTo(PaintBox2.Width-SpecPos , ch- trunc((L / 32768) * ch));
bit.Canvas.LineTo(PaintBox2.Width-SpecPos , ch+ trunc((R / 32768) * ch) );
end;
SpecPos := (SpecPos + 1) mod PaintBox2.Width;// сдвиг
Заполняет экран и нет сдвига.
Что я делаю не так

[raxp]

Вы делаете все не так, в коде выше нет сдвига для массива. Перечитайте мой предыдущий пост до полного просветления.

[Abversoft]

Сообщение от raxp

Вы делаете все не так, в коде выше нет сдвига для массива. Перечитайте мой предыдущий пост до полного просветления.

Несли не трудно помогите разобраться с этими массивами т.е как их надо заполнять.

[Abversoft]

Нашел плагин с исходником для XMPlay. Только он написан для С++.
Помогите разобраться.

[DJDrugsounD]

Я такую визуализацию делаю таким образом

ArrWave[0]:= round(SmallInt(LOWORD(WaveOscil[0]))/50);

for i:=0 to 249 do
begin
ArrWave[249-i]:= ArrWave[249-i-1];
end;

таким образом идёт сдвиг спектра

а дальше рисуем любыми способами
вот пример

for i:=0 to 249 do
begin
MoveTo(i, 600); LineTo(i, ArrWave[249-i]);
end;

если недостаточно скорости, делаем так

for i:=0 to 249 do
begin
MoveTo(i*5, 600); LineTo(i*5, ArrWave[249-i]);
MoveTo(i*5+1, 600); LineTo(i*5+1, ArrWave[249-i]);
MoveTo(i*5+2, 600); LineTo(i*5+2, ArrWave[249-i]);
MoveTo(i*5+3, 600); LineTo(i*5+3, ArrWave[249-i]);
MoveTo(i*5+4, 600); LineTo(i*5+4, ArrWave[249-i]);
end;

[DJDrugsounD]

а вот улучшенная с регулировкой скорости

procedure DrawWave();
var
i, j: integer;
WvWig: integer;
WvSpeed: integer; // скорость
begin
WvSpeed:= 5;
WvWig:= Round(Form1.Panel1.Width/WvSpeed); // ширина области визуализации делённая на скорость

for j:=0 to WvSpeed do
begin
ArrWave[j][0]:= round(SmallInt(LOWORD(WaveOscil[j]))/50);
for i:=0 to WvWig do
begin
ArrWave[j][WvWig-i]:= ArrWave[j][WvWig-i-1];
end;

end;

for i:=0 to WvWig do
begin
for j:=0 to WvSpeed do
begin
MoveTo(i*WvSpeed+j, 0);
LineTo(i*WvSpeed+j, ArrWave[j][WvWig-i]);
end;
end;
end;

только тут на один канал, на два канала доделать думаю проблем не составит

[Abversoft]

Сообщение от DJDrugsounD

а вот улучшенная с регулировкой скорости

procedure DrawWave();
var
i, j: integer;
WvWig: integer;
WvSpeed: integer; // скорость
begin
WvSpeed:= 5;
WvWig:= Round(Form1.Panel1.Width/WvSpeed); // ширина области визуализации делённая на скорость

for j:=0 to WvSpeed do
begin
ArrWave[j][0]:= round(SmallInt(LOWORD(WaveOscil[j]))/50);
for i:=0 to WvWig do
begin
ArrWave[j][WvWig-i]:= ArrWave[j][WvWig-i-1];
end;

end;

for i:=0 to WvWig do
begin
for j:=0 to WvSpeed do
begin
MoveTo(i*WvSpeed+j, 0);
LineTo(i*WvSpeed+j, ArrWave[j][WvWig-i]);
end;
end;
end;

только тут на один канал, на два канала доделать думаю проблем не составит

Спасибо. Что такое ArrWave

[DJDrugsounD]

Сообщение от Abversoft

Спасибо. Что такое ArrWave

type
TWaveOscil = array [0..255] of LongWord;

var
WaveOscil: TWaveOscil;
ArrWave:array [0..900] of array [0..900] of Integer;

[Abversoft]

Сообщение от DJDrugsounD

type
TWaveOscil = array [0..255] of LongWord;

var
WaveOscil: TWaveOscil;
ArrWave:array [0..900] of array [0..900] of Integer;

А так возможно ArrWave:array of array of Integer?
И еще
ArrWave[j][0] := round((LOWORD(WaveOscil[j]))/50);
точно надо делить на 50, а то спектр не списываться в канвас.

[DJDrugsounD]

Сообщение от Abversoft

А так возможно ArrWave:array of array of Integer?

многомерный массив, почему нет? :D

Сообщение от Abversoft

точно надо делить на 50, а то спектр не списываться в канвас.

можно вообще не делить, это я делал у себя потому что сильно большое значение получалось