Aligned humandebug columns

[mirrors/Programs.git] / c / goertzel / sleepmon.sh

#!/bin/bash
# Simple sleep monitor (Harvie 2012)
#
# You probably have soundcard with one output and input
# Take PIR motion sensor from security system
# Use PIR to switch connection between left channels of output and input (tips of 3.5mm jacks)
# Connect grounds of these two together (maybe you will not need it - depending on your soundcard)
# Power up PIR
# Launch this script
# Use alsamixer and some GUI recorder (like audacity) to tune volume to some usable level
# Place PIR facing to your bed and go sleep
# Wake up
# Enjoy your data

out=/tmp/sleeplog-"$(date +%F_%T)".txt
graphout="${out%%.*}.png"

killall speaker-test &>/dev/null
speaker-test -t sine &>/dev/null &
pid_test=$!

tresh=10
lastdate="$(date +%s)"
laststate=0
history='';
historymax=120;
historylen='10 30 60 90 120'
screen=false
graph=false

while getopts "sg" OPT; do
	test "$OPT" == 's' && screen=true;
	test "$OPT" == 'g' && graph=true;
done

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)"
	level="$(echo "$line" | cut -f 2)"
	test "$level" -gt "$tresh" && state=false || state=true
	$state && statenum=1 || statenum=0;
	$state && statename='MOTION!' || statename='Nothing';

	echo -ne "$time\t$date $(date '+%F %T') $statenum"

	#History
	after=$(( $date - $lastdate))
	test $historymax -gt 0 && {
		history=$(echo -n "$(yes | tr '\ny' $laststate | head -c $after)$history" | head -c $historymax)
		for len in $historylen; do
			on="$(echo -n ${history::$len} | tr -d 0 | wc -c)"
			on="$(echo "scale=2; $on/$len" | bc)"
			LC_ALL=C printf " %.2f" "$on"
		done
	}

	#Debug
	printf "\t(%s %3d After %4d secs)\n" "$statename" "$level" "$after";

	#Fun with values
	$state && {
		$screen && xset dpms force off || true;
	} || {
		$screen && xset dpms force on;
	}
	$graph && ./sleepplot.sh "$out" "$graphout" &>/dev/null &

	#Prepare invariants for next round
	lastdate="$date";
	laststate="$statenum";
done | tee "$out"
kill $pid_test; sleep 0.2
echo
echo "Your log: $out"
$graph && {
	./sleepplot.sh "$out" "$graphout" &>/dev/null
	echo "Your graph: $graphout"
}