hedgewars/tunsetborder.inc
author displacer
Sat, 27 Jan 2007 17:41:08 +0000
changeset 372 4bac77f8cd38
parent 358 236bbd12d4d9
child 393 db01cc79f278
permissions -rw-r--r--
network colors (alpha)
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);
358
236bbd12d4d9 - New Land Generator
unc0rr
parents: 351
diff changeset
     6
        if ((ty and $FFFFFC00) = 0) and
236bbd12d4d9 - New Land Generator
unc0rr
parents: 351
diff changeset
     7
           ((tx and $FFFFF800) = 0) and
236bbd12d4d9 - New Land Generator
unc0rr
parents: 351
diff changeset
     8
           (Land[ty, tx] = $FFFFFF) then SetLandPixel(ty, tx)
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 184
diff changeset
     9
	end;