fly/flightgear
1
0
Fork 0
Code Activity

Mods to test new Stripe fixes from Wilbur Streett.

Browse source
This commit is contained in:
curt 1998-06-08 17:18:37 +00:00
parent f7a80a9de3
commit 0cda53d7ed
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Tools/Makefile.am
View file

@ -8,7 +8,7 @@ SUBDIRS = \
FixNode \
FixObj \
SplitTris \
Stripe_u \
Stripe_w \
Tri2obj \
Triangle

11
Tools/process-dem.pl
View file

@ -67,7 +67,7 @@ while ( $dem_file = shift(@ARGV) ) {
if ( $do_dem2node ) {
dem2node() ;
} else {
$subdir = "./work/Scenery/e010n080/e019n084";
$subdir = "./work/Scenery/w100n040/w093n045/";
print "WARNING: Hardcoding subdir = $subdir\n";
}
@ -332,9 +332,10 @@ sub strips {
foreach $file ( @FILES ) {
chop($file);
if ( $file =~ m/\.1\.obj$/ ) {
$command = "Stripe_u/strips $subdir/$file";
$command = "Stripe_w/strips $subdir/$file";
$command = fix_command($command);
print "Running '$command'\n";
# $input = <STDIN>;
open(OUT, "$command |");
while ( <OUT> ) {
print $_;
@ -345,7 +346,8 @@ sub strips {
$newfile = $file;
$newfile =~ s/\.1\.obj$//;
print "Copying to $subdir/$newfile.2.obj\n";
open(IN, "<bands.d");
# open(IN, "<bands.d");
open(IN, "<stripe.objf");
open(OUT, ">$subdir/$newfile.2.obj");
while ( <IN> ) {
print OUT $_;
@ -421,6 +423,9 @@ sub install {
#---------------------------------------------------------------------------
# $Log$
# Revision 1.21 1998/06/08 17:18:37 curt
# Mods to test new Stripe fixes from Wilbur Streett.
#
# Revision 1.20 1998/06/05 18:20:24 curt
# Added DemInfo to dump out "A" record DEM info.
# Modified process-dem.pl to work in a temp directory and compress/copy the