added func for custom instruments
This commit is contained in:
parent
d9aee73607
commit
4a82d72d3f
1 changed files with 7 additions and 2 deletions
|
@ -1,5 +1,5 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
(require rsc3 rhs/rhs)
|
(require rsc3)
|
||||||
|
|
||||||
|
|
||||||
;; --- gui stuff
|
;; --- gui stuff
|
||||||
|
@ -39,7 +39,12 @@
|
||||||
(out bus (moog-ff
|
(out bus (moog-ff
|
||||||
(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))
|
||||||
|
|
Loading…
Reference in a new issue