Commit | Line | Data |
---|---|---|
32f185d8 | 1 | #!/bin/bash |
890439ae TM |
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 | ||
5e47bf73 | 15 | out=/tmp/sleeplog-"$(date +%F_%T)".txt |
5769d767 | 16 | graphout="${out%%.*}.png" |
86dfe893 H |
17 | |
18 | killall speaker-test &>/dev/null | |
890439ae | 19 | speaker-test -t sine &>/dev/null & |
991ef83f | 20 | pid_test=$! |
86dfe893 | 21 | |
890439ae | 22 | tresh=10 |
720d982e TM |
23 | lastdate="$(date +%s)" |
24 | laststate=0 | |
25 | history=''; | |
26 | historymax=120; | |
6e6479ce | 27 | historylen='10 30 60 90 120' |
f51cf844 | 28 | screen=false |
5769d767 TM |
29 | graph=false |
30 | ||
3afb9fca H |
31 | export LC_ALL=C |
32 | ||
5769d767 | 33 | while getopts "sg" OPT; do |
f51cf844 | 34 | test "$OPT" == 's' && screen=true; |
5769d767 | 35 | test "$OPT" == 'g' && graph=true; |
f51cf844 | 36 | done |
5769d767 TM |
37 | |
38 | echo "Writing log to: $out"; | |
39 | $graph && echo "Writing graph to: $graphout" | |
40 | echo | |
19a509d1 | 41 | arecord | ./goertzel -n i -q -l c -t $tresh -d 4 | while read line; do |
890439ae TM |
42 | date="$(date +%s)" |
43 | time="$(echo "$line" | cut -f 1)" | |
44 | level="$(echo "$line" | cut -f 2)" | |
720d982e TM |
45 | test "$level" -gt "$tresh" && state=false || state=true |
46 | $state && statenum=1 || statenum=0; | |
47 | $state && statename='MOTION!' || statename='Nothing'; | |
48 | ||
3afb9fca | 49 | printf "%.2f\t %s %s %d" "$time" "$date" "$(date '+%F %T')" "$statenum" |
720d982e TM |
50 | |
51 | #History | |
52 | after=$(( $date - $lastdate)) | |
53 | test $historymax -gt 0 && { | |
54 | history=$(echo -n "$(yes | tr '\ny' $laststate | head -c $after)$history" | head -c $historymax) | |
55 | for len in $historylen; do | |
56 | on="$(echo -n ${history::$len} | tr -d 0 | wc -c)" | |
57 | on="$(echo "scale=2; $on/$len" | bc)" | |
3afb9fca | 58 | printf " %.2f" "$on" |
720d982e TM |
59 | done |
60 | } | |
61 | ||
62 | #Debug | |
3afb9fca | 63 | printf " (%s %3d After %4d secs)\n" "$statename" "$level" "$after"; |
720d982e TM |
64 | |
65 | #Fun with values | |
66 | $state && { | |
f1a48c15 | 67 | $screen && xset dpms force off || true; |
890439ae | 68 | } || { |
f1a48c15 | 69 | $screen && xset dpms force on; |
890439ae | 70 | } |
5769d767 | 71 | $graph && ./sleepplot.sh "$out" "$graphout" &>/dev/null & |
720d982e TM |
72 | |
73 | #Prepare invariants for next round | |
890439ae | 74 | lastdate="$date"; |
720d982e | 75 | laststate="$statenum"; |
890439ae | 76 | done | tee "$out" |
5769d767 | 77 | kill $pid_test; sleep 0.2 |
19a509d1 | 78 | echo |
5769d767 TM |
79 | echo "Your log: $out" |
80 | $graph && { | |
81 | ./sleepplot.sh "$out" "$graphout" &>/dev/null | |
82 | echo "Your graph: $graphout" | |
83 | } |