equal
deleted
inserted
replaced
6 Left, Right: integer; |
6 Left, Right: integer; |
7 end; |
7 end; |
8 |
8 |
9 procedure DrawExplosion(X, Y, Radius: integer); |
9 procedure DrawExplosion(X, Y, Radius: integer); |
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: real; 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, uStore, uMisc, uLand, uConsts; |
16 |
16 |
184 end; |
184 end; |
185 |
185 |
186 // |
186 // |
187 // - (dX, dY) - direction, vector of length = 0.5 |
187 // - (dX, dY) - direction, vector of length = 0.5 |
188 // |
188 // |
189 procedure DrawTunnel(X, Y, dX, dY: real; ticks, HalfWidth: integer); |
189 procedure DrawTunnel(X, Y, dX, dY: Double; ticks, HalfWidth: integer); |
190 var nx, ny: real; |
190 var nx, ny: Double; |
191 i, t, tx, ty: integer; |
191 i, t, tx, ty: integer; |
192 begin // (-dY, dX) is (dX, dY) turned by PI/2 |
192 begin // (-dY, dX) is (dX, dY) turned by PI/2 |
193 if SDL_MustLock(LandSurface) then |
193 if SDL_MustLock(LandSurface) then |
194 SDL_LockSurface(LandSurface); |
194 SDL_LockSurface(LandSurface); |
195 |
195 |