equal
deleted
inserted
replaced
10 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: integer; y, dY: integer; Count: Byte); |
10 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: integer; y, dY: integer; Count: Byte); |
11 procedure DrawTunnel(X, Y, dX, dY: Double; ticks, HalfWidth: integer); |
11 procedure DrawTunnel(X, Y, dX, dY: Double; ticks, HalfWidth: integer); |
12 procedure FillRoundInLand(X, Y, Radius: integer; Value: Longword); |
12 procedure FillRoundInLand(X, Y, Radius: integer; Value: Longword); |
13 |
13 |
14 implementation |
14 implementation |
15 uses SDLh, uStore, uMisc, uLand, uConsts; |
15 uses SDLh, uMisc, uLand, uConsts; |
16 |
16 |
17 procedure FillCircleLines(x, y, dx, dy: integer; Value: Longword); |
17 procedure FillCircleLines(x, y, dx, dy: integer; Value: Longword); |
18 var i: integer; |
18 var i: integer; |
19 begin |
19 begin |
20 if ((y + dy) and $FFFFFC00) = 0 then |
20 if ((y + dy) and $FFFFFC00) = 0 then |