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:

        glColor4f(1.0,1.0,1.0,1);
         glEnable(GL_TEXTURE_2D);    // aktiviere 2D Textur Mapping

         glEnable(GL_BLEND);
         glDisable(GL_DEPTH_TEST);
         glShadeModel(GL_SMOOTH);

        glBlendFunc(GL_DST_COLOR,GL_ZERO);
        glBindTexture(GL_TEXTURE_2D, texturIDarray[texturInfo[texnum].alphaid]); // Hiermit wählen wir die Textur an
         glbegin(gl_quads);
          gltexcoord2f(0,0); //UV – Zuweisung für den ersten Punkt
          glvertex3f(koord.p1.x,koord.p1.y ,koord.p1.z); //lu     //x,y,z
          gltexcoord2f(0,1); //UV – Zuweisung für den zweiten Punkt
          glvertex3f(koord.p2.x,koord.p2.y ,koord.p2.z); //lo
          gltexcoord2f(1,1); //UV – Zuweisung für den dritten Punkt
          glvertex3f(koord.p3.x,koord.p3.y ,koord.p3.z);  //ro
          gltexcoord2f(1,0); //UV – Zuweisung für den vierten Punkt
          glvertex3f(koord.p4.x,koord.p4.y ,koord.p4.z);   //ru
         glend;
           
         glBlendFunc(GL_ONE, GL_ONE);
         glBindTexture(GL_TEXTURE_2D, texturIDarray[texturInfo[texnum].textid]); //Hiermit wählen wir die Textur an
         glbegin(gl_quads);
          gltexcoord2f(0,0); //UV – Zuweisung für den ersten Punkt
          glvertex3f(koord.p1.x,koord.p1.y ,koord.p1.z); //lu     //x,y,z
          gltexcoord2f(0,1); //UV – Zuweisung für den zweiten Punkt
          glvertex3f(koord.p2.x,koord.p2.y ,koord.p2.z); //lo
          gltexcoord2f(1,1); //UV – Zuweisung für den dritten Punkt
          glvertex3f(koord.p3.x,koord.p3.y ,koord.p3.z);  //ro
          gltexcoord2f(1,0); //UV – Zuweisung für den vierten Punkt
          glvertex3f(koord.p4.x,koord.p4.y ,koord.p4.z);   //ru
         glend;


         glDisable(GL_BLEND);
         glEnable(GL_DEPTH_TEST);           //Open Gl Tiefentest wieder aktivieren
         glBlendFunc(GL_ONE, GL_ONE);       //					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

  ON_GL_TEXTURE_2D(true); //für Objekte mit Textur aktivieren
  ON_GL_DEPTH_TEST(true);
  ON_GL_BLEND(true);
  
  glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA);
  glColor4f(1.0,1.0,1.0,alpha);
  glBindTexture(GL_TEXTURE_2D, texturIDarray[texturInfo[texnum].textid]); //Hiermit wählen wir die Textur an
   glbegin(gl_quads);
          gltexcoord2f(0,0); //UV – Zuweisung für den ersten Punkt
          glvertex3f(koord.p1.x,koord.p1.y ,koord.p1.z); //lu     //x,y,z
          gltexcoord2f(0,1); //UV – Zuweisung für den zweiten Punkt
          glvertex3f(koord.p2.x,koord.p2.y ,koord.p2.z); //lo
          gltexcoord2f(1,1); //UV – Zuweisung für den dritten Punkt
          glvertex3f(koord.p3.x,koord.p3.y ,koord.p3.z);  //ro
          gltexcoord2f(1,0); //UV – Zuweisung für den vierten Punkt
          glvertex3f(koord.p4.x,koord.p4.y ,koord.p4.z);   //ru
    glend;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure ON_GL_DEPTH_TEST(switchon:boolean);
begin
 if isGL_DEPTH_TEST and switchon then exit;
 if not isGL_DEPTH_TEST and  not switchon then exit;

 if switchon then glEnable(GL_DEPTH_TEST) else glDisable(GL_DEPTH_TEST);
 isGL_DEPTH_TEST:=switchon;
end;