hedgewars/uLandUtils.pas
branchtransitional_engine
changeset 15928 772a43d88e6b
parent 15905 022ec6b916b7
child 16007 96d0e6149d3d
equal deleted inserted replaced
15926:c273908218f3 15928:772a43d88e6b
    87     hasGirders:= true;
    87     hasGirders:= true;
    88 
    88 
    89     leftX:= (LAND_WIDTH - playWidth) div 2;
    89     leftX:= (LAND_WIDTH - playWidth) div 2;
    90     rightX:= Pred(leftX + playWidth);
    90     rightX:= Pred(leftX + playWidth);
    91     topY:= LAND_HEIGHT - playHeight;
    91     topY:= LAND_HEIGHT - playHeight;
    92 
    92     cWaterLine:= LAND_HEIGHT;
    93 
    93 
    94     // let's assume those are powers of two
    94     // let's assume those are powers of two
    95     LAND_WIDTH_MASK:= not(LAND_WIDTH-1);
    95     LAND_WIDTH_MASK:= not(LAND_WIDTH-1);
    96     LAND_HEIGHT_MASK:= not(LAND_HEIGHT-1);
    96     LAND_HEIGHT_MASK:= not(LAND_HEIGHT-1);
    97 
    97