Bass.dll - Visualisierung

[arbu man]

Delphi-Quellcode:

//draw peaks
  ht := ClientHeight div 2;
  for i:=0 to length(wavebufL)-1 do
  begin

// i = index (zeit index von anfang zum ende der wave datei)
// ht = 1 Punkt eine vertikalen line
// ht-trunc((wavebufL[i]/32768)*ht) = 2 Punkt eine vertikalen line 
    Buffer.Canvas.MoveTo(i,ht);
    Buffer.Canvas.Pen.Color := clLime;
    Buffer.Canvas.LineTo(i,ht-trunc((wavebufL[i]/32768)*ht));

    Buffer.Canvas.Pen.Color := clLime;
    Buffer.Canvas.MoveTo(i,ht+2);
    Buffer.Canvas.LineTo(i,ht+2+trunc((wavebufR[i]/32768)*ht));

  end;

Das sollte eigentlich der bedeut same abschnitt sein...