equal
deleted
inserted
replaced
17 procedure LandPixelSet(y, x: LongInt; value: Longword); |
17 procedure LandPixelSet(y, x: LongInt; value: Longword); |
18 function LandPixelRow(row: LongInt): PLongwordArray; |
18 function LandPixelRow(row: LongInt): PLongwordArray; |
19 |
19 |
20 implementation |
20 implementation |
21 uses uUtils, uConsts, uVariables, uTypes; |
21 uses uUtils, uConsts, uVariables, uTypes; |
|
22 |
|
23 {$linklib hwengine_future} |
22 |
24 |
23 function create_empty_game_field(width, height: Longword): pointer; cdecl; external; |
25 function create_empty_game_field(width, height: Longword): pointer; cdecl; external; |
24 procedure get_game_field_parameters(game_field: pointer; var width: LongInt; var height: LongInt; var play_width: LongInt; var play_height: LongInt); cdecl; external; |
26 procedure get_game_field_parameters(game_field: pointer; var width: LongInt; var height: LongInt; var play_width: LongInt; var play_height: LongInt); cdecl; external; |
25 procedure dispose_game_field(game_field: pointer); cdecl; external; |
27 procedure dispose_game_field(game_field: pointer); cdecl; external; |
26 |
28 |