| changeset 351 | 29bc9c36ad5f |
| parent 184 | f97a7a3dc8f6 |
| child 358 | 236bbd12d4d9 |
| 350:c3ccec3834e8 | 351:29bc9c36ad5f |
|---|---|
1 begin |
1 begin |
2 X:= X + dX; |
2 X:= X + dX; |
3 Y:= Y + dY; |
3 Y:= Y + dY; |
4 tx:= round(X); |
4 tx:= hwRound(X); |
5 ty:= round(Y); |
5 ty:= hwRound(Y); |
6 if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then |
6 if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then |
7 SetLandPixel(ty, tx) |
7 SetLandPixel(ty, tx) |
8 end; |
8 end; |