[paparazzi-commits] [4072] default cruise_thrust set to CRUISE_THROTTLE

[Pascal Brisset]

Revision: 4072
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4072
Author:   hecto
Date:     2009-09-03 12:23:55 +0000 (Thu, 03 Sep 2009)
Log Message:
-----------
 default cruise_thrust set to CRUISE_THROTTLE

Modified Paths:
--------------
    paparazzi3/trunk/sw/simulator/flightModel.ml

Modified: paparazzi3/trunk/sw/simulator/flightModel.ml
===================================================================
--- paparazzi3/trunk/sw/simulator/flightModel.ml        2009-09-03 11:50:22 UTC 
(rev 4071)
+++ paparazzi3/trunk/sw/simulator/flightModel.ml        2009-09-03 12:23:55 UTC 
(rev 4072)
@@ -73,7 +73,6 @@
 let get_air_speed state = state.air_speed
 let set_air_speed state = fun s -> state.air_speed <- s
 
-let cruise_thrust = 0.45
 let g = 9.81
 
 module Make(A:Data.MISSION) = struct
@@ -145,6 +144,10 @@
   let roll_neutral_default = try rad_of_deg (float_value infrared_section 
"ROLL_NEUTRAL_DEFAULT") with _ -> 0.
   let pitch_neutral_default = try rad_of_deg (float_value infrared_section 
"PITCH_NEUTRAL_DEFAULT") with _ -> 0.
 
+
+  let vert_ctrl_section = try section "VERTICAL CONTROL" with _ -> 
Xml.Element("",[],[])
+  let cruise_thrust = try float_value vert_ctrl_section 
"AUTO_THROTTLE_NOMINAL_CRUISE_THROTTLE" with _ -> 0.45
+
   let min_thrust =  0
   let max_thrust =  max_pprz