- PROCEDURE LoadMyTextures;
- BEGIN
- TextureManager.AddTexture('textures\Main.bmp','BGRND');
- TextureManager.AddTexture('textures\Gras1.tga','GRAS');
- END;
- PROCEDURE GrundplatteUnten;
- BEGIN
- glBegin(GL_QUADS);
- TextureManager.BindTexture('GRAS');
- glTexCoord2f(0,0);glVertex3f(-10,-10, 0);
- glTexCoord2f(0,1);glVertex3f(-10, 10, 0);
- glTexCoord2f(1,1);glVertex3f( 10, 10, 0);
- glTexCoord2f(1,0);glVertex3f( 10,-10, 0);
- glEnd();
- END;
- PROCEDURE GrundPlatteOben();
- BEGIN
- glBegin(GL_QUADS);
- TextureManager.BindTexture('BGRND');
- glTexCoord2f(0,0);glVertex3f(-10,-10, 0);
- glTexCoord2f(1,0);glVertex3f( 10,-10, 0);
- glTexCoord2f(1,1);glVertex3f( 10, 10, 0);
- glTexCoord2f(0,1);glVertex3f(-10, 10, 0);
- glEnd();
- END;