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

[Abversoft]

Не много по экспериментировал и вот что получилось.
Я в правильном направлении двигаюсь?

[ZuBy]

На сколько я понял, ты так хотел сделать?

[Abversoft]

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

На сколько я понял, ты так хотел сделать?

В принципе, да.
Есть несколько моментов.
1. Увеличение скорости прокрутки.
2. Отображение должно вписываться в PBox (т.е в установленный размер) а не растягиваться
Сам тут пытался через CopyRect, не получается.

[ZuBy]

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

В принципе, да.
Есть несколько моментов.
1. Увеличение скорости прокрутки.
2. Отображение должно вписываться в PBox (т.е в установленный размер) а не растягиваться
Сам тут пытался через CopyRect, не получается.

1 - быстрей чем идет музыка хочешь сделать?
у тебя дорожка быстрей кончится, а музыка будет играть
2 - а кто мешает? оно так и сделано

  bit.Width := PaintBox2.Width; //Length(Data) ;

[ZuBy]

Поправил код, вот так правильней

  for I := 0 to Length(Data) - 1 do
  begin
    L := LoWord(Data[i]);
    R := HiWord(Data[i]);
    bit.Canvas.MoveTo(I - Xpos, ch - trunc((L / 32768) * ch));
    bit.Canvas.LineTo(I - Xpos, ch + trunc((R / 32768) * ch));
  end;

  PaintBox2.Repaint;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if BASS_ChannelIsActive(hs) = BASS_ACTIVE_PLAYING then
  begin
    XPOS := Trunc(BASS_ChannelGetPosition(hs, BASS_POS_BYTE) / Mp3Len * PaintBox2.Width);
    Draw;
  end;
end;

[Abversoft]

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

1 - быстрей чем идет музыка хочешь сделать?
у тебя дорожка быстрей кончится, а музыка будет играть
2 - а кто мешает? оно так и сделано

  bit.Width := PaintBox2.Width; //Length(Data) ;

для aimp есть скин http://aimp.ru/files/skins/d/Denon_Classic_Style.zip (версия 2.2.3).
Это как пример что я хочу сделать.
Сделал на ScrollBox, но получилось не совсем как хотелось бы.
Как перенести что получилось так как в aimp.

[ZuBy]

Допустим, что я должен увидеть?
прогресс-бар?

[Abversoft]

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

Допустим, что я должен увидеть?
прогресс-бар?

При чем тут програссбар. Мы сейчас обсуждаем об визуализации.
Смотри скриншот

[Abversoft]

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

Поправил код, вот так правильней

  for I := 0 to Length(Data) - 1 do
  begin
    L := LoWord(Data[i]);
    R := HiWord(Data[i]);
    bit.Canvas.MoveTo(I - Xpos, ch - trunc((L / 32768) * ch));
    bit.Canvas.LineTo(I - Xpos, ch + trunc((R / 32768) * ch));
  end;

  PaintBox2.Repaint;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if BASS_ChannelIsActive(hs) = BASS_ACTIVE_PLAYING then
  begin
    XPOS := Trunc(BASS_ChannelGetPosition(hs, BASS_POS_BYTE) / Mp3Len * PaintBox2.Width);
    Draw;
  end;
end;

Я так и сделал. Теперь задача стоит как данный рисунок в писать в установленные размеры и чтоб еще и двигались.

[raxp]

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

совсем необязательно, но принцип тот же.

Вы получаете мгновенные значения сигнала на текущий момент, заносите в массив на n-точек и сразу отображаете эти n-точек, как только весь массив заполняется - начинаете сдвиг записывая новое текущее значение на самое последнее в массиве, таким образом окно у вас будет сдвигаться постоянно с получением каждого нового значения. Пример http://www.youtube.com/watch?v=u7XQPmh9bYE