- // Zeichenprocedure DrawBrett
- ....
- for a := Low(TBrettSizes) to High(TBrettSizes) do begin
- for b := Low(TBrettSizes) to High(TBrettSizes) do begin
- glEnable(GL_TEXTURE_2D);
- glBindTexture(GL_TEXTURE_2D, MyTex);
- { if Odd(a+b) then
- glColor3f( 0.7, 0.7, 0.5 ) // Farbe für Quader einstellen
- else glColor3f( 0.2, 0.2, 0.2 );
- glBegin(GL_QUADS); aus TUT4 wiki/delphigl.com
- glTexCoord2f(0,0); glVertex3f(-1,-1,0); UR
- glTexCoord2f(0,1); glVertex3f(-1,1,0); OR
- glTexCoord2f(1,1); glVertex3f(1,1,0); OL
- glTexCoord2f(1,0); glVertex3f(1,-1,0); UL
- glEnd;
- }
- glBegin( GL_QUADS ); // -- oberes (Spielbrett-Ansicht)- Quad
- glTexCoord2f( 0,0); glVertex3f( b-1, a-1, 0); // glVertex3f( -1, -1, 0 );
- glTexCoord2f( 0,1); glVertex3f( b-1, a , 0); // glVertex3f( -1, 1, 0 );
- glTexCoord2f( 1,1); glVertex3f( b , a , 0); // glVertex3f( 1, 1, 0 );
- glTexCoord2f( 1,0); glVertex3f( b , a-1, 0); // glVertex3f( 1, -1, 0 );
- glEnd;
- glDisable(GL_TEXTURE_2D);
- {...}
- // hier noch der initialisierungsteil zum Laden angehangen
- initialization
- r := LoadTexture('holz01.bmp', MyTex, False );
- if not r then MessageDlg('nix gefunden!', mtWarning, [mbOK], 0);