fly/flightgear
1
0
Fork 0
Code Activity

Many ILS approaches do not have a listed GS elevation in the FAA or in the

Browse source 
DAFIFT data base.  Use the field elevation as a reasonable approximation
when no other data is available.
This commit is contained in:
curt 2003-06-25 18:10:10 +00:00
parent 1a8fe25cf4
commit fe1070bfc6
1 changed files with 50 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
scripts/perl/dafif/build_ils.pl
View file

@ -24,6 +24,7 @@ die "Usage: $0 " .
my( %CODES ); my( %CODES );
my( %CodesByICAO ); my( %CodesByICAO );
my( %Elevations );
my( %ILS ); my( %ILS );
my( %AIRPORTS ); my( %AIRPORTS );
my( %RUNWAYS ); my( %RUNWAYS );
@ -34,6 +35,7 @@ my( %RUNWAYS );
&load_fgfs( $fgfs_ils_file ); &load_fgfs( $fgfs_ils_file );
&load_fgfs_airports( $fgfs_apt_file ); &load_fgfs_airports( $fgfs_apt_file );
&fix_localizer(); &fix_localizer();
&fudge_missing_gs_elev();
&write_result( $output_file ); &write_result( $output_file );
@ -78,6 +80,8 @@ sub load_dafift() {
$CODES{$F[0]} = $icao; $CODES{$F[0]} = $icao;
$CodesByICAO{$icao} = 1; $CodesByICAO{$icao} = 1;
# print "$F[0] - $icao\n"; # print "$F[0] - $icao\n";
$Elevations{$icao} = $F[11];
print "$icao $F[11]\n";
} }
# Load the DAFIFT ils file # Load the DAFIFT ils file
@ -301,6 +305,9 @@ sub load_faa() {
if ( $ILS{$id . $rwy} ne "" ) { if ( $ILS{$id . $rwy} ne "" ) {
print "FAA updating: $id - $rwy $type\n"; print "FAA updating: $id - $rwy $type\n";
&update_type( $id, $rwy, $type ); &update_type( $id, $rwy, $type );
if ( $gs_elev > 0 ) {
&maybe_update_gs_elev( $id . $rwy, $gs_elev );
}
} else { } else {
print "FAA adding: $id - $rwy\n"; print "FAA adding: $id - $rwy\n";
&safe_add_record( $id, $rwy, $type, $loc_freq, $loc_id, &safe_add_record( $id, $rwy, $type, $loc_freq, $loc_id,
@ -417,6 +424,22 @@ sub fix_localizer() {
} }
########################################################################
# Run through the final ils list and adjust the heading to match the runway
########################################################################
sub fudge_missing_gs_elev() {
my( $key );
foreach $key ( sort (keys %ILS) ) {
my(@F) = split( /\s+/, $ILS{$key} );
if ( $F[9] <= 0 ) {
print "FUDGING GS: $key $F[2] $F[3] $F[4] - $F[9]\n";
&maybe_update_gs_elev( $key, $Elevations{$F[2]});
}
}
}
######################################################################## ########################################################################
# Write out the accumulated combined result # Write out the accumulated combined result
######################################################################## ########################################################################
@ -561,6 +584,33 @@ sub update_type() {
} }
# update the glide slope elevation of the record (but only if it is 0)
sub maybe_update_gs_elev() {
my( $key ) = shift;
my( $new_gs_elev ) = shift;
my( $record );
if ( $ILS{$key} ne "" ) {
my( $type_code, $type_name, $apt_id, $rwy, $loc_freq, $loc_id,
$loc_hdg, $loc_lat, $loc_lon, $gs_elev, $gs_angle, $gs_lat,
$gs_lon, $dme_lat, $dme_lon, $om_lat, $om_lon, $mm_lat, $mm_lon,
$im_lat, $im_lon ) = split( /\s+/, $ILS{$key} );
if ( $gs_elev == 0 ) {
print "Updating gs elev: $apt_id $rwy: $gs_elev -> $new_gs_elev\n";
$gs_elev = $new_gs_elev;
&update_record( $apt_id, $rwy, $type_name, $loc_freq, $loc_id,
$loc_hdg, $loc_lat, $loc_lon, $gs_elev,
$gs_angle, $gs_lat, $gs_lon, $dme_lat,
$dme_lon, $om_lat, $om_lon, $mm_lat,
$mm_lon, $im_lat, $im_lon );
}
} else {
die "Error, trying to update $key which doesn't exist\n";
}
}
# update the localizer position of the record # update the localizer position of the record
sub update_loc() { sub update_loc() {
my( $apt_id ) = shift; my( $apt_id ) = shift;