- {------------------------------------------------------------------}
- { Zeichnen der Szene }
- {------------------------------------------------------------------}
- procedure glDraw;
- begin
- glClear(GL_COLOR_BUFFER_BIT OR GL_DEPTH_BUFFER_BIT);
- glLoadIdentity;
- gltranslate(0,0,-5);
- glBindTexture(GL_TEXTURE_2D,tex);
- glBegin(GL_QUADS);
- glTexCoord2f(0,0); glVertex3f(-1,-1,0);
- glTexCoord2f(0,1); glVertex3f(-1,1,0);
- glTexCoord2f(1,1); glVertex3f(1,1,0);
- glTexCoord2f(1,0); glVertex3f(1,-1,0);
- glEnd;
- end;