3 # aircraft.pl - Handle aircraft functions
5 # Written by Curtis L. Olson, started January 2004
7 # Copyright (C) 2004 Curtis L. Olson - http://www.flightgear.org/~curt
9 # This code is placed in the public domain by Curtis L. Olson.
10 # There is no warranty, etc. etc. etc.
13 # ----------------------------------------------------------------------------
21 my( $engine_num ) = shift;
26 &set_prop( $fgfs, "/controls/engines/engine[$engine_num]/magnetos", "3" );
27 &set_prop( $fgfs, "/controls/engines/engine[$engine_num]/starter", "true" );
29 &set_prop( $fgfs, "/controls/engines/engine[$engine_num]/starter",
36 my( $engine ) = shift;
37 my( $throttle_norm ) = shift;
39 &set_prop( $fgfs, "/controls/engines/engine[$engine]/throttle",
46 my( $engine ) = shift;
47 my( $mix_norm ) = shift;
49 &set_prop( $fgfs, "/controls/engines/engine[$engine]/mixture", $mix_norm );
57 &set_prop( $fgfs, "/sim/aircraft-weight-lbs", $lbs );
63 my( $inches ) = shift;
65 &set_prop( $fgfs, "/sim/aircraft-cg-offset-inches", $inches );
69 sub set_parking_brake {
71 my( $pos_norm ) = shift;
73 &set_prop( $fgfs, "/controls/gear/brake-parking", $pos_norm );
78 my( $pos_norm ) = shift;
80 &set_prop( $fgfs, "/controls/flight/flaps", $pos_norm );
85 my( $pos_norm ) = shift;
87 &set_prop( $fgfs, "/controls/flight/aileron", $pos_norm );
92 my( $pos_norm ) = shift;
94 &set_prop( $fgfs, "/controls/flight/elevator", $pos_norm );
97 sub set_elevator_trim {
99 my( $pos_norm ) = shift;
101 &set_prop( $fgfs, "/controls/flight/elevator-trim", $pos_norm );
106 my( $pos_norm ) = shift;
108 &set_prop( $fgfs, "/controls/flight/rudder", $pos_norm );