equal
deleted
inserted
replaced
20 interface |
20 interface |
21 uses SDLh, uLandTemplates, uFloat, GL, uConsts; |
21 uses SDLh, uLandTemplates, uFloat, GL, uConsts; |
22 {$include options.inc} |
22 {$include options.inc} |
23 type TLandArray = packed array[0..1023, 0..2047] of LongWord; |
23 type TLandArray = packed array[0..1023, 0..2047] of LongWord; |
24 TPreview = packed array[0..127, 0..31] of byte; |
24 TPreview = packed array[0..127, 0..31] of byte; |
|
25 TDirtyTag = packed array[0..31, 0..63] of byte; |
25 |
26 |
26 var Land: TLandArray; |
27 var Land: TLandArray; |
27 LandPixels: TLandArray; |
28 LandPixels: TLandArray; |
28 LandTexture: PTexture = nil; |
29 LandTexture: PTexture = nil; |
|
30 LandDirty: TDirtyTag; |
29 |
31 |
30 procedure GenMap; |
32 procedure GenMap; |
31 function GenPreview: TPreview; |
33 function GenPreview: TPreview; |
32 procedure CheckLandDigest(s: shortstring); |
34 procedure CheckLandDigest(s: shortstring); |
33 procedure UpdateLandTexture(Y, Height: LongInt); |
35 procedure UpdateLandTexture(Y, Height: LongInt); |