Optimierung von Pixel

[Medium]

Canvas.Pixels[] ruft intern die WinAPI Funktion SetPixel auf. Scanline macht zwar auch einen API Call (GDIFlush), aber dennoch ist es erheblich schneller als SetPixel. Klar, der "saubere" Weg wäre es mit nur einem Mal Scanline abrufen und ab dann nur noch den Pointer inkrementieren. Aber dennoch sollte der Unterschied sehr deutlich ausfallen.

Misst du eventuell das Berechnen der FFT mit? Weil das dürfte bei so einem langen Stück selbst mit den diversen optimierten FFTs recht lange dauern.

Ansonsten mal so probieren:

Delphi-Quellcode:

var
  b: TBitmap; // Pufferbitmap um horizontal zeichnen zu können
  p0, p: PRGBTriple;
  c: TColor;
  points: array[0..2] of TPoint;
begin
  b := TBitmap.Create;
  b.PixelFormat := pf24Bit;
  b.SetSize(BUFFER_SIZE, 1);
  p0 := b.Scanline[0];
...
    while BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_STOPPED do begin
        BASS_ChannelGetData(Channel, Pointer(Buffer), BASS_DATA_FFT512);
        p := p0;
        for i := 0 to BUFFER_SIZE - 1 do begin
            Value := SQRT(SQRT(Buffer[i]));
            H := 0 + Value / 1.5;
            L := Value;
            c := HSLtoRGB(H, S, L);

            p^.rgbtRed := GetRValue(c);
            p^.rgbtGreen := GetGValue(c);
            p^.rgbtBlue := GetBValue(c);
            Inc(p);
        end;
        points[0] := Point(ColumnCounter+1, 0);
        points[1] := Point(ColumnCounter+1, BUFFER_SIZE-1);
        points[2] := Point(ColumnCounter, 0);
        PlgBlt(Image1.Picture.Bitmap.Canvas.Handle, points, b.Canvas.Handle, 0, 0, b.Width, b.Height, 0, 0, 0); // b gedreht an die richtige x-Position auf das Image malen
        Inc(ColumnCounter);
        Progress := Trunc(100 * (BASS_ChannelGetPosition(Channel, BASS_POS_BYTE) / BASS_ChannelGetLength(Channel, BASS_POS_BYTE)));
        Form2.ProgressBar1.Position := Progress;
        Application.ProcessMessages;
    end;
...
  b.Free;

Nicht ganz getestet, aber zumindest die Punkte sollten so passen. ich weiss jetzt nicht, ob die Nutzung von PlgBlt schneller ist, oder alternativ das immer wieder neue Abholen der Scanline, aber einen Versuch ist es wert. (Da du ja progressiv immer spaltenweise zeichnest, müsste man eh die Scanline immer neu holen (oder den Stride selber behandeln).)