fly/terragear
1
0
Fork 0
Code Activity

...and also remove bug work-around scripts

Browse source
This commit is contained in:
Christian Schmitt 2011-10-06 17:45:02 +02:00
parent ec3aa2a623
commit ec6b862730
2 changed files with 0 additions and 86 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

73
src/Airports/GenAirports850/process.pl
View file

@ -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 ( <PIPE> ) {
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";
}
}

13
src/Airports/GenAirports850/process.sh
View file

@ -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