equal
deleted
inserted
replaced
840 for i:= max(x - r, 0) to min(x + r, 2043) do |
840 for i:= max(x - r, 0) to min(x + r, 2043) do |
841 if Land[y, i] <> 0 then inc(Result); |
841 if Land[y, i] <> 0 then inc(Result); |
842 CountNonZeroz:= Result |
842 CountNonZeroz:= Result |
843 end; |
843 end; |
844 |
844 |
845 var fx, x: LongInt; |
845 var x: LongInt; |
846 y, sy: LongInt; |
846 y, sy: LongInt; |
847 ar: array[0..511] of TPoint; |
847 ar: array[0..511] of TPoint; |
848 ar2: array[0..1023] of TPoint; |
848 ar2: array[0..1023] of TPoint; |
849 cnt, cnt2: Longword; |
849 cnt, cnt2: Longword; |
850 delta: LongInt; |
850 delta: LongInt; |