equal
deleted
inserted
replaced
396 //or ((xland or land) and lfBouncy <> 0)) then |
396 //or ((xland or land) and lfBouncy <> 0)) then |
397 begin |
397 begin |
398 if (xland or land) and lfBouncy = 0 then |
398 if (xland or land) and lfBouncy = 0 then |
399 begin |
399 begin |
400 Gear^.dX := tdY*Gear^.Elasticity*Gear^.Friction; |
400 Gear^.dX := tdY*Gear^.Elasticity*Gear^.Friction; |
401 Gear^.dY := tdX*Gear^.Elasticity |
401 Gear^.dY := tdX*Gear^.Elasticity; |
|
402 Gear^.State := Gear^.State or gstCollision |
402 end |
403 end |
403 else |
404 else |
404 begin |
405 begin |
405 Gear^.dX := tdY*cElastic*Gear^.Friction; |
406 Gear^.dX := tdY*cElastic*Gear^.Friction; |
406 Gear^.dY := tdX*cElastic |
407 Gear^.dY := tdX*cElastic |