equal
deleted
inserted
replaced
91 if (LandPixels[cpY + y, cpX + x] = 0) or |
91 if (LandPixels[cpY + y, cpX + x] = 0) or |
92 (((p^[x] and AMask) <> 0) and (((LandPixels[cpY + y, cpX + x] and AMask) shr AShift) < 255)) then |
92 (((p^[x] and AMask) <> 0) and (((LandPixels[cpY + y, cpX + x] and AMask) shr AShift) < 255)) then |
93 LandPixels[cpY + y, cpX + x]:= p^[x]; |
93 LandPixels[cpY + y, cpX + x]:= p^[x]; |
94 end |
94 end |
95 else |
95 else |
96 if (LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0) or |
96 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
97 (((p^[x] and AMask) <> 0) and (((LandPixels[(cpY + y) div 2, (cpX + x) div 2] and AMask) shr AShift) < 255)) then |
|
98 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
97 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
99 |
98 |
100 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
99 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
101 Land[cpY + y, cpX + x]:= lfObject |
100 Land[cpY + y, cpX + x]:= lfObject |
102 end; |
101 end; |