- procedure MainMenue();
- begin
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- glOrtho(0, form1ClientWidth, form1ClientHeight, 0, -1, 10);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- glColor3f(1.0,1.0,1.0);
- glEnable(GL_TEXTURE_2D);
- glBindTexture(GL_TEXTURE_2D,texture[1]);
- glBegin(GL_QUADS);
- glTexCoord2i(0,0); glVertex2i(0,0);
- glTexCoord2i(0,1); glVertex2i(0,20);
- glTexCoord2i(1,1); glVertex2i(1152,20);
- glTexCoord2i(1,0); glVertex2i(1152,0);
- glEnd;
- {//Projektionsmatrix wiederherstellen
- glMatrixMode(GL_PROJECTION);
- glPopMatrix();
- //Modelview Matrix wiederherstellen
- glMatrixMode(GL_MODELVIEW);
- glPopMatrix();
- glPopAttrib();}
- end;