equal
deleted
inserted
replaced
202 pLandColor:= @LandPixels[cpY + y, cpX + x] |
202 pLandColor:= @LandPixels[cpY + y, cpX + x] |
203 else |
203 else |
204 pLandColor:= @LandPixels[(cpY + y) div 2, (cpX + x) div 2]; |
204 pLandColor:= @LandPixels[(cpY + y) div 2, (cpX + x) div 2]; |
205 |
205 |
206 alpha:= (color and AMask) shr AShift; |
206 alpha:= (color and AMask) shr AShift; |
207 if (alpha <> $FF) and (pLandColor^ <> 0) then |
207 if ((alpha <> $FF) and ((pLandColor^) <> 0)) then |
208 begin |
208 begin |
209 landColor:= pLandColor^; |
209 landColor:= pLandColor^; |
210 color:= |
210 color:= |
211 (LerpByte((landColor and RMask) shr RShift, (color and RMask) shr RShift, alpha) shl RShift) |
211 (LerpByte((landColor and RMask) shr RShift, (color and RMask) shr RShift, alpha) shl RShift) |
212 or (LerpByte((landColor and GMask) shr GShift, (color and GMask) shr GShift, alpha) shl GShift) |
212 or (LerpByte((landColor and GMask) shr GShift, (color and GMask) shr GShift, alpha) shl GShift) |