equal
deleted
inserted
replaced
86 begin |
86 begin |
87 for x:= 0 to Pred(Width) do |
87 for x:= 0 to Pred(Width) do |
88 begin |
88 begin |
89 if (cReducedQuality and rqBlurryLand) = 0 then |
89 if (cReducedQuality and rqBlurryLand) = 0 then |
90 begin |
90 begin |
91 if LandPixels[cpY + y, cpX + x] = 0 then |
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 LandPixels[cpY + y, cpX + x]:= p^[x]; |
93 LandPixels[cpY + y, cpX + x]:= p^[x]; |
93 end |
94 end |
94 else |
95 else |
95 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
96 if (LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0) or |
|
97 (((p^[x] and AMask) <> 0) and (((LandPixels[(cpY + y) div 2, (cpX + x) div 2] and AMask) shr AShift) < 255)) then |
96 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
98 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
97 |
99 |
98 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 |
99 Land[cpY + y, cpX + x]:= lfObject |
101 Land[cpY + y, cpX + x]:= lfObject |
100 end; |
102 end; |