- procedure glInit();
- begin
- glEnable(GL_TEXTURE_2D); // Aktiviert Texture Mapping
- FTex := TglBitmap2D.Create;
- FTex.SetTextureWrap(GL_REPEAT, GL_REPEAT);
- FTex.SetFilter(GL_LINEAR_MIPMAP_LINEAR, GL_LINEAR);
- FTex.LoadFromFile('asteroids.bmp');
- FTex.GenTexture;
- glShadeModel(GL_SMOOTH); // Aktiviert weiches Shading
- glClearColor(0.0, 0.0, 0.0, 0.5); // Bildschirm löschen (schwarz)
- glClearDepth(1.0); // Depth Buffer Setup
- glEnable(GL_DEPTH_TEST); // Aktiviert Depth Testing
- glDepthFunc(GL_LEQUAL); // Bestimmt den Typ des Depth Testing
- glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
- // Qualitativ bessere Koordinaten Interpolation
- end;