changeset 358 | 236bbd12d4d9 |
parent 351 | 29bc9c36ad5f |
child 393 | db01cc79f278 |
357:165a040e4cfa | 358:236bbd12d4d9 |
---|---|
1 begin |
1 begin |
2 X:= X + dX; |
2 X:= X + dX; |
3 Y:= Y + dY; |
3 Y:= Y + dY; |
4 tx:= hwRound(X); |
4 tx:= hwRound(X); |
5 ty:= hwRound(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 |
7 SetLandPixel(ty, tx) |
7 ((tx and $FFFFF800) = 0) and |
8 (Land[ty, tx] = $FFFFFF) then SetLandPixel(ty, tx) |
|
8 end; |
9 end; |