20 interface

    20 interface

    21 uses uConsts, SDLh,

    21 uses uConsts, SDLh,

    22 {$IFDEF GLES11}

    22 {$IFDEF GLES11}

    23 	gles11,

    23 	gles11,

    24 {$ELSE}

    24 {$ELSE}

    26 {$ENDIF}

    26 {$ENDIF}

    27 	uFloat;

    27 	uFloat;

    28 {$INCLUDE options.inc}

    28 {$INCLUDE options.inc}

    29 var

    29 var

    30 	isCursorVisible : boolean = false;

    30 	isCursorVisible : boolean = false;

   334 glGenTextures(1, @NewTexture^.id);

   334 glGenTextures(1, @NewTexture^.id);

   335 

   335 

   336 glBindTexture(GL_TEXTURE_2D, NewTexture^.id);

   336 glBindTexture(GL_TEXTURE_2D, NewTexture^.id);

   337 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, buf);

   337 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, buf);

   338 

   338 

   341 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

   341 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

   342 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)

   342 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)

   343 end;

   343 end;

   344 

   344 

   345 function Surface2Tex(surf: PSDL_Surface): PTexture;

   345 function Surface2Tex(surf: PSDL_Surface): PTexture;