- If pDrawFloor Then Begin
- glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, @ColorGray);
- glBindTexture(gl_texture_2d, tmp); // Binden der Graphik für den Boden
- glBegin(GL_QUADS);
- For i := -2 To 11 Do
- For j := -2 To 11 Do Begin
- glNormal3f(0, 1, 0);
- glVertex3f(-5 + i, 0, -5 + j);
- glVertex3f(-5 + i, 0, -5 + j + 1);
- glVertex3f(-5 + i + 1, 0, -5 + j + 1);
- glVertex3f(-5 + i + 1, 0, -5 + j);
- End;
- glEnd;
- End;