Merge branch 'jmt/gps' into next

[flightgear.git] / scripts / perl / examples / aircraft.pl

diff --git a/scripts/perl/examples/aircraft.pl b/scripts/perl/examples/aircraft.pl
index 41703bfcfacd772b89ee0962c341b79bfcf41309..5b0e53c677ed807688f521065e7d5caa02f65a54 100755 (executable)
--- a/scripts/perl/examples/aircraft.pl
+++ b/scripts/perl/examples/aircraft.pl
@@ -1,4 +1,16 @@
 #!/usr/bin/perl
+#
+# aircraft.pl - Handle aircraft functions
+#
+# Written by Curtis L. Olson, started January 2004
+#
+# Copyright (C) 2004  Curtis L. Olson - http://www.flightgear.org/~curt
+#
+# This code is placed in the public domain by Curtis L. Olson.
+# There is no warranty, etc. etc. etc.
+#
+# $Id$
+# ----------------------------------------------------------------------------
 
 require "telnet.pl";
 
@@ -82,6 +94,13 @@ sub set_elevator {
     &set_prop( $fgfs, "/controls/flight/elevator", $pos_norm );
 }
 
+sub set_elevator_trim {
+    my( $fgfs ) = shift;
+    my( $pos_norm ) = shift;
+
+    &set_prop( $fgfs, "/controls/flight/elevator-trim", $pos_norm );
+}
+
 sub set_rudder {
     my( $fgfs ) = shift;
     my( $pos_norm ) = shift;