hedgewars/uLandTexture.pas
changeset 10124 aabd1b75d5a3
parent 10108 c68cf030eded
child 10266 a90a55ec5b98
equal deleted inserted replaced
10123:64e72781d344 10124:aabd1b75d5a3
    32 implementation
    32 implementation
    33 uses uConsts, GLunit, uTypes, uVariables, uTextures, uDebug, uRender;
    33 uses uConsts, GLunit, uTypes, uVariables, uTextures, uDebug, uRender;
    34 
    34 
    35 const TEXSIZE = 128;
    35 const TEXSIZE = 128;
    36       // in avoid tile borders stretch the blurry texture by 1 pixel more
    36       // in avoid tile borders stretch the blurry texture by 1 pixel more
    37       BLURRYLANDOVERLAP = 1 / TEXSIZE / 2.0; // 1 pixel divided by texsize and blurry land scale factor
    37       BLURRYLANDOVERLAP: real = 1 / TEXSIZE / 2.0; // 1 pixel divided by texsize and blurry land scale factor
    38 
    38 
    39 type TLandRecord = record
    39 type TLandRecord = record
    40             shouldUpdate, landAdded: boolean;
    40             shouldUpdate, landAdded: boolean;
    41             tex: PTexture;
    41             tex: PTexture;
    42             end;
    42             end;