diff -r c11abf387a7d -r d5b30d6373fc hedgewars/uLandTexture.pas --- a/hedgewars/uLandTexture.pas Sat Jul 31 10:52:43 2010 +0200 +++ b/hedgewars/uLandTexture.pas Sat Jul 31 11:24:53 2010 +0200 @@ -42,7 +42,7 @@ tmpPixels: array [0..TEXSIZE - 1, 0..TEXSIZE - 1] of LongWord; LANDTEXARW: LongWord; LANDTEXARH: LongWord; - + function Pixels(x, y: Longword): Pointer; var ty: Longword; begin @@ -101,7 +101,7 @@ begin shouldUpdate:= false; glBindTexture(GL_TEXTURE_2D, tex^.id); - glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, TEXSIZE, TEXSIZE, 0, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x,y)); + glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, TEXSIZE, TEXSIZE, 0, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x,y)); end end; @@ -132,10 +132,10 @@ LANDTEXARW:= (LAND_WIDTH div TEXSIZE) div 2; LANDTEXARH:= (LAND_HEIGHT div TEXSIZE) div 2; end; - + SetLength(LandTextures, LANDTEXARW, LANDTEXARH); end; - + procedure freeModule; var x, y: LongInt; begin