--- a/LWplot_TLhist Sat Oct 15 23:23:57 2011 -0400
+++ b/LWplot_TLhist Thu Oct 27 10:29:18 2011 -0400
@@ -2,13 +2,38 @@
#======================================================================
# L W P L O T _ T L H I S T
# doc: Thu Oct 13 10:51:49 2011
-# dlm: Sat Oct 15 22:24:31 2011
+# dlm: Mon Oct 17 15:15:23 2011
# (c) 2011 A.M. Thurnherr
-# uE-Info: 14 31 NIL 0 0 72 2 2 4 NIL ofnI
+# uE-Info: 53 0 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================
# HISTORY:
# Oct 13, 2011: - created
+# Oct 17, 2011: - turned into filter
+# - added %run_label
+
+USAGE="Usage: $0 <eps-file> [in-file]"
+ [ $# -eq 2 ] && exec <"$2" "$0" "$1"
+ [ $# -ne 1 ] && { echo $USAGE >&2; exit 1; }
+
+while [ -z "$fields" ]
+do
+ read line
+ [ ! -t 1 ] && echo "$line"
+ [ -z "$out_basename" ] && out_basename=`expr -- "$line" : '#ANTS#PARAMS#.*out_basename{\([^}]*\)}`
+ [ -z "$run_label" ] && run_label=`expr -- "$line" : '#ANTS#PARAMS#.*run_label{\([^}]*\)}`
+ [ -z "$n_windows" ] && n_windows=`expr -- "$line" : '#ANTS#PARAMS#.*n_windows{\([^}]*\)}`
+ [ -z "$best_scan_offset" ] && best_scan_offset=`expr -- "$line" : '#ANTS#PARAMS#.*best_scan_offset{\([^}]*\)}`
+ [ -z "$fields" ] && fields=`expr -- "$line" : '#ANTS#FIELDS# \(.*\)' | sed -e s/{// -e s/}//`
+done
+
+TMPFILE=/tmp/$$.LWplot_TLhist
+if [ ! -t 1 ]
+then
+ tee $TMPFILE
+else
+ cat > $TMPFILE
+fi
[ -f .gmtdefaults4 ] ||
gmtset PAPER_MEDIA letter+ \
@@ -16,28 +41,19 @@
WANT_EURO_FONT true \
PLOT_DEGREE_FORMAT ddd:mm:ssF
-while [ -z "$fields" ]
-do
- read line
- [ -z "$out_basename" ] && out_basename=`expr -- "$line" : '#ANTS#PARAMS#.*out_basename{\([^}]*\)}`
- [ -z "$n_windows" ] && n_windows=`expr -- "$line" : '#ANTS#PARAMS#.*n_windows{\([^}]*\)}`
- [ -z "$best_scan_offset" ] && best_scan_offset=`expr -- "$line" : '#ANTS#PARAMS#.*best_scan_offset{\([^}]*\)}`
- [ -z "$fields" ] && fields=`expr -- "$line" : '#ANTS#FIELDS# \(.*\)' | sed -e s/{// -e s/}//`
-done
-
R=-R-24/24/0/60
U=-R0/1/0/1
J=-JX10
-while read scan_offset nsamp mad
-do
- echo $scan_offset `echo 100*$nsamp/$n_windows | bc`
-done | psxy -P -K $J $R \
+awk "{print \$1, 100*\$2/$n_windows}" $TMPFILE \
+ | psxy -P -K $J $R \
-Bf1a10:"Best Offset [scans]":/f1a5:"Fraction [%]":WeSn \
- -Sb1u -G127
+ -Sb1u -G127 > "$1"
-echo 0.02 0.98 12 0 0 TL $out_basename | pstext -O -K $J $U
+echo 0.02 0.98 12 0 0 TL $out_basename $run_label | pstext -O -K $J $U >> "$1"
echo -e "$best_scan_offset 0\n$best_scan_offset 60" \
- | psxy -O $J $R
+ | psxy -O $J $R >> "$1"
+rm $TMPFILE
+fixbb "$1"