equal
deleted
inserted
replaced
88 begin |
88 begin |
89 for x:= 0 to Pred(Width) do |
89 for x:= 0 to Pred(Width) do |
90 if LandPixels[cpY + y, cpX + x] = 0 then |
90 if LandPixels[cpY + y, cpX + x] = 0 then |
91 begin |
91 begin |
92 LandPixels[cpY + y, cpX + x]:= p^[x]; |
92 LandPixels[cpY + y, cpX + x]:= p^[x]; |
93 if (p^[x] and AMask) <> 0 then Land[cpY + y, cpX + x]:= COLOR_OBJECT; |
93 if (p^[x] and AMask) <> 0 then Land[cpY + y, cpX + x]:= COLOR_LAND; |
94 end; |
94 end; |
95 p:= @(p^[Image^.pitch shr 2]); |
95 p:= @(p^[Image^.pitch shr 2]); |
96 end; |
96 end; |
97 |
97 |
98 if SDL_MustLock(Image) then |
98 if SDL_MustLock(Image) then |