Помощь с BASS, сигналом и выводом графики

[Манжосов Денис :)]

var
  Level: DWORD:
begin
  Level := BASS_ChannelGetLevel(Channel);
end;

Нужно сделать на основе этого визуализацию. Итак есть окружность. Чем сигнал выше, тем радиус больше. Чем сигнал ниже, тем радиус меньше. Тоесть как бы эффект динамика такой . Подскажите, в каком направлении копать или поделитесь вариантом решения этой проблемы. Заранее спасибо.

[mutabor]

Т.е. в переменной Level у тебя уже готовое значение? Тогда сначала посмотри какой у него примерно диапазон, в лейбел выведи временно например. А потом высчитай коэффициент, чтобы окружность приемлемых размеров получалась, и с помощью Ellipse рисуй, перед отрисовкой затирай предыдущую - FillRect(ClipRect). Буфер используй чтобы не мерцало (затирай в буфере, на видимую канву рисуй буфер целиком). Я так вкратце, если что не ясно, спрашивай.

[ZuBy]

вот пример с анализатором в виде полос

type
  fftdata = array[1..256] of single;
var
  data: fftdata;
  i, n: integer;
  level: cardinal;
  levelL, levelR: byte;
begin
  level := BASS_ChannelGetLevel(chan);
  levelL := loword(level) * 100 div (maxword div 2); 
  levelR := hiword(level) * 100 div (maxword div 2);

  Bass_ChannelGetData(chan, @data, BASS_DATA_FFT512);

  with PaintBox1 do
  begin
    Canvas.FillRect(rect(0, 0, paintbox1.width, paintbox1.height));
    Canvas.Pen.Color := clBlack;
    for i := 1 to 256 do begin
      n := round(data[i] * 100);
      PaintBox1.Canvas.MoveTo(i, 100);
      PaintBox1.Canvas.LineTo(i, 100 - n);
    end;
    Canvas.Rectangle(258, 100, 266, 100 - levelL);
    Canvas.Rectangle(268, 100, 276, 100 - levelR);
  end;
end;

[ZuBy]

вот сделал пример:

var
  Level: DWORD;
  left, right: Integer;
  PP: Single;
begin
  Level := Bass_ChannelGetLevel(chan);

  left := LOWORD(Level);
  right := HiWord(Level);
  PP := Left / 900;
  PaintBox1.Canvas.Rectangle((120 div 2) - Round(PP), 5, 120 div 2, 10);
  PP := Right / 900;
  PaintBox1.Canvas.Rectangle(120 div 2, 5, (120 div 2) + Round(PP), 10);

[Манжосов Денис :)]

Это надо будет переделать под окружность, а не под прямоугольник. Сейчас буду пытаться.

[Манжосов Денис :)]

  
  if Bass_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then exit;

  Level := BASS_ChannelGetLevel(Channel);
  l := HiWord(Level);
  PaintBox3.Canvas.FillRect(PaintBox3.Canvas.ClipRect);
  PaintBox3.Canvas.Pen.Color := clWhite;
  l1 := Round(l / (32786 / PaintBox3.Width));
  PaintBox3.Canvas.Ellipse(PaintBox3.Width div 2 - l1 div 2,
                           PaintBox3.Height div 2 - l1 div 2,
                           PaintBox3.Width div 2 + l1 div 2,
                           PaintBox3.height div 2 + l1 div 2);

Рабочий код. Спасибо, mutabor за направление на путь истинный

[Серего]

а как с помощью bass узнать частоту звука? чтоб прям посекундно мне частоту писало?

[Пепел Феникса]

1)зачем некропостим?
2)зачем лезем в чужую тему?
3)в вашей теме вам сказали где смотреть(спектроанализатор).
примеры всего этого есть, нужно лишь не ленится.