| 1 | #!/bin/bash |
| 2 | # Simple sleep monitor (Harvie 2012) |
| 3 | # |
| 4 | # You probably have soundcard with one output and input |
| 5 | # Take PIR motion sensor from security system |
| 6 | # Use PIR to switch connection between left channels of output and input (tips of 3.5mm jacks) |
| 7 | # Connect grounds of these two together (maybe you will not need it - depending on your soundcard) |
| 8 | # Power up PIR |
| 9 | # Launch this script |
| 10 | # Use alsamixer and some GUI recorder (like audacity) to tune volume to some usable level |
| 11 | # Place PIR facing to your bed and go sleep |
| 12 | # Wake up |
| 13 | # Enjoy your data |
| 14 | |
| 15 | out=/tmp/sleeplog-"$(date +%F_%T)".txt |
| 16 | graphout="${out%%.*}.png" |
| 17 | |
| 18 | killall speaker-test &>/dev/null |
| 19 | speaker-test -t sine &>/dev/null & |
| 20 | |
| 21 | touch "$out" |
| 22 | bash ./sleepstats.sh "$out" &>/dev/null & |
| 23 | |
| 24 | tresh=10 |
| 25 | lastdate="$(date +%s)" |
| 26 | laststate=0 |
| 27 | history=''; |
| 28 | historymax=120; |
| 29 | historylen='10 30 60 90 120' |
| 30 | screen=false |
| 31 | graph=false |
| 32 | |
| 33 | export LC_ALL=C |
| 34 | |
| 35 | #trap 'kill -9 $(jobs -p);' SIGINT |
| 36 | |
| 37 | while getopts "sg" OPT; do |
| 38 | test "$OPT" == 's' && screen=true; |
| 39 | test "$OPT" == 'g' && graph=true; |
| 40 | done |
| 41 | |
| 42 | echo "Writing log to: $out"; |
| 43 | $graph && echo "Writing graph to: $graphout" |
| 44 | echo |
| 45 | arecord | ./goertzel -n i -q -l c -t $tresh -d 4 | while read line; do |
| 46 | date="$(date +%s)" |
| 47 | time="$(echo "$line" | cut -f 1)" |
| 48 | level="$(echo "$line" | cut -f 2)" |
| 49 | test "$level" -gt "$tresh" && state=false || state=true |
| 50 | $state && statenum=1 || statenum=0; |
| 51 | $state && statename='MOTION!' || statename='Nothing'; |
| 52 | |
| 53 | printf "%.2f\t %s %s %d" "$time" "$date" "$(date '+%F %T')" "$statenum" |
| 54 | |
| 55 | #History |
| 56 | after=$(( $date - $lastdate)) |
| 57 | test $historymax -gt 0 && { |
| 58 | history=$(echo -n "$(yes | tr '\ny' $laststate | head -c $after)$history" | head -c $historymax) |
| 59 | for len in $historylen; do |
| 60 | on="$(echo -n ${history::$len} | tr -d 0 | wc -c)" |
| 61 | on="$(echo "scale=2; $on/$len" | bc)" |
| 62 | printf " %.2f" "$on" |
| 63 | done |
| 64 | } |
| 65 | |
| 66 | #Debug |
| 67 | printf " (%s %3d After %4d secs)\n" "$statename" "$level" "$after"; |
| 68 | |
| 69 | #Fun with values |
| 70 | $state && { |
| 71 | $screen && xset dpms force off || true; |
| 72 | } || { |
| 73 | $screen && xset dpms force on; |
| 74 | } |
| 75 | $graph && ./sleepplot.sh "$out" "$graphout" &>/dev/null & |
| 76 | |
| 77 | #Prepare invariants for next round |
| 78 | lastdate="$date"; |
| 79 | laststate="$statenum"; |
| 80 | done | tee "$out" |
| 81 | kill $(jobs -p); sleep 0.2 |
| 82 | echo |
| 83 | echo "Your log: $out" |
| 84 | $graph && { |
| 85 | ./sleepplot.sh "$out" "$graphout" &>/dev/null |
| 86 | echo "Your graph: $graphout" |
| 87 | } |