equal
deleted
inserted
replaced
641 |
641 |
642 p:= Surface^.pixels; |
642 p:= Surface^.pixels; |
643 for y:= 0 to LAND_HEIGHT - 1 do |
643 for y:= 0 to LAND_HEIGHT - 1 do |
644 begin |
644 begin |
645 for x:= 0 to LAND_WIDTH - 1 do |
645 for x:= 0 to LAND_WIDTH - 1 do |
|
646 if Land[y, x] <> 0 then |
646 if (cReducedQuality and rqBlurryLand) = 0 then |
647 if (cReducedQuality and rqBlurryLand) = 0 then |
647 if Land[y, x] <> 0 then LandPixels[y, x]:= p^[x] or AMask |
648 LandPixels[y, x]:= p^[x] or AMask |
648 else |
649 else |
649 if Land[y, x] <> 0 then LandPixels[y div 2, x div 2]:= p^[x] or AMask; |
650 LandPixels[y div 2, x div 2]:= p^[x] or AMask; |
650 |
651 |
651 p:= @(p^[Surface^.pitch div 4]); |
652 p:= @(p^[Surface^.pitch div 4]); |
652 end; |
653 end; |
653 |
654 |
654 if SDL_MustLock(Surface) then |
655 if SDL_MustLock(Surface) then |