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