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

simplified preset instrument creation

Browse source
This commit is contained in:
Mustafa 2014-05-16 12:29:00 -07:00
parent b808668687
commit b10f3f691a
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
oregano/instrument.rkt
View file

@ -84,15 +84,16 @@
(send-synth fd "sin-inst" sin-instrument) ; (wave-instrument sin-osc)) (send-synth fd "sin-inst" sin-instrument) ; (wave-instrument sin-osc))
(send-synth fd "saw-inst" saw-instrument))) (send-synth fd "saw-inst" saw-instrument)))
(define (create-synth name node-id)
(send-msg (s-new0 name node-id 1 1))
; don't make sound upon creation
(send-msg (n-run1 node-id 0))
node-id)
(define (preset-instrument name)
(let ([node-id (gen-node-id)])
(create-synth name node-id)))
(define (make-instrument ins)
(match ins
['sin (let ([node-id (gen-node-id)])
(send-msg (s-new0 "sin-inst" node-id 1 1))
; don't make sound upon creation
(send-msg (n-run1 node-id 0))
node-id)]
[else (error "unknown instrument used")]))
(define (note-on inst freq track) (define (note-on inst freq track)
(send-msg (n-set1 inst "freq" freq)) (send-msg (n-set1 inst "freq" freq))
@ -111,11 +112,11 @@
;; ======== test run =========== ;; ======== test run ===========
(define my-sin (make-instrument 'sin)) (define my-sin (preset-instrument "sin-inst"))
;; example: ;; example:
(sleep 0.1)
(note-on my-sin 500 1) (note-on my-sin 500 1)
; (note-off my-sin) ; (note-off my-sin)