equal
deleted
inserted
replaced
83 p:= Image^.pixels; |
83 p:= Image^.pixels; |
84 for y:= 0 to Pred(Image^.h) do |
84 for y:= 0 to Pred(Image^.h) do |
85 begin |
85 begin |
86 for x:= 0 to Pred(Width) do |
86 for x:= 0 to Pred(Width) do |
87 begin |
87 begin |
88 {$IFDEF DOWNSCALE} |
88 if (cReducedQuality and rqBlurryLand) = 0 then |
89 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
89 begin |
90 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
90 if LandPixels[cpY + y, cpX + x] = 0 then |
91 {$ELSE} |
91 LandPixels[cpY + y, cpX + x]:= p^[x]; |
92 if LandPixels[cpY + y, cpX + x] = 0 then |
92 end |
93 LandPixels[cpY + y, cpX + x]:= p^[x]; |
93 else |
94 {$ENDIF} |
94 if LandPixels[(cpY + y) div 2, (cpX + x) div 2] = 0 then |
|
95 LandPixels[(cpY + y) div 2, (cpX + x) div 2]:= p^[x]; |
|
96 |
95 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
97 if ((Land[cpY + y, cpX + x] and $FF00) = 0) and ((p^[x] and AMask) <> 0) then |
96 Land[cpY + y, cpX + x]:= lfObject |
98 Land[cpY + y, cpX + x]:= lfObject |
97 end; |
99 end; |
98 p:= @(p^[Image^.pitch shr 2]) |
100 p:= @(p^[Image^.pitch shr 2]) |
99 end; |
101 end; |