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, uConsts, |
30 uses uMisc, uLand, uStore, uConsts, GLunit; |
31 {$IFDEF GLES11} |
|
32 gles11; |
|
33 {$ELSE} |
|
34 GL; |
|
35 {$ENDIF} |
|
36 |
31 |
37 |
32 |
38 const TEXSIZE = 256; |
33 const TEXSIZE = 256; |
39 LANDTEXARW = LAND_WIDTH div TEXSIZE; |
34 LANDTEXARW = LAND_WIDTH div TEXSIZE; |
40 LANDTEXARH = LAND_HEIGHT div TEXSIZE; |
35 LANDTEXARH = LAND_HEIGHT div TEXSIZE; |