zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

changed interface. using notes

Browse source
This commit is contained in:
Mustafa 2014-05-22 09:58:18 -07:00
parent 95966a1430
commit ea1762eb10
1 changed files with 28 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
oregano/instrument.rkt
View file

@ -45,18 +45,22 @@
;; TODO ;; TODO
(define (make-instrument graph) (define (make-instrument graph)
(let ([synthedef (letc ([bus 0]) (let ([sd (letc ([bus 0])
(out bus graph))] (out bus graph))]
[name (format "synth~a" current-node-id)]) [name (format "synth~a" current-node-id)])
(with-sc3 (lambda (fd) (with-sc3 (lambda (fd)
(send-synth fd name synthdef))) (send-synth fd name sd)))
name
)) ))
;; setup
;; show osc messages on server
(send-msg (dump-osc 1)) ;; example of definst macro like overtone's definst
(with-sc3 reset) #;(define-syntax-rule (define-instrument inst-name [[argname argdefault] ...] ugen)
(define (inst-name [argname argdefault] ...)
(+ argname ...)))
(define perset-instrument-map (define perset-instrument-map
`(("sin-inst" ,sin-instrument) `(("sin-inst" ,sin-instrument)
@ -69,33 +73,38 @@
(send-synth fd (first pair) (second pair))))) (send-synth fd (first pair) (second pair)))))
perset-instrument-map) perset-instrument-map)
; === user instrument funcs ===
(struct note (id [freq #:mutable]))
(define (create-synth name node-id) (define (create-synth name node-id)
(send-msg (s-new0 name node-id 1 1)) (send-msg (s-new0 name node-id 1 1))
; don't make sound upon creation ; don't make sound upon creation
(send-msg (n-run1 node-id 0)) (send-msg (n-run1 node-id 0))
node-id) node-id)
; === user instrument funcs ===
(define (preset-instrument name) (define (preset-instrument name)
(let ([node-id (gen-node-id)]) (let ([node-id (gen-node-id)])
(create-synth name node-id))) (create-synth name node-id)))
(define (note-on inst freq track) (define (note-on the-note)
(send-msg (n-set1 inst "freq" freq)) ;(send-msg (n-set1 (note-id the-note) "freq" (note-freq the-note)))
(send-msg (n-set1 inst "bus" track)) ;(send-msg (n-set1 inst "bus" track)) ; TODO
(send-msg (n-run1 inst 1))) (send-msg (n-run1 (note-id the-note) 1)))
(define (inst-on inst) (define (note-off the-note)
(send-msg (n-run1 inst 1))) (send-msg (n-run1 (note-id the-note) 0)))
(define (set-note-param the-note name val)
(if (eq? name "freq")
(set-note-freq! the-note val)
empty)
(send-msg (n-set1 (note-id the-note) name val)))
(define (inst-off inst)
(send-msg (n-run1 inst 0)))
(define (set-inst-param inst name val)
(send-msg (n-set1 inst name val)))
#| #|