24 

    24 

    25 function  NewTexture(width, height: Longword; buf: Pointer): PTexture;

    25 function  NewTexture(width, height: Longword; buf: Pointer): PTexture;

    26 procedure Surface2GrayScale(surf: PSDL_Surface);

    26 procedure Surface2GrayScale(surf: PSDL_Surface);

    27 function  Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture;

    27 function  Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture;

    28 procedure FreeTexture(tex: PTexture);

    28 procedure FreeTexture(tex: PTexture);

    29 

    30 

    30 procedure initModule;

    31 procedure initModule;

    31 procedure freeModule;

    32 procedure freeModule;

    32 

    33 

    33 implementation

    34 implementation

   224     glDeleteTextures(1, @tex^.id);

   225     glDeleteTextures(1, @tex^.id);

   225     Dispose(tex);

   226     Dispose(tex);

   226     end

   227     end

   227 end;

   228 end;

   228 

   229 

   229 procedure initModule;

   236 procedure initModule;

   230 begin

   237 begin

   231 TextureList:= nil;

   238 TextureList:= nil;

   232 end;

   239 end;

   233 

   240