Hallo,
hat jemand Erfahrung Transparenz und Alphablending ?
Ich will den weißen Hintergrund transparent Alpha= 0
alle anderen Farben sollen dargestellt werden Alpha=255
Übernahme der Pixel aus TBitmap über scanline

markieren

Delphi-Quellcode:

 ll_rgbQuad.rgbRed:= ll_ptr.rgbBlue;
         ll_rgbQuad.rgbGreen:= ll_ptr.rgbGreen;
         ll_rgbQuad.rgbBlue:= ll_ptr.rgbRed;
         ll_rgbQuad.Alpha:=255;

         if ( ll_rgbQuad.rgbRed + ll_rgbQuad.rgbGreen + ll_rgbQuad.rgbBlue =0 ) then begin
              ll_rgbQuad.rgbAlpha:=0;
         end;

Generierung der Textur

markieren

Delphi-Quellcode:

        glGenTextures ( 1, @l_textur_id );
        glBindTexture ( GL_TEXTURE_2D, cardinal(ar_Texture_ID[in_index]) );
        glTexParameteri( GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_linear );
        glTexParameteri( GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_linear );

        glTexImage2D ( GL_TEXTURE_2D, 0, 4, ll_b, ll_h, 0,
                        GL_RGBA, GL_UNSIGNED_BYTE, @texdata );

Ausgabe

markieren

Delphi-Quellcode:

  glEnable(GL_ALPHA_TEST);
   glAlphaFunc(GL_GREATER, 0);
   // Rendern
  glListBase(0);

   glpushmatrix();
   gltranslatef(-17,0,0);
       l_String:='aibg'+rightstr(inttostr(i),3);
         glCallLists (length(l_String), GL_UNSIGNED_BYTE, @l_String[1]);
      glpopmatrix();

Ausgabe funktioniert zwar, leider nicht transparent.

gibt es irgendwo ein Beispiel ?

Zitat:

gibt es irgendwo ein Beispiel ?

Hier

danke, das hatte ich schon gesehen.
Ich bräuchte es viel einfacher, da ich nur über den Alpha-Wert
Transparenz erreichen will:

entweder über

markieren

Delphi-Quellcode:

  glEnable(GL_ALPHA_TEST);
   glAlphaFunc(GL_Greater , 0);

oder

markieren

Delphi-Quellcode:

glEnable(GL_ALPHA_TEST);
   glAlphaFunc(GL_Less , 1);

sollte gehen, funzt aber nicht

wenn die Textfarbe Schwarz ist mit Alpha=0
und der Hintergrund weiss mit Alpha=255
geht es inzwischen.
Mit einer anderen SchriftFarben statt Schwarz
geht es leider nicht

markieren

Delphi-Quellcode:

   glEnable(GL_ALPHA_TEST);
   glAlphaFunc(GL_Greater, 0.1);

Die Textfarbe sollte doch mit dem Alpha-Wert gar nichts zu tun haben.

markieren

Delphi-Quellcode:

if ( ll_rgbQuad.rgbRed + ll_rgbQuad.rgbGreen + ll_rgbQuad.rgbBlue =0 ) then begin
              ll_rgbQuad.rgbAlpha:=0; //<-
         end;

Hast du mal geguckt, ob diese Zeile überhaupt ausgeführt wird?
Könnte nämlich auch an Gleitkommazahlen-Ungenauigkeit hängen. Beziehungsweise: Ist dein Weiß auch wirklich #000?

wird ausgeführt: Breakpoint spricht an.

so geht's:

markieren

Delphi-Quellcode:

   
if ( ll_rgbQuad.rgbRed + ll_rgbQuad.rgbGreen + ll_rgbQuad.rgbBlue < 3*255 ) then begin
    ll_rgbQuad.rgbReserved:=255;
end;

next Problem:

kann man die Farben in einer Textur tauschen ?