equal
deleted
inserted
replaced
704 Land[y, rightX - w]:= lfIndestructible; |
704 Land[y, rightX - w]:= lfIndestructible; |
705 if (y + leftX + w) mod 32 < 16 then |
705 if (y + leftX + w) mod 32 < 16 then |
706 c:= AMask |
706 c:= AMask |
707 else |
707 else |
708 c:= AMask or RMask or GMask; // FF00FFFF |
708 c:= AMask or RMask or GMask; // FF00FFFF |
709 if (y + rightX - 5 + w) mod 32 < 16 then |
709 if (y + rightX - w) mod 32 < 16 then |
710 c2:= AMask |
710 c2:= AMask |
711 else |
711 else |
712 c2:= AMask or RMask or GMask; // FF00FFFF |
712 c2:= AMask or RMask or GMask; // FF00FFFF |
713 |
713 |
714 if (cReducedQuality and rqBlurryLand) = 0 then |
714 if (cReducedQuality and rqBlurryLand) = 0 then |
715 begin |
715 begin |
716 LandPixels[y, leftX + w]:= c; |
716 LandPixels[y, leftX + w]:= c; |
717 LandPixels[y, rightX - 5 + w]:= c2; |
717 LandPixels[y, rightX - w]:= c2; |
718 end |
718 end |
719 else |
719 else |
720 begin |
720 begin |
721 LandPixels[y div 2, (leftX + w) div 2]:= c; |
721 LandPixels[y div 2, (leftX + w) div 2]:= c; |
722 LandPixels[y div 2, (rightX - 5 + w) div 2]:= c2; |
722 LandPixels[y div 2, (rightX - w) div 2]:= c2; |
723 end; |
723 end; |
724 end; |
724 end; |
725 |
725 |
726 for x:= leftX to rightX do |
726 for x:= leftX to rightX do |
727 begin |
727 begin |