equal
deleted
inserted
replaced
25 procedure UpdateLandTexture(X, Width, Y, Height: LongInt); |
25 procedure UpdateLandTexture(X, Width, Y, Height: LongInt); |
26 procedure DrawLand(dX, dY: LongInt); |
26 procedure DrawLand(dX, dY: LongInt); |
27 procedure FreeLand; |
27 procedure FreeLand; |
28 |
28 |
29 implementation |
29 implementation |
30 uses uMisc, uLand, uStore, |
30 uses uMisc, uLand, uStore, uConsts, |
31 {$IFDEF GLES11} |
31 {$IFDEF GLES11} |
32 gles11, |
32 gles11; |
33 {$ELSE} |
33 {$ELSE} |
34 GL, |
34 GL; |
35 {$ENDIF} |
35 {$ENDIF} |
36 uConsts; |
36 |
37 |
37 |
38 const TEXSIZE = 256; |
38 const TEXSIZE = 256; |
39 LANDTEXARW = LAND_WIDTH div TEXSIZE; |
39 LANDTEXARW = LAND_WIDTH div TEXSIZE; |
40 LANDTEXARH = LAND_HEIGHT div TEXSIZE; |
40 LANDTEXARH = LAND_HEIGHT div TEXSIZE; |
41 |
41 |