equal
deleted
inserted
replaced
121 // vertical |
121 // vertical |
122 s:= LAND_HEIGHT; |
122 s:= LAND_HEIGHT; |
123 |
123 |
124 for x:= 0 to LAND_WIDTH - 1 do |
124 for x:= 0 to LAND_WIDTH - 1 do |
125 for y:= 0 to LAND_HEIGHT - 1 do |
125 for y:= 0 to LAND_HEIGHT - 1 do |
126 if LandPixels[y, x] = 0 then |
126 if Land[y, x] = 0 then |
127 if s < y then |
127 if s < y then |
128 begin |
128 begin |
129 for i:= max(s, y - 8) to y - 1 do |
129 for i:= max(s, y - 8) to y - 1 do |
130 begin |
130 begin |
131 if ((x + i) and 16) = 0 then c:= c1 else c:= c2; |
131 if ((x + i) and 16) = 0 then c:= c1 else c:= c2; |
155 // horizontal |
155 // horizontal |
156 s:= LAND_WIDTH; |
156 s:= LAND_WIDTH; |
157 |
157 |
158 for y:= 0 to LAND_HEIGHT - 1 do |
158 for y:= 0 to LAND_HEIGHT - 1 do |
159 for x:= 0 to LAND_WIDTH - 1 do |
159 for x:= 0 to LAND_WIDTH - 1 do |
160 if LandPixels[y, x] = 0 then |
160 if Land[y, x] = 0 then |
161 if s < x then |
161 if s < x then |
162 begin |
162 begin |
163 for i:= max(s, x - 8) to x - 1 do |
163 for i:= max(s, x - 8) to x - 1 do |
164 begin |
164 begin |
165 if ((y + i) and 16) = 0 then c:= c1 else c:= c2; |
165 if ((y + i) and 16) = 0 then c:= c1 else c:= c2; |