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

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

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

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

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

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

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

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

   588     else Timer:= 1;

   588     else Timer:= 1;

   590     // Low Gravity

   596     // Low Gravity

   591     FrameTicks:= FrameTicks*Timer;

   597     FrameTicks:= FrameTicks*Timer;

   592     end;

   598     end;

   593 

   599 

   594 

   600