- var
- tex : PSDL_Surface;
- begin
- tex := IMG_Load('./wiki.jpg');
- if assigned(tex) then
- begin
- glGenTextures(1, @TexID);
- glBindTexture(GL_TEXTURE_2D, TexID);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
- // Achtung! Einige Bildformate erwarten statt GL_RGB, GL_BGR. Diese Konstante fehlt in den Standard-Headern
- glTexImage2D(GL_TEXTURE_2D, 0, 3, tex^.w, tex^.h,0, GL_RGB, GL_UNSIGNED_BYTE, tex^.pixels);
- SDL_FreeSurface(tex);
- end;