25            points: array[0..8192] of record

    25            points: array[0..8192] of record

    26                                      xl, xr, y, dir: LongInt;

    26                                      xl, xr, y, dir: LongInt;

    27                                      end

    27                                      end

    28            end;

    28            end;

    29 

    29 

    32 

    30 

    33 procedure Push(_xl, _xr, _y, _dir: LongInt);

    31 procedure Push(_xl, _xr, _y, _dir: LongInt);

    34 begin

    32 begin

    35     TryDo(Stack.Count <= 8192, 'FillLand: stack overflow', true);

    33     TryDo(Stack.Count <= 8192, 'FillLand: stack overflow', true);

    36     _y:= _y + _dir;

    34     _y:= _y + _dir;