From: Tomas Mudrunka <tomas@mudrunka.cz>
Date: Fri, 3 Aug 2012 03:02:01 +0000 (+0200)
Subject: Bit tuning
X-Git-Url: https://git.harvie.cz/?a=commitdiff_plain;h=5769d767657e8177d9c18fb5349d74626dd4768a;p=mirrors%2FPrograms.git

Bit tuning
---

diff --git a/c/goertzel/sleepmon.sh b/c/goertzel/sleepmon.sh
index 9ac62f9..f4685dc 100755
--- a/c/goertzel/sleepmon.sh
+++ b/c/goertzel/sleepmon.sh
@@ -12,8 +12,8 @@
 # Wake up
 # Enjoy your data
 
-
 out=/tmp/sleeplog-"$(date +%F_%T)".txt
+graphout="${out%%.*}.png"
 speaker-test -t sine &>/dev/null &
 pid_test=$!
 tresh=10
@@ -23,10 +23,16 @@ history='';
 historymax=120;
 historylen='10 30 120'
 screen=false
-while getopts "s" OPT; do
+graph=false
+
+while getopts "sg" OPT; do
 	test "$OPT" == 's' && screen=true;
+	test "$OPT" == 'g' && graph=true;
 done
-echo "Writing to file: $out";
+
+echo "Writing log to: $out";
+$graph && echo "Writing graph to: $graphout"
+echo
 arecord | ./goertzel -n i -q -l c -t $tresh -d 4 | while read line; do
 	date="$(date +%s)"
 	time="$(echo "$line" | cut -f 1)"
@@ -57,12 +63,16 @@ arecord | ./goertzel -n i -q -l c -t $tresh -d 4 | while read line; do
 	} || {
 		$screen && xset dpms force on;
 	}
-	./sleepplot.sh "$out" &>/dev/null &
+	$graph && ./sleepplot.sh "$out" "$graphout" &>/dev/null &
 
 	#Prepare invariants for next round
 	lastdate="$date";
 	laststate="$statenum";
 done | tee "$out"
-kill $pid_test
+kill $pid_test; sleep 0.2
 echo
-echo "Your file: $out"
+echo "Your log: $out"
+$graph && {
+	./sleepplot.sh "$out" "$graphout" &>/dev/null
+	echo "Your graph: $graphout"
+}
diff --git a/c/goertzel/sleepplot.sh b/c/goertzel/sleepplot.sh
index 3dcfec6..6d682a8 100755
--- a/c/goertzel/sleepplot.sh
+++ b/c/goertzel/sleepplot.sh
@@ -5,14 +5,18 @@ test -z "$1" && {
 	exit 23
 }
 
+in="$1";
+graphout="${in%%.*}.png"
+test -n "$2" && graphout="$2";
+
 #Approximate size of graph
-size="$(tail -n 1 "$1" | cut -d . -f 1)"
+size="$(tail -n 1 "$in" | cut -d . -f 1)"
 test $size -gt 3600 && size="$(( $size/10 ))" #For prolonged periods
 size="$(( 600 + $size ))"
 
 #Plot it
 gnuplot << EOF
-set output "$1.png"
+set output "$graphout"
 set terminal png size $size,300
 
 set title "Sleep motions"
@@ -28,10 +32,11 @@ set timefmt "%s"
 set grid
 
 #set pointsize 0.5
-plot "$1" using 2:5 title "Sensor state" with steps,\
-"" using 2:(\$6*3) title "Avg last last 10 seconds" with lines,\
-"" using 2:(\$7*3) title "Avg last last 30 seconds" with lines,\
-"" using 2:(\$8*3) title "Avg last last 120 seconds" with lines\
+plot\
+"$in" using 2:5 title "Sensor state" with steps,\
+"" using 2:(\$6*3) title "Avg. 10s" with lines,\
+"" using 2:(\$7*3) title "Avg. 30s" with lines,\
+"" using 2:(\$8*3) title "Avg. 120s" smooth bezier\
 
 EOF