| changeset 359 | 59fbfc65fbda |
| parent 358 | 236bbd12d4d9 |
| child 360 | ab6a94334d6d |
| 358:236bbd12d4d9 | 359:59fbfc65fbda |
|---|---|
169 t:= t + dT; |
169 t:= t + dT; |
170 DrawLine(px, py, x, y, Color); |
170 DrawLine(px, py, x, y, Color); |
171 px:= x; |
171 px:= x; |
172 py:= y |
172 py:= y |
173 end; |
173 end; |
174 DrawLine(px, py, hwRound(x2), hwRound(y2), Color) |
|
174 end; |
175 end; |
175 end; |
176 end; |
176 |
177 |
177 procedure FillLand(x, y: integer); |
178 procedure FillLand(x, y: integer); |
178 var Stack: record |
179 var Stack: record |