fly/terragear
1
0
Fork 0
Code Activity

Initial revision of script to generate simple.apt from x-plane's latest

Browse source 
airport database.
This commit is contained in:
curt 2003-08-28 21:14:07 +00:00
parent 5717e1df5f
commit b8a4a97785
1 changed files with 90 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

90
src/Airports/xp2simpleapt.pl Executable file
View file

@ -0,0 +1,90 @@
#!/usr/bin/perl
#
# Convert the XP AirNav format to FlightGear's format
#
# Data source is:
#
# http://www.x-plane.org/users/robinp/
#
# Written by Curt Olson <curt@flightgear.org> Started Aug 2003
use strict;
my( $line );
my( @F );
my( $last_apt ) = "";
my( $last_elev ) = "";
my( $last_name ) = "";
my( $apt_type ) = "C";
my( $rwy_lon ) = 0.0;
my( $rwy_lat ) = 0.0;
my( $has_tower ) = 0;
my( $default_bldgs ) = 0;
my( $count ) = 0;
# strip the first line
$line = <>;
# copy the license / source / credits line
$line = <>;
print "// " . $line;
while ( <> ) {
@F = split( /\s+/, $_ );
if ( $F[0] == 1 ) {
# print "airport = " . $_;
if ( $last_apt ne "" ) {
# print out airport definition line
my( $lon ) = $rwy_lon / $count;
my( $lat ) = $rwy_lat / $count;
printf( "A %-4s %10.6f %11.6f %5d %s%s%s %s\n",
$last_apt, $lat, $lon, $last_elev,
$apt_type, $has_tower, $default_bldgs, $last_name );
}
# current airport definition
$last_elev = $F[1];
$apt_type = "C";
if( $F[2] ) {
$has_tower = "Y";
} else {
$has_tower = "N";
}
if ( $F[3] ) {
$default_bldgs = "Y";
} else {
$default_bldgs = "N";
}
$last_apt = $F[4];
$last_name = $F[5];
for( my($i) = 6; $i <= $#F; ++$i ) {
$last_name .= " " . $F[$i];
}
$count = 0;
$rwy_lon = 0.0;
$rwy_lat = 0.0;
} elsif ( $F[0] == 10 ) {
if ( $F[3] ne "xxx" ) {
# runway definition
# print "runway = " . $_;
$rwy_lon += $F[2];
$rwy_lat += $F[1];
$count++;
} else {
# taxiway definition
}
} else {
# something we don't know how to handle right now
}
}
# grab that last data point
if ( $last_apt ne "" ) {
# print out airport definition line
my( $lon ) = $rwy_lon / $count;
my( $lat ) = $rwy_lat / $count;
printf( "A %-4s %10.6f %11.6f %5d %s%s%s %s\n",
$last_apt, $lat, $lon, $last_elev,
$apt_type, $has_tower, $default_bldgs, $last_name );
}