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 PrettifySurfaceAlpha(surf: PSDL_Surface; pixels: PLongwordArray);

    28 procedure PrettifySurfaceAlpha(surf: PSDL_Surface; pixels: PLongwordArray);

    29 procedure PrettifyAlpha2D(pixels: TLandArray; height, width: LongWord);

    29 procedure PrettifyAlpha2D(pixels: TLandArray; height, width: LongWord);

    30 procedure FreeTexture(tex: PTexture);

    30 procedure FreeTexture(tex: PTexture);

    32 

    32 

    33 procedure initModule;

    33 procedure initModule;

    34 procedure freeModule;

    34 procedure freeModule;

    35 

    35 

    36 implementation

    36 implementation

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

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

   311     Dispose(tex);

   311     Dispose(tex);

   312     end

   312     end

   313 end;

   313 end;

   314 

   314 

   316 begin

   316 begin

   317     FreeTexture(tex);

   317     FreeTexture(tex);

   318     tex:= nil

   318     tex:= nil

   319 end;

   319 end;

   320 

   320