added send-msg to rsc3/main.rkt
This commit is contained in:
parent
6e125ef878
commit
53a86bf848
1 changed files with 5 additions and 0 deletions
|
@ -1562,6 +1562,11 @@
|
||||||
(lambda (fd n u)
|
(lambda (fd n u)
|
||||||
(async fd (d-recv (encode-graphdef (synthdef n u))))))
|
(async fd (d-recv (encode-graphdef (synthdef n u))))))
|
||||||
|
|
||||||
|
;; osc message -> ()
|
||||||
|
(define (send-msg msg)
|
||||||
|
(with-sc3 (lambda (fd)
|
||||||
|
(send fd msg))))
|
||||||
|
|
||||||
;; port -> ugen -> ()
|
;; port -> ugen -> ()
|
||||||
(define play
|
(define play
|
||||||
(lambda (fd u)
|
(lambda (fd u)
|
||||||
|
|
Loading…
Reference in a new issue