ebeltoft-ams

commit 2de749e6f5d5f3154e8e1e28453c91145d608556
parent 31b2df39fe81bc3f8650a04f57f3d2a71940f231
Author: Anders Damsgaard <anders@adamsgaard.dk>
Date:   Fri, 24 Jun 2022 12:10:37 +0200

ams-ellipsoid.awk: also extract and save sample id

Diffstat:
M
ams-ellipsoid.awk
 | 
8
+++++++-

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ams-ellipsoid.awk b/ams-ellipsoid.awk
@@ -3,7 +3,12 @@
 BEGIN {
 	if (axis == "")
 		axis = "max"
-	printf "Trend\tPlunge\n"
+	printf "No.\tTrend\tPlunge\n"
+}
+
+/_[A-z0-9]+ +/ {
+	if (match($0, /_[A-z0-9]+ /))
+		id = substr($0, RSTART + 1, RLENGTH - 2)
 }
 
 /^Specimen/ {
@@ -15,6 +20,7 @@ BEGIN {
 	K_int_incl = $4
 	K_min_incl = $5
 
+	printf("%s\t", id)
 	if (axis == "max")
 		printf "%g\t%g\n", K_max_decl, K_max_incl
 	if (axis == "int")