equal
deleted
inserted
replaced
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); |
31 procedure FreeAndNilTexture(var tex: PTexture); |
31 procedure FreeAndNilTexture(var tex: PTexture); inline; |
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 |
315 procedure FreeAndNilTexture(var tex: PTexture); |
315 procedure FreeAndNilTexture(var tex: PTexture); inline; |
316 begin |
316 begin |
317 FreeTexture(tex); |
317 FreeTexture(tex); |
318 tex:= nil |
318 tex:= nil |
319 end; |
319 end; |
320 |
320 |