(define test)
(let ((all (list "None" "None" "None"))
(handstate "None"))
(lambda (beat dur)
(sys:load "data/res.txt")
;; (println 'resval resval (now))
(set! all (append (cdr all) (list resval)))
(if (and (string=? (car all) (caddr all))
(string=? (car all) (cadr all)))
(set! handstate (car all)))
(astra_readX astra handstate vw 100)
(callback (*metro* (+ beat (* .5 dur))) 'test (+ beat dur) dur))))