;; sends OSC message /clock/bpm/set to current master
(define clock-set-bpm
(lambda (time beat bpm)
(let ((t (split-clock-time (samples->clock time))))
(io:osc:send (now) *toplap-clock-server* "/clock/bpm/set"
(car t) (cdr t)
(rational->n beat) (rational->d beat) bpm))))