c/goertzel/sleepmon.sh

   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 pid_test=$!
  21
  22 tresh=10
  23 lastdate="$(date +%s)"
  24 laststate=0
  25 history='';
  26 historymax=120;
  27 historylen='10 30 60 90 120'
  28 screen=false
  29 graph=false
  30
  31 export LC_ALL=C
  32
  33 while getopts "sg" OPT; do
  34         test "$OPT" == 's' && screen=true;
  35         test "$OPT" == 'g' && graph=true;
  36 done
  37
  38 echo "Writing log to: $out";
  39 $graph && echo "Writing graph to: $graphout"
  40 echo
  41 arecord | ./goertzel -n i -q -l c -t $tresh -d 4 | while read line; do
  42         date="$(date +%s)"
  43         time="$(echo "$line" | cut -f 1)"
  44         level="$(echo "$line" | cut -f 2)"
  45         test "$level" -gt "$tresh" && state=false || state=true
  46         $state && statenum=1 || statenum=0;
  47         $state && statename='MOTION!' || statename='Nothing';
  48
  49         printf  "%.2f\t %s %s %d" "$time" "$date" "$(date '+%F %T')" "$statenum"
  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)"
  58                         printf " %.2f" "$on"
  59                 done
  60         }
  61
  62         #Debug
  63         printf " (%s %3d After %4d secs)\n" "$statename" "$level" "$after";
  64
  65         #Fun with values
  66         $state && {
  67                 $screen && xset dpms force off || true;
  68         } || {
  69                 $screen && xset dpms force on;
  70         }
  71         $graph && ./sleepplot.sh "$out" "$graphout" &>/dev/null &
  72
  73         #Prepare invariants for next round
  74         lastdate="$date";
  75         laststate="$statenum";
  76 done | tee "$out"
  77 kill $pid_test; sleep 0.2
  78 echo
  79 echo "Your log: $out"
  80 $graph && {
  81         ./sleepplot.sh "$out" "$graphout" &>/dev/null
  82         echo "Your graph: $graphout"
  83 }