Hintergrundfarbe ändert wert obwohl ausgeschaltet (OpenGl)

[turboPASCAL]

Zitat:

Jetzt wird das verkleinerte Bild(Cover) mit dem Beat in der Farbe verändert
Das Problem .. der Hintergrund aber auch.
Das soll er aber nicht da ausgeschaltet.

Hä ? Wie jetzt ?

Delphi-Quellcode:

procedure DrawBackgroundBeat;
var
  i : integer;

begin
  BackGroundBeat := 0;
  for I := 0 to 9 do
    BackGroundBeat := BackgroundBeat + Module1.spectrumData[0][I] +
                      Module1.spectrumData[1][I];
    BackgroundBeat := BackgroundBeat /64 ;

    if not (PlayState = 3) or (PlayState = 0) then
      if BackgroundBeat > 2 then
      begin
        glColor3f(BackgroundBeat/16 ,
                  BackgroundBeat/24 ,
                  BackgroundBeat/4);
        // <-----------------------------------------------------------<< //
        // Die "Hintergrundfarbe" in blau

        glClearColor(0, 0, BackgroundBeat / 64,  0);

        // >>-----------------------------------------------------------> //
      end;
end;