hedgewars/tunsetborder.inc
author unc0rr
Sun, 21 Jan 2007 19:51:02 +0000
changeset 351 29bc9c36ad5f
parent 184 f97a7a3dc8f6
child 358 236bbd12d4d9
permissions -rw-r--r--
Fixed-point arithmetics in engine. Introduced many bugs. Currently disabled: - land morphing in land generator - AI - many minor features Engine is nearly unusable and totally unplayable.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     1
        begin
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     2
        X:= X + dX;
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     3
        Y:= Y + dY;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 184
diff changeset
     4
        tx:= hwRound(X);
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 184
diff changeset
     5
        ty:= hwRound(Y);
184
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     6
        if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) then
f97a7a3dc8f6 - Update more headers
unc0rr
parents: 101
diff changeset
     7
           SetLandPixel(ty, tx)
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 184
diff changeset
     8
	end;