576     Scale:= abs(hwFloat2Float(Gear^.Density / _3 * speed));

   576     Scale:= abs(hwFloat2Float(Gear^.Density / _3 * speed));

   577     if Scale > 1 then Scale:= power(Scale,0.3333)

   577     if Scale > 1 then Scale:= power(Scale,0.3333)

   578     else Scale:= Scale + ((1-Scale) / 2);

   578     else Scale:= Scale + ((1-Scale) / 2);

   579     if Scale > 1 then Timer:= round(min(Scale*0.0005/cGravityf,4))

   579     if Scale > 1 then Timer:= round(min(Scale*0.0005/cGravityf,4))

   580     else Timer:= 1;

   580     else Timer:= 1;

   581     // Low Gravity

   582     // Low Gravity

   582     FrameTicks:= FrameTicks*Timer;

   583     FrameTicks:= FrameTicks*Timer;

   583     end;

   584     end;

   584 

   585 

   585 

   586