changeset 3224 | f5f4c611bcac |
parent 3181 | 5c350b6c38f4 |
child 3225 | 5d8f4737b6cd |
3223:f0e590790f3b | 3224:f5f4c611bcac |
---|---|
247 begin |
247 begin |
248 AddLoopPoints(pa, opa, StartLoop, i, Delta); |
248 AddLoopPoints(pa, opa, StartLoop, i, Delta); |
249 inc(i, 2); |
249 inc(i, 2); |
250 StartLoop:= i; |
250 StartLoop:= i; |
251 pa.ar[pa.Count].X:= NTPX; |
251 pa.ar[pa.Count].X:= NTPX; |
252 pa.ar[pa.Count].Y:= 0; |
|
252 inc(pa.Count); |
253 inc(pa.Count); |
253 end else inc(i) |
254 end else inc(i) |
254 end; |
255 end; |
255 |
256 |
256 procedure FillLand(x, y: LongInt); |
257 procedure FillLand(x, y: LongInt); |