equal
deleted
inserted
replaced
644 p:= s^.pixels; |
644 p:= s^.pixels; |
645 allpx:= true; |
645 allpx:= true; |
646 for py:= 0 to Pred(s^.h) do |
646 for py:= 0 to Pred(s^.h) do |
647 begin |
647 begin |
648 for px:= 0 to Pred(s^.w) do |
648 for px:= 0 to Pred(s^.w) do |
649 if (((yy + py) and LAND_HEIGHT_MASK) = 0) and (((xx + px) and LAND_WIDTH_MASK) = 0) and if ((Land[yy + py, xx + px] and $FF) = 0) then |
649 if ((((yy + py) and LAND_HEIGHT_MASK) = 0) and (((xx + px) and LAND_WIDTH_MASK) = 0)) and ((Land[yy + py, xx + px] and $FF) = 0) then |
650 begin |
650 begin |
651 if (cReducedQuality and rqBlurryLand) = 0 then |
651 if (cReducedQuality and rqBlurryLand) = 0 then |
652 begin |
652 begin |
653 LandPixels[yy + py, xx + px]:= addBgColor(LandPixels[yy + py, xx + px], p^[px]); |
653 LandPixels[yy + py, xx + px]:= addBgColor(LandPixels[yy + py, xx + px], p^[px]); |
654 Land[yy + py, xx + px]:= Land[yy + py, xx + px] or lfObject; |
654 Land[yy + py, xx + px]:= Land[yy + py, xx + px] or lfObject; |