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

[Abversoft]

Всем привет!
Не давно в плеере Aimp визуальный спектр на подобие движущийся осциллографа решил попробовать сделать. И вот что получилось.

procedure TfrMain.Draw_ChanelLevel(aLevel: DWORD);
var
aLeft, aRight: single;
SpecPos, x, y: integer;
mnog : single;
VisBuff : TBitmap;
const
ya : integer = 40;

procedure DrawLine(Canvas: TCanvas; X, Y, X2, Y2: Integer);
begin
Canvas.MoveTo(X, Y);
Canvas.LineTo(X2, Y2);
end;
begin

aLeft := 1 * LOWORD(alevel) / 32768;
aRight := 1 * HIWORD(alevel) / 32768;

VisBuff2.Canvas.Brush.Color := BkgColor;
VisBuff2.Canvas.Pen.Color := 0;

DrawLine(VisBuff2.Canvas,
SpecPos2, 0,
SpecPos2, VisBuff2.Height);

VisBuff2.Canvas.Pen.Color := $00E6C62D;
y := trunc(VisBuff2.Height / 2 - 1);

DrawLine(VisBuff2.Canvas,
SpecPos2, y,
SpecPos2, y - round(y * 0.95 * mnog * aleft));

DrawLine(VisBuff2.Canvas,
SpecPos2, y + 2,
SpecPos2, VisBuff2.Height - y + round(y * 0.95 * mnog * aright));

SpecPos2 := (SpecPos2 + 1) mod VisBuff2.Width;

VisBuff2.Canvas.Pen.Color := 10066329;

VisBuff2.Canvas.Pen.Color := 0;
VisBuff2.Canvas.Brush.Color := BkgColor;

BitBlt(img1.Canvas.Handle, 0, 0, VisBuff2.Width, VisBuff2.Height,
VisBuff2.Canvas.Handle, 0, 0, srccopy);
end;

Не могу заставить спектр двигаться как в Aimp. Для работы с медиа использую библиотеку bass.

[ZuBy]

Библиотека с анализаторами звука. 13 образов
(Spectrum 3, Wave 4, VU 3, Circle 3)

- Динамическая отрисовка
- Плавная смена цветов
- Картинка на задний фон
- Легка в применении

СКАЧАТЬ

[Abversoft]

Не подходит. Данную библиотеку видел, это не то
Есть хорошие примеры визуализации звука http://jqbook.net.ru/delphi/bass_vis.htm.

[Abversoft]

Помогите сделать Scroll спектра звука

[ZuBy]

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

Помогите сделать Scroll спектра звука

как понять скрол? что именно нужно?

[Abversoft]

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

как понять скрол? что именно нужно?

Чтоб спектр двигался на подобие осциллографа.
Смотри видео

[raxp]

Это не спектр. Это огибающая сигнала, его отсчеты во времени.

Чтоб ... двигался

берем выборку (окно) из всего массива, делаем сдвиг по времени - двигаем окно, отображаем. Профит.

[Abversoft]

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

Это не спектр. Это огибающая сигнала, его отсчеты во времени.

берем выборку (окно) из всего массива, делаем сдвиг по времени - двигаем окно, отображаем. Профит.

если не трудно пример

[raxp]

Пример чего? Пример как выглядит у вас же на видео, вот еще как это на чарте выглядит http://www.youtube.com/watch?v=oREzyb4tyq4 (верхний тренд при задании масштаба по оси 0X, т.е. ширины окна и использовании скролла, т.е. смещение окна).

Или пример кода? Не, сами дотумкайте, даю алгоритм: к примеру у вас миллион отсчетов в полном массиве, нужно визуализировать временной интервал из 1000 отсчетов (точек) и иметь возможность смещать временной интервал (окно) от нуля до последнего значения. Как? Что будет, если я возьму из полного массива точки от нуля до 999 и отрисую их? Правильно, визуализирую окно на 1000 точек. А что, если сделаю выборку от 1 до 1001 точки? Правильно, тоже окно на 1000 точек, только уже со смещением вправо по времени. А если смещение (дельту) возьму на 15000 точек? Какие точки мне нужно взять для отображения окна шириной 1000 точек? Логично, что от 15000 до 16000. А если хочу менять ширину окна? Теперь-то ферштеен?

[Abversoft]

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

Пример чего? Пример как выглядит у вас же на видео, вот еще как это на чарте выглядит http://www.youtube.com/watch?v=oREzyb4tyq4 (верхний тренд при задании масштаба по оси 0X, т.е. ширины окна и использовании скролла, т.е. смещение окна).

Или пример кода? Не, сами дотумкайте, даю алгоритм: к примеру у вас миллион отсчетов в полном массиве, нужно визуализировать временной интервал из 1000 отсчетов (точек) и иметь возможность смещать временной интервал (окно) от нуля до последнего значения. Как? Что будет, если я возьму из полного массива точки от нуля до 999 и отрисую их? Правильно, визуализирую окно на 1000 точек. А что, если сделаю выборку от 1 до 1001 точки? Правильно, тоже окно на 1000 точек, только уже со смещением вправо по времени. А если смещение (дельту) возьму на 15000 точек? Какие точки мне нужно взять для отображения окна шириной 1000 точек? Логично, что от 15000 до 16000. А если хочу менять ширину окна? Теперь-то ферштеен?

Если я Вас правильно понял надо с начала вытащить весь сигнал т.е сделать так как в примере (смотри архив). После начинать сдвигать по времени.
Если не так. То было бы не плохо пример кода