equal
deleted
inserted
replaced
234 Land[y, i]:= Land[y, i] - 1; |
234 Land[y, i]:= Land[y, i] - 1; |
235 end; |
235 end; |
236 setCurrentHog: |
236 setCurrentHog: |
237 for i:= fromPix to toPix do |
237 for i:= fromPix to toPix do |
238 begin |
238 begin |
239 Land[y, i]:= Land[y, i] or lfCurrentHog |
239 Land[y, i]:= Land[y, i] or lfCurHogCrate |
240 end; |
240 end; |
241 removeCurrentHog: |
241 removeCurrentHog: |
242 for i:= fromPix to toPix do |
242 for i:= fromPix to toPix do |
243 begin |
243 begin |
244 Land[y, i]:= Land[y, i] and lfNotCurrentMask; |
244 Land[y, i]:= Land[y, i] and lfNotCurHogCrate; |
245 end; |
245 end; |
246 end; |
246 end; |
247 end; |
247 end; |
248 |
248 |
249 function FillLandCircleSegmentFT(x, y, dx, dy: LongInt; fill : fillType): Longword; inline; |
249 function FillLandCircleSegmentFT(x, y, dx, dy: LongInt; fill : fillType): Longword; inline; |