equal
deleted
inserted
replaced
2175 Gear^.dX:= Gear^.dX * f; |
2175 Gear^.dX:= Gear^.dX * f; |
2176 Gear^.dY:= Gear^.dY * f; |
2176 Gear^.dY:= Gear^.dY * f; |
2177 end |
2177 end |
2178 else begin |
2178 else begin |
2179 if Gear^.dX.QWordValue > _0_01.QWordValue then |
2179 if Gear^.dX.QWordValue > _0_01.QWordValue then |
2180 if Gear^.dX.QWordValue > _2.QWordValue then |
|
2181 Gear^.dX := Gear^.dX * _0_995; |
2180 Gear^.dX := Gear^.dX * _0_995; |
2182 |
2181 |
2183 Gear^.dY := Gear^.dY + cGravity; |
2182 Gear^.dY := Gear^.dY + cGravity; |
2184 // if sticky then Gear^.dY := Gear^.dY + cGravity; |
2183 // if sticky then Gear^.dY := Gear^.dY + cGravity; |
2185 |
2184 |