diff --git a/src/Airports/GenAirports850/process.pl b/src/Airports/GenAirports850/process.pl deleted file mode 100755 index f26f5b7e..00000000 --- a/src/Airports/GenAirports850/process.pl +++ /dev/null @@ -1,73 +0,0 @@ -#!/usr/bin/perl - -# this is a sad testament to building your software off of other -# libraries that have bugs (or perhaps less than disired features.) -# Unfortunatley I don't know enough about the functionality they -# provide to go fix them. Maybe someday. - -# At any rate. This script is a wrapper around the main airport -# generation utility. It run it until it finishes or crashes. If it -# finishes without saying, yup I'm all done, a crash is assumed. We -# re-run the airport generate from the crash point with a different -# nudge factor in a sorry attempt to work around the bug. - -# yes, I know this is a really ugly hack, I apologize in advance to -# those who might have trouble running these tools on non-unix -# platforms, but I'm not sure what else to do at this point. If -# someone can fix the polygon clipping library so it doesn't leave -# tiny shards of polygons or cracks, I'd be very grateful. - -# So here we go, children under 13 years of age should probably have -# parental supervision if playing with something this ugly. - - -# Edit the following values to set up your preferences: - -$workdir = "/stage/fgfs04/curt/Work"; -$inputfile = "./default.apt"; -$binary = "./genapts"; -$startid = ""; - -# end of user configurable section - - -$done = 0; -$nudge = 0; - -while ( ! $done ) { - - # update the nudge value - $nudge += 5; - if ( $nudge > 40 ) { - $nudge = 5; - } - - # launch the airport generator - - $command = "$binary --input=$inputfile --work=$workdir --nudge=$nudge"; - - if ( $startid ne "" ) { - $command .= " --start-id=$startid"; - } - - print "Executing $command\n"; - open( PIPE, "$command |" ) || die "Cannot run $command\n"; - - while ( ) { - if ( m/Id portion/ ) { - # print $_; - } - - if ( m/\[FINISHED CORRECTLY\]/ ) { - $done = 1; - print "FINISHED!\n"; - } - } - - close ( PIPE ); - - if ( ! $done ) { - $startid = `cat last_apt`; chop( $startid ); - print "Restarting at $startid.\n"; - } -} diff --git a/src/Airports/GenAirports850/process.sh b/src/Airports/GenAirports850/process.sh deleted file mode 100755 index 14021753..00000000 --- a/src/Airports/GenAirports850/process.sh +++ /dev/null @@ -1,13 +0,0 @@ -#! /bin/bash - -# Previously Skipped: EBPP -# Manually removed: NZSP (led to a runway around the world) -# Fixed: YSAR (was marked as land airport, but was a heliport) - -WORKDIR=$HOME/workdirs/world_scenery -#APTDAT="/home/martin/GIT/fgdata/Airports/apt.dat.gz" -#APTDAT="/home/rgerlich/rawdata/apt.dat.gz" -APTDAT="/home/rgerlich/rawdata/apt.helidat.gz" -SPAT="--nudge=20" - -exec /usr/bin/time genapts --input=$APTDAT --work=$WORKDIR $SPAT > genapts.log 2>&1