;; sends OSC message /clock/bpm/set to current master
;; of type <double,double>
;; 'time' is double (UTC epoch 1900)
;; 'bpm' beats per minute
;; 'beat' is the beat that this change fell on (should be synonymous with time)
(define topclock-bpm
(lambda (time bpm beat cycle)
(io:osc:send (now) (cons *topclock-master-ip* *topclock-port*)
"/clock/bpm/set"
(1970->1900 (samples->clock time)) bpm
(rational->n beat) (rational->d beat) cycle)))