equal
deleted
inserted
replaced
94 end |
94 end |
95 else |
95 else |
96 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
96 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
97 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
97 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
98 |
98 |
99 Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or extraFlags; |
|
100 |
99 |
101 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
100 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
102 begin |
101 begin |
103 Land[cpY + y, cpX + x]:= lfObject; |
102 Land[cpY + y, cpX + x]:= lfObject; |
|
103 Land[cpY + y, cpX + x]:= Land[cpY + y, cpX + x] or extraFlags |
104 end; |
104 end; |
105 end; |
105 end; |
106 p:= @(p^[Image^.pitch shr 2]) |
106 p:= @(p^[Image^.pitch shr 2]) |
107 end; |
107 end; |
108 |
108 |