- procedure TViewForm.SetupGL;
- begin
- // Höhentextur laden
- tex := IMG_Load(PChar(ExtractFileDir(paramStr(0))+'\textur2.jpg'));
- if assigned(tex) then
- begin
- glGenTextures(1, @TexID);
- glBindTexture(GL_TEXTURE_1D, TexID);
- glTexParameteri(GL_TEXTURE_1D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
- glTexParameteri(GL_TEXTURE_1D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
- glTexImage1D(GL_TEXTURE_1D, 0, 3, tex^.w, 0, GL_RGB, GL_UNSIGNED_BYTE, tex^.pixels);
- SDL_FreeSurface(tex);
- end;
- glClearColor(0.0, 0.0, 0.3, 0.0); //Hintergrundfarbe: Hier ein leichtes Blau
- glEnable(GL_DEPTH_TEST); //Tiefentest aktivieren
- //glPolygonMode(GL_FRONT_AND_BACK,GL_LINE);
- glCullFace(GL_BACK);
- //glEnable(GL_CULL_FACE); //Backface Culling aktivieren
- end;