hedgewars/uWorld.pas
branchexperimental3D
changeset 4345 2c93d6a10869
parent 4343 19cbea33e4d2
child 4347 0ddb100fea61
equal deleted inserted replaced
4343:19cbea33e4d2 4345:2c93d6a10869
    73     amSel: TAmmoType = amNothing;
    73     amSel: TAmmoType = amNothing;
    74     missionTex: PTexture;
    74     missionTex: PTexture;
    75     missionTimer: LongInt;
    75     missionTimer: LongInt;
    76     stereoDepth: GLfloat = 0;
    76     stereoDepth: GLfloat = 0;
    77 
    77 
    78 const cStereo_Sky     = 0.0750;
    78 const cStereo_Sky     = 0.0500;
    79       cStereo_Horizon = 0.0250;
    79       cStereo_Horizon = 0.0250;
    80       cStereo_Water   = 0.0125;
    80       cStereo_Water   = 0.0125;
    81 
    81 
    82 procedure InitWorld;
    82 procedure InitWorld;
    83 var i, t: LongInt;
    83 var i, t: LongInt;