From c9d460db0681d10bd851e1b836bc4fb89bdcec31 Mon Sep 17 00:00:00 2001
From: curt <curt>
Date: Wed, 26 Aug 1998 22:31:29 +0000
Subject: [PATCH] Write out version and "meta" info into each dem's
 subdirectory containing all the tiles.

---
 Tools/process-dem.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/Tools/process-dem.pl b/Tools/process-dem.pl
index 2f9f72be9..a38be6d8d 100755
--- a/Tools/process-dem.pl
+++ b/Tools/process-dem.pl
@@ -26,6 +26,9 @@
 #---------------------------------------------------------------------------
 
 
+# format version number
+$scenery_format_version = "0.1";
+
 $max_area = 10000;            # maximum triangle area
 $remove_tmps = 0;
 
@@ -133,6 +136,15 @@ sub dem2node {
 	    $subdir =~ s/^Dir = //;
 	    chop($subdir);
 	}
+	if ( m/Quad name field/ ) {
+	    $quad_name = $_;
+	    # strip header
+	    $quad_name =~ s/.*Quad name field: //;
+	    # crunch consequetive spaces
+	    $quad_name =~ s/  +/ /g;
+	    chop($quad_name);
+	    print "QUAD NAME = $quad_name\n";
+	}
     }
     close(OUT);
 } 
@@ -429,6 +441,18 @@ sub install {
     print "Install dir = $install_dir\n";
     system("mkdir -p $install_dir");
 
+    # write out version and info record
+    open(VERSION, ">$install_dir/VERSION") || 
+	die "Cannot open $install_dir/VERSION for writing\n";
+    print VERSION "FGFS Scenery Version $scenery_format_version\n";
+    $date = `date`; chop($date);
+    print VERSION "Created by $ENV{LOGNAME} on $date\n";
+    print VERSION "\n";
+    print VERSION "DEM File Name = $dem_file\n";
+    print VERSION "DEM Label = $quad_name\n";
+    print VERSION "Error Tolerance = $error (this value is squared)\n";
+    close(VERSION);
+
     @FILES = `ls $subdir`;
     foreach $file ( @FILES ) {
 	chop($file);
@@ -454,6 +478,10 @@ sub install {
 
 #---------------------------------------------------------------------------
 # $Log$
+# Revision 1.26  1998/08/26 22:31:29  curt
+# Write out version and "meta" info into each dem's subdirectory containing
+# all the tiles.
+#
 # Revision 1.25  1998/07/22 21:46:09  curt
 # minor tweaks.
 #