equal
deleted
inserted
replaced
115 procedure SendKB; |
115 procedure SendKB; |
116 procedure SetLittle(var r: hwFloat); |
116 procedure SetLittle(var r: hwFloat); |
117 procedure SendStat(sit: TStatInfoType; s: shortstring); |
117 procedure SendStat(sit: TStatInfoType; s: shortstring); |
118 function Str2PChar(const s: shortstring): PChar; |
118 function Str2PChar(const s: shortstring): PChar; |
119 function Surface2Tex(surf: PSDL_Surface): PTexture; |
119 function Surface2Tex(surf: PSDL_Surface): PTexture; |
|
120 procedure FreeTexture(tex: PTexture); |
120 |
121 |
121 var CursorPoint: TPoint; |
122 var CursorPoint: TPoint; |
122 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
123 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
123 |
124 |
124 implementation |
125 implementation |
284 |
285 |
285 glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST); |
286 glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST); |
286 glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR) |
287 glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR) |
287 end; |
288 end; |
288 |
289 |
|
290 procedure FreeTexture(tex: PTexture); |
|
291 begin |
|
292 glDeleteTextures(1, @tex^.id); |
|
293 dispose(tex) |
|
294 end; |
289 |
295 |
290 var i: LongInt; |
296 var i: LongInt; |
291 {$ENDIF} |
297 {$ENDIF} |
292 |
298 |
293 initialization |
299 initialization |