;; poll for midi messages at 400hz (bind-func midi_input_polling (lambda (time:double) (midi_read_msg) (sched midi_clock_sched (+ time 0.0025) midi_input_polling:[void,double]*)))