14 * You should have received a copy of the GNU General Public License |
14 * You should have received a copy of the GNU General Public License |
15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
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 {$include options.inc} |
|
20 |
19 unit uLand; |
21 unit uLand; |
20 interface |
22 interface |
21 uses SDLh, uLandTemplates, uFloat, |
23 uses SDLh, uLandTemplates, uFloat, |
22 {$IFDEF GLES11} |
24 {$IFDEF GLES11} |
23 gles11, |
25 gles11, |
24 {$ELSE} |
26 {$ELSE} |
25 GL, |
27 GL, |
26 {$ENDIF} |
28 {$ENDIF} |
27 uConsts; |
29 uConsts; |
28 {$include options.inc} |
|
29 type TLandArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of LongWord; |
30 type TLandArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of LongWord; |
30 TCollisionArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of Word; |
31 TCollisionArray = packed array[0 .. LAND_HEIGHT - 1, 0 .. LAND_WIDTH - 1] of Word; |
31 TPreview = packed array[0..127, 0..31] of byte; |
32 TPreview = packed array[0..127, 0..31] of byte; |
32 TDirtyTag = packed array[0 .. LAND_HEIGHT div 32 - 1, 0 .. LAND_WIDTH div 32 - 1] of byte; |
33 TDirtyTag = packed array[0 .. LAND_HEIGHT div 32 - 1, 0 .. LAND_WIDTH div 32 - 1] of byte; |
33 |
34 |