From 0cda53d7eda6a2652011f90496dae03ae47286fd Mon Sep 17 00:00:00 2001 From: curt Date: Mon, 8 Jun 1998 17:18:37 +0000 Subject: [PATCH] Mods to test new Stripe fixes from Wilbur Streett. --- Tools/Makefile.am | 2 +- Tools/process-dem.pl | 11 ++++++++--- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/Tools/Makefile.am b/Tools/Makefile.am index 9e51072b1..5c23d5bdc 100644 --- a/Tools/Makefile.am +++ b/Tools/Makefile.am @@ -8,7 +8,7 @@ SUBDIRS = \ FixNode \ FixObj \ SplitTris \ - Stripe_u \ + Stripe_w \ Tri2obj \ Triangle diff --git a/Tools/process-dem.pl b/Tools/process-dem.pl index 31a4624cb..a169209ac 100755 --- a/Tools/process-dem.pl +++ b/Tools/process-dem.pl @@ -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 = ; open(OUT, "$command |"); while ( ) { print $_; @@ -345,7 +346,8 @@ sub strips { $newfile = $file; $newfile =~ s/\.1\.obj$//; print "Copying to $subdir/$newfile.2.obj\n"; - open(IN, "$subdir/$newfile.2.obj"); while ( ) { 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 -- 2.39.2