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