1
begin
2
X:= X + dX;
3
Y:= Y + dY;
4
tx:= hwRound(X);
5
ty:= hwRound(Y);
6
if ((ty and $FFFFFC00) = 0) and
7
((tx and $FFFFF800) = 0) and
8
(Land[ty, tx] = $FFFFFF) then SetLandPixel(ty, tx)
9
end;