equal
deleted
inserted
replaced
584 p:= @(p^[LandSurface^.pitch]); |
584 p:= @(p^[LandSurface^.pitch]); |
585 end; |
585 end; |
586 4: for y:= 0 to 1023 do |
586 4: for y:= 0 to 1023 do |
587 begin |
587 begin |
588 for x:= 0 to 2047 do |
588 for x:= 0 to 2047 do |
589 if PLongword(@(p^[x * 4]))^ <> 0 then Land[y, x]:= COLOR_LAND; |
589 if (PLongword(@(p^[x * 4]))^ and $FF000000) <> 0 then Land[y, x]:= COLOR_LAND; |
590 p:= @(p^[LandSurface^.pitch]); |
590 p:= @(p^[LandSurface^.pitch]); |
591 end; |
591 end; |
592 end; |
592 end; |
593 |
593 |
594 if SDL_MustLock(LandSurface) then |
594 if SDL_MustLock(LandSurface) then |