]> git.mxchange.org Git - flightgear.git/blobdiff - src/Instrumentation/tacan.cxx
GPSs uses FlightPlans directly.
[flightgear.git] / src / Instrumentation / tacan.cxx
old mode 100755 (executable)
new mode 100644 (file)
index a6a6077..01319ec
@@ -17,8 +17,8 @@
 
 #include "tacan.hxx"
 
-SG_USING_STD(vector);
-
+using std::vector;
+using std::string;
 
 /**
  * Adjust the range.
@@ -45,50 +45,20 @@ adjust_range (double transmitter_elevation_ft, double aircraft_altitude_ft,
 }
 
 
-TACAN::TACAN ( SGPropertyNode *node )
-    : _last_distance_nm(0),
-      _last_frequency_mhz(-1),
-      _time_before_search_sec(0),
-      _carrier_valid(false),
-      _transmitter_valid(false),
-      _transmitter_elevation_ft(0),
-      _transmitter_range_nm(0),
-      _transmitter_bias(0.0),
-
-      name("tacan"),
-      num(0)
-{
-
-    int i;
-    for ( i = 0; i < node->nChildren(); ++i ) {
-        SGPropertyNode *child = node->getChild(i);
-        string cname = child->getName();
-        string cval = child->getStringValue();
-        if ( cname == "name" ) {
-            name = cval;
-        } else if ( cname == "number" ) {
-            num = child->getIntValue();
-        } else {
-            SG_LOG( SG_INSTR, SG_DEBUG, "Error in TACAN config logic" );
-            if ( name.length() ) {
-                SG_LOG( SG_INSTR, SG_DEBUG, "Section = " << name );
-            }
-        }
-    }
-}
-
-TACAN::TACAN ()
-    : _last_distance_nm(0),
-      _last_frequency_mhz(-1),
-      _time_before_search_sec(0),
-      _carrier_valid(false),
-      _transmitter_valid(false),
-      _transmitter_elevation_ft(0),
-      _transmitter_range_nm(0),
-      _transmitter_bearing_deg(0),
-      _transmitter_bias(0.0),
-      _transmitter_name(""),
-      name("tacan")
+TACAN::TACAN ( SGPropertyNode *node ) :
+    _name(node->getStringValue("name", "tacan")),
+    _num(node->getIntValue("number", 0)),
+    _new_frequency(false),
+    _channel("0000"),
+    _last_distance_nm(0),
+    _frequency_mhz(-1),
+    _time_before_search_sec(0),
+    _mobile_valid(false),
+    _transmitter_valid(false),
+    _transmitter_pos(SGGeod::fromDeg(0, 0)),
+    _transmitter_range_nm(0),
+    _transmitter_bias(0.0),
+    _listener_active(0)
 {
 }
 
@@ -100,58 +70,67 @@ void
 TACAN::init ()
 {
     string branch;
-    branch = "/instrumentation/" + name;
+    branch = "/instrumentation/" + _name;
 
-    SGPropertyNode *node = fgGetNode(branch.c_str(), num, true );
+    SGPropertyNode *node = fgGetNode(branch.c_str(), _num, true );
 
-    _longitude_node = fgGetNode("/position/longitude-deg", true);
-    _latitude_node = fgGetNode("/position/latitude-deg", true);
-    _altitude_node = fgGetNode("/position/altitude-ft", true);
     _serviceable_node = node->getChild("serviceable", 0, true);
-    _electrical_node = fgGetNode("/systems/electrical/outputs/tacan", true);
+    _ident_node = node->getChild("ident", 0, true);
+
     SGPropertyNode *fnode = node->getChild("frequencies", 0, true);
-    _source_node = fnode->getChild("source", 0, true);
     _frequency_node = fnode->getChild("selected-mhz", 0, true);
-    _channel_node = fnode->getChild("selected-channel", 1, true);
-    _channel_node = fnode->getChild("selected-channel", 2, true);
-    _channel_node = fnode->getChild("selected-channel", 3, true);
-    _channel_node = fnode->getChild("selected-channel", 4, true);
+
+    _channel_in0_node = fnode->getChild("selected-channel", 0, true);
+    _channel_in1_node = fnode->getChild("selected-channel", 1, true);
+    _channel_in2_node = fnode->getChild("selected-channel", 2, true);
+    _channel_in3_node = fnode->getChild("selected-channel", 3, true);
+    _channel_in4_node = fnode->getChild("selected-channel", 4, true);
+
+    _channel_in0_node->addChangeListener(this);
+    _channel_in1_node->addChangeListener(this);
+    _channel_in2_node->addChangeListener(this);
+    _channel_in3_node->addChangeListener(this);
+    _channel_in4_node->addChangeListener(this, true);
+
     _in_range_node = node->getChild("in-range", 0, true);
     _distance_node = node->getChild("indicated-distance-nm", 0, true);
     _speed_node = node->getChild("indicated-ground-speed-kt", 0, true);
     _time_node = node->getChild("indicated-time-min", 0, true);
     _name_node = node->getChild("name", 0, true);
     _bearing_node = node->getChild("indicated-bearing-true-deg", 0, true);
-    SGPropertyNode *cnode = fgGetNode("/ai/models/carrier", num, true );
-    _carrier_name_node = cnode->getChild("name", 0, true);
-    SGPropertyNode *tnode = fgGetNode("/ai/models/aircraft", num, true );
-    _tanker_callsign_node = tnode->getChild("callsign", 0, true);
+
+    SGPropertyNode *dnode = node->getChild("display", 0, true);
+    _x_shift_node = dnode->getChild("x-shift", 0, true);
+    _y_shift_node = dnode->getChild("y-shift", 0, true);
+    _rotation_node = dnode->getChild("rotation", 0, true);
+    _channel_node = dnode->getChild("channel", 0, true);
+
+    SGPropertyNode *cnode = fgGetNode("/ai/models/carrier", _num, false );
+    _carrier_name_node = cnode ? cnode->getChild("name", 0, false) : 0;
+
+    SGPropertyNode *tnode = fgGetNode("/ai/models/aircraft", _num, false);
+    _tanker_callsign_node = tnode ? tnode->getChild("callsign", 0, false) : 0;
+
+    SGPropertyNode *mnode = fgGetNode("/ai/models/multiplayer", _num, false);
+    _mp_callsign_node = mnode ? mnode->getChild("callsign", 0, false) : 0;
+
+    _heading_node = fgGetNode("/orientation/heading-deg", true);
+    _yaw_node = fgGetNode("/orientation/side-slip-deg", true);
+    _electrical_node = fgGetNode("/systems/electrical/outputs/tacan", true);
 }
 
 void
-TACAN::update (double delta_time_sec)
+TACAN::reinit ()
 {
-    double az2 = 0;
-    double bearing = 0;
-    double distance = 0;
-    double carrier_az2 = 0;
-    double carrier_bearing = 0;
-    double carrier_distance = 0;
-    double tanker_az2 = 0;
-    double tanker_bearing = 0;
-    double tanker_distance = 0;
-    double frequency_mhz = 0;
-    double mobile_bearing = 0;
-    double mobile_distance = 0;
-    double mobile_elevation_ft = 0;
-    double mobile_range_nm = 0;
-    double mobile_bias = 0;
-    string mobile_name = "";
-    bool   mobile_valid = false;
+    _time_before_search_sec = 0;
+}
 
-    string _channel, _last_channel, _channel_1, _channel_2,_channel_3, _channel_4;
+void
+TACAN::update (double delta_time_sec)
+{
+    // don't do anything when paused
+    if (delta_time_sec == 0) return;
 
-                                // If it's off, don't waste any time.
     if (!_serviceable_node->getBoolValue() || !_electrical_node->getBoolValue()) {
         _last_distance_nm = 0;
         _in_range_node->setBoolValue(false);
@@ -162,150 +141,79 @@ TACAN::update (double delta_time_sec)
         return;
     }
 
-                                // Figure out the source
-    const char * source = _source_node->getStringValue();
-
-    if (source[0] == '\0') {
-        string branch;
-        branch = "/instrumentation/" + name + "/frequencies/selected-channel";
-        _source_node->setStringValue(branch.c_str());
-        source = _source_node->getStringValue();
-        SG_LOG( SG_INSTR, SG_DEBUG, "source " << source  );
-    }
-                                // Get the channel
-    _channel_1 = fgGetString("/instrumentation/tacan/frequencies/selected-channel[1]");
-    _channel_2 = fgGetString("/instrumentation/tacan/frequencies/selected-channel[2]");
-    _channel_3 = fgGetString("/instrumentation/tacan/frequencies/selected-channel[3]");
-    _channel_4 = fgGetString("/instrumentation/tacan/frequencies/selected-channel[4]");
-    SG_LOG( SG_INSTR, SG_DEBUG, "channels " << _channel_1 << _channel_2 << _channel_3 << _channel_4);
-    _channel = _channel_1 + _channel_2 + _channel_3 + _channel_4;
-    SG_LOG( SG_INSTR, SG_DEBUG, "channel " << _channel );
-
-                                // Get the frequecncy
-    if (_channel != _last_channel) {
-        _time_before_search_sec = 0;
-        _last_channel = _channel;
-        frequency_mhz = searchChannel(_channel);
-        SG_LOG( SG_INSTR, SG_DEBUG, "frequency " << frequency_mhz );
-        _frequency_node->setDoubleValue(frequency_mhz);
-    }
-
-                                // Get the aircraft position
-    double longitude_deg = _longitude_node->getDoubleValue();
-    double latitude_deg  = _latitude_node->getDoubleValue();
-    double altitude_m    = _altitude_node->getDoubleValue() * SG_FEET_TO_METER;
-    double longitude_rad = longitude_deg * SGD_DEGREES_TO_RADIANS;
-    double latitude_rad  = latitude_deg * SGD_DEGREES_TO_RADIANS;
-
+  SGGeod pos(globals->get_aircraft_position());
                                 // On timeout, scan again
     _time_before_search_sec -= delta_time_sec;
-    if (_time_before_search_sec < 0 && frequency_mhz > 0)
-        search(frequency_mhz, longitude_rad, latitude_rad, altitude_m);
+    if ((_time_before_search_sec < 0 || _new_frequency) && _frequency_mhz >= 0)
+        search(_frequency_mhz, pos);
 
                                  // Calculate the distance to the transmitter
 
-    //calculate the bearing and range of the carrier from the aircraft
-    SG_LOG( SG_INSTR, SG_DEBUG, "carrier_lat " << _carrier_lat);
-    SG_LOG( SG_INSTR, SG_DEBUG, "carrier_lon " << _carrier_lon);
-    SG_LOG( SG_INSTR, SG_DEBUG, "carrier_name " << _carrier_name);
-    SG_LOG( SG_INSTR, SG_DEBUG, "carrier_valid " << _carrier_valid);
-    geo_inverse_wgs_84(altitude_m,
-                       latitude_deg,
-                       longitude_deg,
-                       _carrier_lat,
-                       _carrier_lon,
-                       &carrier_bearing, &carrier_az2, &carrier_distance);
-
-    //calculate the bearing and range of the tanker from the aircraft
-    SG_LOG( SG_INSTR, SG_DEBUG, "tanker_lat " << _tanker_lat);
-    SG_LOG( SG_INSTR, SG_DEBUG, "tanker_lon " << _tanker_lon);
-    SG_LOG( SG_INSTR, SG_DEBUG, "tanker_name " << _tanker_name);
-    SG_LOG( SG_INSTR, SG_DEBUG, "tanker_valid " << _tanker_valid);
-    geo_inverse_wgs_84(altitude_m,
-                       latitude_deg,
-                       longitude_deg,
-                       _tanker_lat,
-                       _tanker_lon,
-                       &tanker_bearing, &tanker_az2, &tanker_distance);
+    //calculate the bearing and range of the mobile from the aircraft
+    double mobile_az2 = 0;
+    double mobile_bearing = 0;
+    double mobile_distance = 0;
 
+    SG_LOG( SG_INSTR, SG_DEBUG, "mobile_name " << _mobile_name);
+    SG_LOG( SG_INSTR, SG_DEBUG, "mobile_valid " << _mobile_valid);
+    geo_inverse_wgs_84(pos, _mobilePos,
+                       &mobile_bearing, &mobile_az2, &mobile_distance);
 
-    //calculate the bearing and range of the station from the aircraft
-    geo_inverse_wgs_84(altitude_m,
-                       latitude_deg,
-                       longitude_deg,
-                       _transmitter_lat,
-                       _transmitter_lon,
-                       &bearing, &az2, &distance);
-
-    //select the nearest valid mobile transmitter
-    if ( _carrier_valid && _tanker_valid ){
-        if( carrier_distance <= tanker_distance ){
-            SG_LOG( SG_INSTR, SG_DEBUG, " select carrier (dist) " );
-            mobile_bearing = carrier_bearing;
-            mobile_distance = carrier_distance;
-            mobile_elevation_ft = _carrier_elevation_ft;
-            mobile_range_nm = _carrier_range_nm;
-            mobile_bias = _carrier_bias;
-            mobile_name = _carrier_name;
-        }else{
-            SG_LOG( SG_INSTR, SG_DEBUG, " select tanker (dist)  " );
-            mobile_bearing = tanker_bearing;
-            mobile_distance = tanker_distance;
-            mobile_elevation_ft = _tanker_elevation_ft;
-            mobile_range_nm = _tanker_range_nm;
-            mobile_bias = _tanker_bias;
-            mobile_name = _tanker_name;
-        }
-        mobile_valid = true;
-    }
-    else if ( _carrier_valid && !_tanker_valid ){
-        SG_LOG( SG_INSTR, SG_DEBUG, " select carrier  " );
-        mobile_bearing = carrier_bearing;
-        mobile_distance = carrier_distance;
-        mobile_elevation_ft = _carrier_elevation_ft;
-        mobile_range_nm = _carrier_range_nm;
-        mobile_bias = _carrier_bias;
-        mobile_name = _carrier_name;
-        mobile_valid = true;
-    }
-    else if ( !_carrier_valid && _tanker_valid ){
-        SG_LOG( SG_INSTR, SG_DEBUG, " select tanker  " );
-        mobile_bearing = tanker_bearing;
-        mobile_distance = tanker_distance;
-        mobile_elevation_ft = _tanker_elevation_ft;
-        mobile_range_nm = _tanker_range_nm;
-        mobile_bias = _tanker_bias;
-        mobile_name = _tanker_name;
-        mobile_valid = true;
-    }else{
-        mobile_valid = false;
-    }
 
+    //calculate the bearing and range of the station from the aircraft
+    double az2 = 0;
+    double bearing = 0;
+    double distance = 0;
 
+    geo_inverse_wgs_84(pos, _transmitter_pos,
+                       &bearing, &az2, &distance);
 
 
     //select the nearer
-    if ( mobile_distance <= distance && mobile_valid) {
+    if ( mobile_distance <= distance && _mobile_valid) {
         SG_LOG( SG_INSTR, SG_DEBUG, "mobile_distance_m " << mobile_distance);
         SG_LOG( SG_INSTR, SG_DEBUG, "distance_m " << distance);
         bearing = mobile_bearing;
         distance = mobile_distance;
-        _transmitter_elevation_ft = mobile_elevation_ft;
-        _transmitter_range_nm = mobile_range_nm;
-        _transmitter_bias = mobile_bias;
-        _transmitter_name = mobile_name;
+        _transmitter_pos.setElevationFt(_mobilePos.getElevationFt());
+        _transmitter_range_nm = _mobile_range_nm;
+        _transmitter_bias = _mobile_bias;
+        _transmitter_name = _mobile_name;
         _name_node->setStringValue(_transmitter_name.c_str());
+        _transmitter_ident = _mobile_ident;
+        _ident_node->setStringValue(_transmitter_ident.c_str());
+        _channel_node->setStringValue(_channel.c_str());
     }
 
+    //// calculate some values for boresight display
     double distance_nm = distance * SG_METER_TO_NM;
-    SG_LOG( SG_INSTR, SG_DEBUG, "distance_nm " << distance_nm  << " bearing " << bearing);
 
-    /*Point3D location =
-        sgGeodToCart(Point3D(longitude_rad, latitude_rad, altitude_m));
-    double distance_nm = _transmitter.distance3D(location) * SG_METER_TO_NM;*/
+    //// calculate look left/right to target, without yaw correction
+    // double horiz_offset = bearing - heading;
+    //
+    // if (horiz_offset > 180.0) horiz_offset -= 360.0;
+    // if (horiz_offset < -180.0) horiz_offset += 360.0;
+
+    //// now correct look left/right for yaw
+    // horiz_offset += yaw;
+
+    // use the bearing for a plan position indicator display
+
+    double horiz_offset = bearing;
+
+    SG_LOG( SG_INSTR, SG_DEBUG, "distance_nm " << distance_nm << " bearing "
+            << bearing << " horiz_offset " << horiz_offset);
+
+    // calculate values for radar display
+    double y_shift = distance_nm * cos( horiz_offset * SG_DEGREES_TO_RADIANS);
+    double x_shift = distance_nm * sin( horiz_offset * SG_DEGREES_TO_RADIANS);
 
-    double range_nm = adjust_range(_transmitter_elevation_ft,
-                                   altitude_m * SG_METER_TO_FEET,
+    SG_LOG( SG_INSTR, SG_DEBUG, "y_shift " << y_shift  << " x_shift " << x_shift);
+
+    double rotation = 0;
+
+    double range_nm = adjust_range(_transmitter_pos.getElevationFt(),
+                                  pos.getElevationFt(),
                                    _transmitter_range_nm);
 
     if (distance_nm <= range_nm) {
@@ -320,9 +228,11 @@ TACAN::update (double delta_time_sec)
         }
         _distance_node->setDoubleValue( tmp_dist );
         _speed_node->setDoubleValue(speed_kt);
-        _time_node->setDoubleValue(distance_nm/speed_kt*60.0);
+        _time_node->setDoubleValue(speed_kt > 0 ? (distance_nm/speed_kt*60.0) : 0);
         _bearing_node->setDoubleValue(bearing);
-
+        _x_shift_node->setDoubleValue(x_shift);
+        _y_shift_node->setDoubleValue(y_shift);
+        _rotation_node->setDoubleValue(rotation);
     } else {
         _last_distance_nm = 0;
         _in_range_node->setBoolValue(false);
@@ -330,26 +240,35 @@ TACAN::update (double delta_time_sec)
         _speed_node->setDoubleValue(0);
         _time_node->setDoubleValue(0);
         _bearing_node->setDoubleValue(0);
+        _x_shift_node->setDoubleValue(0);
+        _y_shift_node->setDoubleValue(0);
+        _rotation_node->setDoubleValue(0);
     }
 
                                 // If we can't find a valid station set everything to zero
-    if (!_transmitter_valid && !mobile_valid ) {
+    if (!_transmitter_valid && !_mobile_valid ) {
         _in_range_node->setBoolValue(false);
         _distance_node->setDoubleValue(0);
         _speed_node->setDoubleValue(0);
         _time_node->setDoubleValue(0);
         _bearing_node->setDoubleValue(0);
+        _x_shift_node->setDoubleValue(0);
+        _y_shift_node->setDoubleValue(0);
+        _rotation_node->setDoubleValue(0);
         _transmitter_name = "";
         _name_node->setStringValue(_transmitter_name.c_str());
+        _transmitter_ident = "";
+        _ident_node->setStringValue(_transmitter_ident.c_str());
+        _channel_node->setStringValue(_channel.c_str());
         return;
     }
 } // end function update
 
 void
-TACAN::search (double frequency_mhz, double longitude_rad,
-               double latitude_rad, double altitude_m)
+TACAN::search (double frequency_mhz,const SGGeod& pos)
 {
     int number, i;
+    _mobile_valid = false;
 
     SG_LOG( SG_INSTR, SG_DEBUG, "tacan freq " << frequency_mhz );
 
@@ -357,14 +276,13 @@ TACAN::search (double frequency_mhz, double longitude_rad,
     _time_before_search_sec = 1.0;
 
     //try any carriers first
-     FGNavRecord *carrier_tacan
-          = globals->get_carrierlist()->findStationByFreq( frequency_mhz );
-    _carrier_valid = (carrier_tacan != NULL);
+    FGNavRecord *mobile_tacan = FGNavList::findByFreq( frequency_mhz, FGNavList::carrierFilter() );
+    bool freq_valid = (mobile_tacan != NULL);
+    SG_LOG( SG_INSTR, SG_DEBUG, "mobile freqency valid " << freq_valid );
 
-    if ( _carrier_valid ) {
-        SG_LOG( SG_INSTR, SG_DEBUG, "carrier transmitter valid " << _carrier_valid  );
+    if ( freq_valid ) {
 
-        string str1( carrier_tacan->get_name() );
+        string str1( mobile_tacan->name() );
 
         SGPropertyNode * branch = fgGetNode("ai/models", true);
         vector<SGPropertyNode_ptr> carrier = branch->getChildren("carrier");
@@ -372,52 +290,38 @@ TACAN::search (double frequency_mhz, double longitude_rad,
         number = carrier.size();
 
         SG_LOG( SG_INSTR, SG_DEBUG, "carrier " << number );
-
         for ( i = 0; i < number; ++i ) {
             string str2 ( carrier[i]->getStringValue("name", ""));
             SG_LOG( SG_INSTR, SG_DEBUG, "carrier name " << str2 );
 
             SG_LOG( SG_INSTR, SG_DEBUG, "strings 1 " << str1 << " 2 " << str2 );
-            unsigned int loc1= str1.find( str2, 0 );
+            string::size_type loc1= str1.find( str2, 0 );
             if ( loc1 != string::npos && str2 != "" ) {
                 SG_LOG( SG_INSTR, SG_DEBUG, " string found" );
-                _carrier_lat = carrier[i]->getDoubleValue("position/latitude-deg");
-                _carrier_lon = carrier[i]->getDoubleValue("position/longitude-deg");
-                _carrier_elevation_ft = carrier_tacan->get_elev_ft();
-                _carrier_range_nm = carrier_tacan->get_range();
-                _carrier_bias = carrier_tacan->get_multiuse();
-                _carrier_name = carrier_tacan->get_name();
-                _carrier_valid = 1;
-                SG_LOG( SG_INSTR, SG_DEBUG, " carrier transmitter valid " << _carrier_valid );
+                _mobilePos = SGGeod::fromDegFt(
+                             carrier[i]->getDoubleValue("position/longitude-deg"),
+                             carrier[i]->getDoubleValue("position/latitude-deg"),
+                             mobile_tacan->get_elev_ft());
+                _mobile_range_nm = mobile_tacan->get_range();
+                _mobile_bias = mobile_tacan->get_multiuse();
+                _mobile_name = mobile_tacan->name();
+                _mobile_ident = mobile_tacan->get_trans_ident();
+                _mobile_valid = true;
+                SG_LOG( SG_INSTR, SG_DEBUG, " carrier transmitter valid " << _mobile_valid );
                 break;
             } else {
-                _carrier_valid = 0;
-                SG_LOG( SG_INSTR, SG_DEBUG, " carrier transmitter invalid " << _carrier_valid );
+                _mobile_valid = false;
+                SG_LOG( SG_INSTR, SG_DEBUG, " carrier transmitter invalid " << _mobile_valid );
             }
         }
 
-        SG_LOG( SG_INSTR, SG_DEBUG, "name " << _carrier_name);
-        SG_LOG( SG_INSTR, SG_DEBUG, "lat " << _carrier_lat << "lon " << _carrier_lon);
-        SG_LOG( SG_INSTR, SG_DEBUG, "elev " << _carrier_elevation_ft);
-
-    } else {
-        SG_LOG( SG_INSTR, SG_DEBUG, " carrier transmitter invalid " << _carrier_valid  );
-    }
-
-    //try any tankers second
-     FGNavRecord *tanker_tacan
-          = globals->get_carrierlist()->findStationByFreq( frequency_mhz );
-
-     _tanker_valid = (tanker_tacan != NULL);
-
-
-    if ( _tanker_valid ) {
-        SG_LOG( SG_INSTR, SG_DEBUG, "tanker transmitter valid start " << _tanker_valid  );
+        //try any AI tankers second
 
-        string str3( tanker_tacan->get_name() );
+        if ( !_mobile_valid) {
+            SG_LOG( SG_INSTR, SG_DEBUG, "tanker transmitter valid start " << _mobile_valid );
 
         SGPropertyNode * branch = fgGetNode("ai/models", true);
-        vector<SGPropertyNode_ptr> tanker = branch->getChildren("aircraft");
+        vector<SGPropertyNode_ptr> tanker = branch->getChildren("tanker");
 
         number = tanker.size();
 
@@ -427,78 +331,184 @@ TACAN::search (double frequency_mhz, double longitude_rad,
             string str4 ( tanker[i]->getStringValue("callsign", ""));
             SG_LOG( SG_INSTR, SG_DEBUG, "tanker callsign " << str4 );
 
-            SG_LOG( SG_INSTR, SG_DEBUG, "strings 3 " << str3 << " 4 " << str4 );
-            unsigned int loc1= str3.find( str4, 0 );
+            SG_LOG( SG_INSTR, SG_DEBUG, "strings 1 " << str1 << " 4 " << str4 );
+            string::size_type loc1= str1.find( str4, 0 );
             if ( loc1 != string::npos && str4 != "" ) {
                 SG_LOG( SG_INSTR, SG_DEBUG, " string found" );
-                _tanker_lat = tanker[i]->getDoubleValue("position/latitude-deg");
-                _tanker_lon = tanker[i]->getDoubleValue("position/longitude-deg");
-                _tanker_elevation_ft = tanker[i]->getDoubleValue("position/altitude-ft");
-                _tanker_range_nm = tanker_tacan->get_range();
-                _tanker_bias = tanker_tacan->get_multiuse();
-                _tanker_name = tanker_tacan->get_name();
-                _tanker_valid = 1;
-                SG_LOG( SG_INSTR, SG_DEBUG, " tanker transmitter valid " << _tanker_valid );
+                _mobilePos = SGGeod::fromDegFt(
+                                             tanker[i]->getDoubleValue("position/longitude-deg"),
+                                             tanker[i]->getDoubleValue("position/latitude-deg"),
+                                             tanker[i]->getDoubleValue("position/altitude-ft"));
+
+              
+                _mobile_range_nm = mobile_tacan->get_range();
+                _mobile_bias = mobile_tacan->get_multiuse();
+                _mobile_name = mobile_tacan->name();
+                _mobile_ident = mobile_tacan->get_trans_ident();
+                _mobile_valid = true;
+                SG_LOG( SG_INSTR, SG_DEBUG, " tanker transmitter valid " << _mobile_valid );
                 break;
             } else {
-                _tanker_valid = 0;
-                SG_LOG( SG_INSTR, SG_DEBUG, " tanker transmitter invalid " << _tanker_valid );
+                _mobile_valid = false;
+                SG_LOG( SG_INSTR, SG_DEBUG, " tanker transmitter invalid " << _mobile_valid );
             }
         }
+    }
+
+    //try any mp tankers third, if we haven't found the tanker in the ai aircraft
 
-        SG_LOG( SG_INSTR, SG_DEBUG, "tanker name " << _tanker_name);
-        SG_LOG( SG_INSTR, SG_DEBUG, "lat " << _tanker_lat << "lon " << _tanker_lon);
-        SG_LOG( SG_INSTR, SG_DEBUG, "elev " << _tanker_elevation_ft);
-        SG_LOG( SG_INSTR, SG_DEBUG, "range " << _tanker_range_nm);
+    if ( !_mobile_valid ) {
+        SG_LOG( SG_INSTR, SG_DEBUG, " mp tanker transmitter valid start " << _mobile_valid );
 
+        SGPropertyNode * branch = fgGetNode("ai/models", true);
+        vector<SGPropertyNode_ptr> mp_tanker = branch->getChildren("multiplayer");
+
+        number = mp_tanker.size();
+
+        SG_LOG( SG_INSTR, SG_DEBUG, " mp tanker number " << number );
+
+        if ( number > 0 ) {      // don't do this if there are no MP aircraft
+            for ( i = 0; i < number; ++i ) {
+                string str6 ( mp_tanker[i]->getStringValue("callsign", ""));
+                SG_LOG( SG_INSTR, SG_DEBUG, "mp tanker callsign " << str6 );
+
+                SG_LOG( SG_INSTR, SG_DEBUG, "strings 1 " << str1 << " 5 " << str6 );
+                string::size_type loc1= str1.find( str6, 0 );
+                if ( loc1 != string::npos && str6 != "" ) {
+                    SG_LOG( SG_INSTR, SG_DEBUG, " string found" );
+                  _mobilePos = SGGeod::fromDegFt(
+                                                 mp_tanker[i]->getDoubleValue("position/longitude-deg"),
+                                                 mp_tanker[i]->getDoubleValue("position/latitude-deg"),
+                                                 mp_tanker[i]->getDoubleValue("position/altitude-ft"));
+
+                  
+                    _mobile_range_nm = mobile_tacan->get_range();
+                    _mobile_bias = mobile_tacan->get_multiuse();
+                    _mobile_name = mobile_tacan->name();
+                    _mobile_ident = mobile_tacan->get_trans_ident();
+                    _mobile_valid = true;
+
+                    SG_LOG( SG_INSTR, SG_DEBUG, " mp tanker transmitter valid " << _mobile_valid );
+                    SG_LOG( SG_INSTR, SG_DEBUG, " mp tanker name " << _mobile_name);
+                    SG_LOG( SG_INSTR, SG_DEBUG, " mp range " << _mobile_range_nm);
+                    break;
+                } else {
+                    _mobile_valid = false;
+                    SG_LOG( SG_INSTR, SG_DEBUG, " mp tanker transmitter invalid " << _mobile_valid );
+                    }
+                }
+            }
+        }
     } else {
-        SG_LOG( SG_INSTR, SG_DEBUG, " tanker transmitter invalid " << _tanker_valid  );
+        _mobile_valid = false;
+        SG_LOG( SG_INSTR, SG_DEBUG, " mobile transmitter invalid " << _mobile_valid );
     }
 
     // try the TACAN/VORTAC list next
-    FGNavRecord *tacan
-        = globals->get_tacanlist()->findByFreq( frequency_mhz, longitude_rad,
-                                                latitude_rad, altitude_m);
+    FGNavRecord *tacan = FGNavList::findByFreq( frequency_mhz, pos, FGNavList::tacanFilter() );
 
     _transmitter_valid = (tacan != NULL);
 
     if ( _transmitter_valid ) {
-        SG_LOG( SG_INSTR, SG_DEBUG, "transmitter valid " << _transmitter_valid  );
+        SG_LOG( SG_INSTR, SG_DEBUG, "transmitter valid " << _transmitter_valid );
 
-        _transmitter_lat = tacan->get_lat();
-        _transmitter_lon = tacan->get_lon();
-        _transmitter_elevation_ft = tacan->get_elev_ft();
+        _transmitter_pos = tacan->geod();
         _transmitter_range_nm = tacan->get_range();
         _transmitter_bias = tacan->get_multiuse();
-        _transmitter_name = tacan->get_name();
+        _transmitter_name = tacan->name();
         _name_node->setStringValue(_transmitter_name.c_str());
+        _transmitter_ident = tacan->get_trans_ident();
+        _ident_node->setStringValue(_transmitter_ident.c_str());
 
         SG_LOG( SG_INSTR, SG_DEBUG, "name " << _transmitter_name);
-        SG_LOG( SG_INSTR, SG_DEBUG, "lat " << _transmitter_lat << "lon " << _transmitter_lon);
-        SG_LOG( SG_INSTR, SG_DEBUG, "elev " << _transmitter_elevation_ft);
+        SG_LOG( SG_INSTR, SG_DEBUG, _transmitter_pos);
 
     } else {
-        SG_LOG( SG_INSTR, SG_DEBUG, "transmitter invalid " << _transmitter_valid  );
+        SG_LOG( SG_INSTR, SG_DEBUG, "transmitter invalid " << _transmitter_valid );
     }
 }
 
 double
-TACAN::searchChannel (const string& _channel){
-
+TACAN::searchChannel (const string& channel)
+{
     double frequency_khz = 0;
 
     FGTACANRecord *freq
-        = globals->get_channellist()->findByChannel( _channel );
-    double _freq_valid = (freq != NULL);
-    SG_LOG( SG_INSTR, SG_DEBUG, "freq valid " << _freq_valid  );
+        = globals->get_channellist()->findByChannel( channel );
+    bool _freq_valid = (freq != NULL);
+    SG_LOG( SG_INSTR, SG_DEBUG, "freq valid " << _freq_valid );
     if ( _freq_valid ) {
         frequency_khz = freq->get_freq();
-        SG_LOG( SG_INSTR, SG_DEBUG, "freq output " << frequency_khz  );
+        SG_LOG( SG_INSTR, SG_DEBUG, "freq output " << frequency_khz );
         //check sanity
-        if (frequency_khz >=9620 && frequency_khz <= 12130)
+        if (frequency_khz >= 9620 && frequency_khz <= 121300)
             return frequency_khz/100;
     }
     return frequency_khz = 0;
 } // end TACAN::searchChannel
 
+/*
+ * Listener callback. Maintains channel input properties,
+ * searches new channel frequency, updates _channel and
+ * _frequency and sets boolean _new_frequency appropriately.
+ */
+void
+TACAN::valueChanged(SGPropertyNode *prop)
+{
+    if (_listener_active)
+        return;
+    _listener_active++;
+
+    int index = prop->getIndex();
+    string channel = _channel;
+
+    if (index) {  // channel digit or X/Y input
+        int c;
+        if (isdigit(c = _channel_in1_node->getStringValue()[0]))
+            channel[0] = c;
+        if (isdigit(c = _channel_in2_node->getStringValue()[0]))
+            channel[1] = c;
+        if (isdigit(c = _channel_in3_node->getStringValue()[0]))
+            channel[2] = c;
+        c = _channel_in4_node->getStringValue()[0];
+        if (c == 'X' || c == 'Y')
+            channel[3] = c;
+
+    } else {      // channel number input
+        unsigned int f = prop->getIntValue();
+        if (f >= 1 && f <= 126) {
+            channel[0] = '0' + (f / 100) % 10;
+            channel[1] = '0' + (f / 10) % 10;
+            channel[2] = '0' + f % 10;
+        }
+    }
+
+    if (channel != _channel) {
+        SG_LOG(SG_INSTR, SG_DEBUG, "new channel " << channel);
+
+        // write back result
+        _channel_in0_node->setIntValue((channel[0] - '0') * 100
+                + (channel[1] - '0') * 10 + (channel[2] - '0'));
+        char s[2] = "0";
+        s[0] = channel[0], _channel_in1_node->setStringValue(s);
+        s[0] = channel[1], _channel_in2_node->setStringValue(s);
+        s[0] = channel[2], _channel_in3_node->setStringValue(s);
+        s[0] = channel[3], _channel_in4_node->setStringValue(s);
+
+        // search channel frequency
+        double freq = searchChannel(channel);
+        if (freq != _frequency_mhz) {
+            SG_LOG(SG_INSTR, SG_DEBUG, "new frequency " << freq);
+            _frequency_node->setDoubleValue(freq);
+            _frequency_mhz = freq;
+            _new_frequency = true;
+        }
+
+        _channel = channel;
+        _time_before_search_sec = 0;
+    }
+
+    _listener_active--;
+}
+
 // end of TACAN.cxx