- procedure tform1.init;
- var
- tex1:psdl_surface;
- texture1:gluint;
- begin
- tex1 := img_load(pchar(extractfiledir(paramstr(0))+'/katze.jpg'));
- if assigned(tex1) then
- begin
- glgentextures(1,@texture1);
- glbindtexture(gl_texture_2d,texture1);
- gltexparameteri(gl_texture_2d,gl_texture_mag_filter,gl_linear);
- gltexparameteri(gl_texture_2d,gl_texture_min_filter,gl_linear);
- glteximage2d(gl_texture_2d,0,3,tex1^.w,tex1^.h,0,gl_rgb,gl_unsigned_byte,tex1^.pixels);
- sdl_freesurface(tex1);
- end
- else
- showmessage('texture error');