hedgewars/uLandTexture.pas
changeset 2152 a2811690da1b
parent 1906 644f93d8f148
child 2163 12730f5e79b9
equal deleted inserted replaced
2151:541d3a475442 2152:a2811690da1b
    24 procedure DrawLand(dX, dY: LongInt);
    24 procedure DrawLand(dX, dY: LongInt);
    25 procedure FreeLand;
    25 procedure FreeLand;
    26 
    26 
    27 implementation
    27 implementation
    28 uses uMisc, uLand, uStore, 
    28 uses uMisc, uLand, uStore, 
    29 {$IFDEF IPHONE}
    29 {$IFDEF GLES11}
    30 	gles11,
    30 	gles11,
    31 {$ELSE}
    31 {$ELSE}
    32 	GL,
    32 	GL,
    33 {$ENDIF}
    33 {$ENDIF}
    34 	uConsts;
    34 	uConsts;