- procedure TForm1.LoadTextures;
- var
- Holz: PSDL_Surface;
- begin
- Holz:= IMG_Load('C:\Test.jpg');
- if assigned(Holz) then
- begin
- glGenTextures(1, @HolzID);
- glBindTexture(GL_TEXTURE_2D, HolzID);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
- glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
- glTexImage2D(GL_TEXTURE_2D, 0, 3, Holz^.w, Holz^.h,0, GL_RGB, GL_UNSIGNED_BYTE, Holz^.pixels);
- SDL_FreeSurface(Holz);
- end;
- end;