equal
deleted
inserted
replaced
28 end; |
28 end; |
29 |
29 |
30 |
30 |
31 procedure Push(_xl, _xr, _y, _dir: LongInt); |
31 procedure Push(_xl, _xr, _y, _dir: LongInt); |
32 begin |
32 begin |
33 TryDo(Stack.Count <= 8192, 'FillLand: stack overflow', true); |
33 if checkFails(Stack.Count <= 8192, 'FillLand: stack overflow', true) then exit; |
34 _y:= _y + _dir; |
34 _y:= _y + _dir; |
35 if (_y < 0) or (_y >= LAND_HEIGHT) then |
35 if (_y < 0) or (_y >= LAND_HEIGHT) then |
36 exit; |
36 exit; |
37 with Stack.points[Stack.Count] do |
37 with Stack.points[Stack.Count] do |
38 begin |
38 begin |