location-in-airvboxleft
var verbose = 0;
if (verbose) {
# Display on console the mess that we have inherited:
props.dump(props.globals.getNode("/fdm/jsbsim/sim-time-sec"));
props.dump(props.globals.getNode("/orientation"));
props.dump(props.globals.getNode("/velocities"));
}
var self = cmdarg();
me = "/sim/gui/dialogs/location-in-air";
magvar = getprop("/environment/magnetic-variation-deg");
setprop(me, "reciprocate", 1);
pow = func {
return math.exp(arg[1]*math.ln(arg[0]));
}
# The reciprocal heading. Angles in degrees.
reciprocal = func(angle){
if (angle == nil or angle == "") return "";
angle = string.trim(angle);
var catch = [];
var rslt = 0;
call(func{rslt = 180 + angle},[],nil,nil,catch);
if (size(catch)) return "???";
if (rslt > 360) rslt -= 360;
return sprintf("%03d", rslt);
}
# Dispatch table. Binds "bearing" to reciprocal of "radial"
# and vice versa.
last_input = "";
dispatch = {
"bearing" : func() {
var val = getprop(me, "bearing-deg-mag");
#print("bearing script called: ", val);
setprop(me, "radial-deg-mag", reciprocal(val));
},
"radial" : func() {
var val = getprop(me, "radial-deg-mag");
#print("radial script called: ", val);
setprop(me, "bearing-deg-mag", reciprocal(val));
},
};
# "Common key" functions for all input boxes.
# The only ones of interest have implementations
# in the dispatch table above.
dispatch_inputs = func(new_input){
fgcommand("dialog-apply", self);
#printf("dispatch_inputs: '%8s' --> '%8s'", last_input, new_input);
foreach (k; keys(dispatch)) {
if (k == last_input) call(dispatch[k]);
}
last_input = new_input;
fgcommand("dialog-update", self);
}
mynode = props.globals.getNode(me, 1);
mode = {
"airport-btn": mynode.getNode("airport-btn", 1),
"lonlat-btn": mynode.getNode("lonlat-btn", 1),
"vor-btn": mynode.getNode("vor-btn", 1),
"ndb-btn": mynode.getNode("ndb-btn", 1),
"fix-btn": mynode.getNode("fix-btn", 1),
"ppos-btn": mynode.getNode("ppos-btn", 1),
};
# Function to push a radio button and clear all the others:
set_radio = func(m) {
#print("set_radio: ", m);
dispatch_inputs("");
foreach (k; keys(mode)) {
mode[k].setBoolValue(m == k);
}
}
# Initialize all the radio buttons:
initialized = 0;
foreach (k; keys(mode)) {
if (mode[k].getType() == "NONE") {
mode[k].setBoolValue(0);
}
initialized += mode[k].getBoolValue();
}
if (!initialized) {
set_radio("airport-btn");
}
# We make a private copy of each of the FDM "preset"
# variables, so we don't need to worry about whether
# the FDM will mess with them later.
var presetvars = props.globals.getNode("/sim/presets").getChildren();
# Inherit a few things from the presets on the fgfs command line:
if (!getprop(me, "did1")) {
setprop(me, "did1", 1); # inherit only once
# Copy each inherited variable.
foreach (nnn ; presetvars) {
var ttt = nnn.getType();
var value = nnn.getValue();
var varname = nnn.getName();
# Make sure we assign a _string_ (not a numeric) to
# our copy of the variable.
# The reason for that is so that (later) we can distinguish
# between "" (which means take the default)
# and zero (which means the user wants a value of zero).
if (ttt == "STRING") {
setprop(me, varname, value);
} elsif (value != nil) {
# must be some kind of numeric
var fmt = "%1.0f";
if (varname == "longitude-deg" or varname == "latitude-deg"){
fmt = "%1.4f";
}
setprop(me, varname, sprintf(fmt, value))
} else {
setprop(me, varname, "");
}
}
# Now fix up a few of the inherited values,
# taking care of special cases:
# Relocating to surface doesn't make sense;
# we are supposed to be relocating aloft:
alt = getprop("/sim/presets/altitude-ft");
if (alt == -9999) {
alt = "";
} # else accept "inherited" reset-to-air altitude
setprop(me, "altitude-ft", alt);
# Inherit preset airspeed from command line:
ktas = getprop("/sim/presets/airspeed-kt");
if (ktas == 0) {
ktas = "";
}
setprop(me, "airspeed-kt", ktas);
# Probably never a good idea to inherit a heading;
setprop(me, "heading-deg-mag", "");
} # end inheriting things
# The "normalize attitude" flag defaults to true:
if (getprop(me, "normalize") == nil) {
setprop(me, "normalize", 1);
}
# Hint: you can read all of these useful quantities using:
# http://localhost:5400/sim/gui/dialogs/location-in-air
setprop(me, "prior/altitude-agl-ft",
sprintf("%5.2f", getprop("/position/altitude-agl-ft")));
# Copy positions of some cockpit flight controls:
copycontrol = func(vvv, factor){
setprop(me, "prior", vvv,
sprintf("%5.2f", factor * getprop("/controls/flight", vvv)));
}
copycontrol("aileron", 1);
copycontrol("aileron-trim", 1);
copycontrol("elevator", -1);
copycontrol("elevator-trim", -1);
copycontrol("rudder", 1);
copycontrol("rudder-trim", 1);
# The rule is, if it doesn't say "mag" in the name, it
# is a true bearing, not a magnetic bearing.
# Like the FDM, we do as much as possible with true
# bearings internally.
# When displaying magnetic bearings to a user,
# we convert them /immediately/ beforehand to magnetic
# by subtracting magvar.
# Similarly, when getting magnetic bearings from the user,
# we convert them /immediately/ afterward to true
# by adding magvar.
prior_heading_deg_mag = getprop("/orientation/heading-deg") - magvar;
setprop(me, "prior/heading-deg-mag", sprintf("%d", prior_heading_deg_mag));
setprop(me, "prior/throttle", sprintf("%5.2f",
getprop("/controls/engines/engine/throttle")));
xx = sprintf("%1.4f", getprop("/position/latitude-deg"));
setprop(me, "prior/latitude-deg", xx);
setprop(me, "this-latitude-deg", xx);
xx = sprintf("%1.4f", getprop("/position/longitude-deg"));
setprop(me, "prior/longitude-deg", xx);
setprop(me, "this-longitude-deg", xx);
setprop(me, "prior/slp",
sprintf("%5.2f", getprop("/environment/pressure-sea-level-inhg")));
if (0) {
nn = 0.1903;
kk = 1.313e-5;
Phg = getprop("/environment/pressure-inhg");
alt = getprop("/position/altitude-ft");
qnh = pow(pow(Phg, nn) + kk * alt, 1/nn);
setprop(me, "prior/qnh", sprintf("%5.2f", qnh));
Rgas = 8.31432; # [J/K/mole] gas constant
inch = 0.0254; # [m] definition of inch
foot = 12*inch;
slug = 14.59390; # [kg]
inHg = 101325.0/ 29.92126; # [Pa]
rho = getprop("/environment/density-slugft3")*slug/foot/foot/foot;
T = 273.15 + getprop("/environment/temperature-degc");
P = Phg * inHg;
mM = Rgas * T * rho / P;
print("alt: ", alt, " mM: ", mM, " P: ", P, " T: ", T, " rho: ", rho);
setprop(me, "prior/molar-mass", sprintf("%8.4f", mM));
}
# just kept for educational purposes :-)
# Note that I would like to use the degree /symbol/
# rather than spelling out "deg" in the dialog labels.
# The utf-8 for this symbol is (°).
# However, alas, putting that into the label produces
# no visible result. Rumor suggests that we are using
# a font that doesn't have a glyph for this character.
tableleft0