equal
deleted
inserted
replaced
381 begin |
381 begin |
382 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
382 tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
383 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
383 tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
384 for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
384 for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
385 DrawSprite(sprPower, |
385 DrawSprite(sprPower, |
386 hwRound(Gear^.X) + system.round(WorldDx + tdx * (24 + i * 2)) - 16, |
386 hwRound(Gear^.X) + round(WorldDx + tdx * (24 + i * 2)) - 16, |
387 hwRound(Gear^.Y) + system.round(WorldDy + tdy * (24 + i * 2)) - 12, |
387 hwRound(Gear^.Y) + round(WorldDy + tdy * (24 + i * 2)) - 12, |
388 i) |
388 i) |
389 end |
389 end |
390 end; |
390 end; |
391 |
391 |
392 DrawGears; |
392 DrawGears; |