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 

    26 

    26 var  Land: TLandArray;

    27 var  Land: TLandArray;

    27      LandPixels: TLandArray;

    28      LandPixels: TLandArray;

    28      LandTexture: PTexture = nil;

    29      LandTexture: PTexture = nil;

    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);