hedgewars/uLand.pas
changeset 1906 644f93d8f148
parent 1849 2a989e5abda6
child 2096 356468481e74
equal deleted inserted replaced
1905:b1ec8db513f2 1906:644f93d8f148
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    17  *)
    17  *)
    18 
    18 
    19 unit uLand;
    19 unit uLand;
    20 interface
    20 interface
    21 uses SDLh, uLandTemplates, uFloat, GL, uConsts;
    21 uses SDLh, uLandTemplates, uFloat, 
       
    22 {$IFDEF IPHONE}
       
    23 	gles11,
       
    24 {$ELSE}
       
    25 	GL,
       
    26 {$ENDIF}
       
    27 	uConsts;
    22 {$include options.inc}
    28 {$include options.inc}
    23 type TLandArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of LongWord;
    29 type TLandArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of LongWord;
    24 	TPreview  = packed array[0..127, 0..31] of byte;
    30 	TPreview  = packed array[0..127, 0..31] of byte;
    25 	TDirtyTag = packed array[0 .. LAND_HEIGHT div 32 - 1, 0 .. LAND_WIDTH div 32 - 1] of byte;
    31 	TDirtyTag = packed array[0 .. LAND_HEIGHT div 32 - 1, 0 .. LAND_WIDTH div 32 - 1] of byte;
    26 
    32