equal
deleted
inserted
replaced
151 color:= p^[Pred(Image^.w) - x] |
151 color:= p^[Pred(Image^.w) - x] |
152 else |
152 else |
153 color:= p^[x]; |
153 color:= p^[x]; |
154 |
154 |
155 if (cReducedQuality and rqBlurryLand) = 0 then |
155 if (cReducedQuality and rqBlurryLand) = 0 then |
156 pLandColor:= @LandPixels[cpY + y, cpX + x] |
156 pLandColor:= @(LandPixelRow(cpY + y)^[cpX + x]) |
157 else |
157 else |
158 pLandColor:= @LandPixels[(cpY + y) div 2, (cpX + x) div 2]; |
158 pLandColor:= @(LandPixelRow((cpY + y) div 2)^[(cpX + x) div 2]); |
159 |
159 |
160 landColor:= pLandColor^; |
160 landColor:= pLandColor^; |
161 alpha:= (landColor and AMask) shr AShift; |
161 alpha:= (landColor and AMask) shr AShift; |
162 |
162 |
163 if ((color and AMask) <> 0) and (alpha <> 255) then |
163 if ((color and AMask) <> 0) and (alpha <> 255) then |
206 begin |
206 begin |
207 color:= p^[x]; |
207 color:= p^[x]; |
208 if (color and AMask) <> 0 then |
208 if (color and AMask) <> 0 then |
209 begin |
209 begin |
210 if (cReducedQuality and rqBlurryLand) = 0 then |
210 if (cReducedQuality and rqBlurryLand) = 0 then |
211 pLandColor:= @LandPixels[cpY + y, cpX + x] |
211 pLandColor:= @(LandPixelRow(cpY + y)^[cpX + x]) |
212 else |
212 else |
213 pLandColor:= @LandPixels[(cpY + y) div 2, (cpX + x) div 2]; |
213 pLandColor:= @(LandPixelRow((cpY + y) div 2)^[(cpX + x) div 2]); |
214 |
214 |
215 alpha:= (color and AMask) shr AShift; |
215 alpha:= (color and AMask) shr AShift; |
216 if ((alpha <> $FF) and ((pLandColor^) <> 0)) then |
216 if ((alpha <> $FF) and ((pLandColor^) <> 0)) then |
217 begin |
217 begin |
218 landColor:= pLandColor^; |
218 landColor:= pLandColor^; |
261 for x:= 0 to Pred(Image^.w) do |
261 for x:= 0 to Pred(Image^.w) do |
262 begin |
262 begin |
263 color:= p^[x]; |
263 color:= p^[x]; |
264 |
264 |
265 if (cReducedQuality and rqBlurryLand) = 0 then |
265 if (cReducedQuality and rqBlurryLand) = 0 then |
266 pLandColor:= @LandPixels[cpY + y, cpX + x] |
266 pLandColor:= @(LandPixelRow(cpY + y)^[cpX + x]) |
267 else |
267 else |
268 pLandColor:= @LandPixels[(cpY + y) div 2, (cpX + x) div 2]; |
268 pLandColor:= @(LandPixelRow((cpY + y) div 2)^[(cpX + x) div 2]); |
269 |
269 |
270 landColor:= pLandColor^; |
270 landColor:= pLandColor^; |
271 alpha:= (landColor and AMask) shr AShift; |
271 alpha:= (landColor and AMask) shr AShift; |
272 |
272 |
273 if ((color and AMask) <> 0) and (alpha <> 255) then |
273 if ((color and AMask) <> 0) and (alpha <> 255) then |