12 / 12 / 9
Регистрация: 16.05.2011
Сообщений: 109
|
|
|
1
|
Анализатор спектра тормозит
10.01.2013, 15:50. Показов 2536. Ответов 4
Привет! Собственно суть проблемы в названии темы.
Вот отрывки кода отвечающие за визуализацию. (код не мой)
Переменные
| Delphi | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
| type
FFTData = array[0..512] of Single;
TPeaks = array[0..24] of Integer; // макс. количество полос
var
Buffer :TBitmap;
FPeaks :TPeaks;
FLimit :TPeaks;
FData :FFTDATA;
SpecHeight :integer = 0;
const
BandCount = 25;
ColWidth = 10; // ширина полосы |
|
В процедуре FormCreate
| Delphi | 1
2
3
4
5
| DoubleBuffered := true;
Buffer := TBitmap.Create;
Buffer.Width := Spectr.Width;
Buffer.Height := Spectr.Height;
SpecHeight := Buffer.Height - 2; // предел высоты |
|
В событии OnPaint для PainBox`a
| Delphi | 1
2
3
4
5
| procedure TMain_Window.SpectrPaint(Sender: TObject);
begin
BitBlt(Spectr.Canvas.Handle, 0, 0, Buffer.Width, Buffer.Height,
Buffer.Canvas.Handle, 0, 0, SRCCOPY);
end; |
|
| Delphi | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
| procedure SpectrumRender(X, Y: integer; PauseStop: boolean = false);
var
i, YPos, e :Integer;
info_chan :BASS_CHANNELINFO;
dy :integer;
begin
PatBlt(Buffer.Canvas.Handle, 0, 0, Buffer.Width, Buffer.Height, WHITENESS);
BASS_ChannelGetInfo(Stream, info_chan); // вытаскиваем информацию
if PauseStop then // падение пик, если статус потока Пауза или Стоп
begin
for e := 0 to 512 do
FData[e] := 0;
end;
for i := 0 to BandCount - 1 do
begin
// работаем с полученными данными
YPos := Trunc(info_chan.freq / 512 * abs(fdata[i])); // как в TBassPlayer
if YPos > SpecHeight then YPos := SpecHeight;
if YPos >= FPeaks[i] then FPeaks[i] := YPos
else FPeaks[i] := FPeaks[i] - 1; // если поставить 0, то пики не будут падать
if YPos >= FLimit[i] then FLimit[i] := YPos - 1
else FLimit[i] := FLimit[i] - 4; // скорость падения полосы
if (Buffer.Height - FPeaks[i]) > Buffer.Height then FPeaks[i] := 0;
if (Buffer.Height - FLimit[i]) > Buffer.Height then FLimit[i] := 0;
for dy := 0 to Main_Window.Spectr.Height do
begin
if (dy mod ColWidth = 0) then
begin
// рисуем горизонтальные линии, чтобы получился эффект блоков
Buffer.Canvas.Pen.Color := clWhite; // цвет равный
Buffer.Canvas.MoveTo(0, dy);
Buffer.Canvas.LineTo(Main_Window.Spectr.Width, dy);
// рисуем полосы
Buffer.Canvas.Pen.Color := clLtGray;
Buffer.Canvas.Brush.Color := clLtGray;
Buffer.Canvas.Rectangle(
X + i * (ColWidth + 1), Y + Buffer.Height - FLimit[i],
X + i * (ColWidth + 1) + ColWidth, Y + Buffer.Height);
// рисуем обычные пики
Buffer.Canvas.Pen.Color := clRed;
Buffer.Canvas.MoveTo(X + i * (ColWidth + 1), Y + Buffer.Height - FPeaks[i]);
Buffer.Canvas.LineTo(X + i * (ColWidth + 1) + ColWidth, Y + Buffer.Height - FPeaks[i]);
end;
end;
Main_Window.Spectr.Invalidate; // обновляем картинку
end;
end; |
|
| Delphi | 1
2
| BASS_ChannelGetData(Stream, @FData, BASS_DATA_FFT512);
SpectrumRender(1, -1, BASS_ChannelIsActive(Stream) <> BASS_ACTIVE_PLAYING); |
|
 Любые мысли и догадки
0
|
Любые мысли и догадки 
(
