Lots of updates to get back in sync with changes made over in .../Src/

[flightgear.git] / Tools / process-dem.pl

diff --git a/Tools/process-dem.pl b/Tools/process-dem.pl
index 513530d7a767e3d336edf281a38d1047aeda255e..209df364b0f62f1214a16a3cc595371803edd818 100755 (executable)
--- a/Tools/process-dem.pl
+++ b/Tools/process-dem.pl
@@ -189,7 +189,7 @@ if ( $do_assemtris ) {
     foreach $file ( @FILES ) {
        chop($file);
        if ( $file =~ m/\.1\.body$/ ) {
-           $file =~ s/\.body$//;  # strip off the ".node"
+           $file =~ s/\.body$//;  # strip off the ".body"
        
            $command = "./AssemTris/assemtris $subdir/$file";
            print "Running '$command'\n";
@@ -199,6 +199,7 @@ if ( $do_assemtris ) {
            }
            close(OUT);
        }
+       unlink("$subdir/$file.body");
     }
 }
 
@@ -252,9 +253,9 @@ if ( $do_tri2obj ) {
            }
            close(OUT);
            
-           # unlink("$subdir/$file.node");
-           # unlink("$subdir/$file.node.orig");
-           # unlink("$subdir/$file.ele");
+           unlink("$subdir/$file.node");
+           unlink("$subdir/$file.node.orig");
+           unlink("$subdir/$file.ele");
        }
     }
 }
@@ -294,7 +295,7 @@ if ( $do_strips ) {
            close(IN);
            close(OUT);
            
-           # unlink("$subdir/$file");
+           unlink("$subdir/$file");
        }
     }
 }
@@ -328,6 +329,12 @@ if ( $do_fixobj ) {
 
 #---------------------------------------------------------------------------
 # $Log$
+# Revision 1.9  1998/01/27 18:36:54  curt
+# Lots of updates to get back in sync with changes made over in .../Src/
+#
+# Revision 1.8  1998/01/21 17:59:05  curt
+# Uncomment lines to remove several intermediate files.
+#
 # Revision 1.7  1998/01/19 19:51:06  curt
 # A couple final pre-release tweaks.
 #