fly/flightgear
1
0
Fork 0
Code Activity

Fix to translate DME and TACAN X/Y channels to paired VHF frequencies

Browse source 
correctly.  Thanks to Jorge Van Hemelryck <ml@jvh.net> for the fix.
This commit is contained in:
david 2003-06-04 20:34:39 +00:00
parent bfaaa63bb2
commit d7a73a21a5
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
scripts/perl/dafif/dafift2nav.pl
View file

@ -47,16 +47,13 @@ my @HAS_DME = (
# Make a frequency from a DME channel # Make a frequency from a DME channel
sub make_freq { sub make_freq {
my ($type, $channel) = (@_); my ($type, $channel) = (@_);
my $freq; my $offset = 0;
$offset = 0.05 if ($channel =~ /Y$/);
if ($channel < 67) { if ($channel < 67) {
$freq = 108 + (($channel - 17)/10.0); return 108 + (($channel - 17)/10.0) + $offset;
} else { } else {
$freq = 112 + (($channel - 67)/10.0); return 112 + (($channel - 67)/10.0) + $offset;
} }
if ($type == 9) {
$freq += 0.05;
}
return $freq;
} }
# Make a range based on navaid type and purpose # Make a range based on navaid type and purpose
@ -126,7 +123,7 @@ while (<>)
my $elev = $F[23]; my $elev = $F[23];
my $freq = $F[8]/1000; my $freq = $F[8]/1000;
if ($type == 3 || $type == 9) { if ($type == 3 || $type == 9) {
$freq = make_freq($type, 0 + $F[10]); $freq = make_freq($type, $F[10]);
} }
my $range = 0 + $F[14]; my $range = 0 + $F[14];
if ($range == 0) { if ($range == 0) {