first commit

2022-10-20 20:29:11 +08:00
commit 4d531f8044
3238 changed files with 1387862 additions and 0 deletions
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+########################################################################
+# Convert DAFIFT WPT.TXT to FlightGear format.
+########################################################################
+
+use strict;
+
+<>;                             # skip header line
+
+print "// FlightGear intersection data, generated from DAFIFT WPT.TXT\n";
+
+while (<>)
+{
+  chop;
+  my @F = split(/\t/);
+  printf("%-5s %10.6f %11.6f\n",  $F[0], $F[14], $F[16]);
+}
+
+print "[End]\n";
+
+# end of dafif2fix.pl