added func for custom instruments

This commit is contained in:
Mustafa 2014-05-20 11:04:17 -07:00
parent d9aee73607
commit 4a82d72d3f

View file

@ -1,5 +1,5 @@
#lang racket #lang racket
(require rsc3 rhs/rhs) (require rsc3)
;; --- gui stuff ;; --- gui stuff
@ -40,6 +40,11 @@
(mul (saw ar freq) 0.1) (mul (saw ar freq) 0.1)
(mouse-y kr 200 30000 1 0.1) 3 0)))) (mouse-y kr 200 30000 1 0.1) 3 0))))
;; TODO
(define (make-instrument graph)
(letc ([bus 0])
(out bus graph)))
;; setup ;; setup
;; show osc messages on server ;; show osc messages on server
(send-msg (dump-osc 1)) (send-msg (dump-osc 1))