equal
deleted
inserted
replaced
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 procedure FreeAndNilTexture(var 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 |
|
230 procedure FreeAndNilTexture(var tex: PTexture); |
|
231 begin |
|
232 FreeTexture(tex); |
|
233 tex:= nil |
|
234 end; |
|
235 |
229 procedure initModule; |
236 procedure initModule; |
230 begin |
237 begin |
231 TextureList:= nil; |
238 TextureList:= nil; |
232 end; |
239 end; |
233 |
240 |