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

generalized adding preset instruments

Browse source
This commit is contained in:
Mustafa 2014-05-16 13:50:08 -07:00
parent 7c08d85df3
commit 1d781125c5
1 changed files with 25 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
oregano/instrument.rkt
View file

@ -4,6 +4,8 @@
;; --- gui stuff ;; --- gui stuff
;; TODO - put in another file.
(require (prefix-in gui: racket/gui)) (require (prefix-in gui: racket/gui))
(define frame (new gui:frame% [label "Sliders"])) (define frame (new gui:frame% [label "Sliders"]))
@ -37,11 +39,21 @@
[callback (lambda (s event) [callback (lambda (s event)
(send-msg (send-msg
(c-set1 bus-id (/ (gui:send s get-value) 1000))))]) (c-set1 bus-id (/ (gui:send s get-value) 1000))))])
(in 1 kr bus-id)) (in 1 kr bus-id))
; -------
(new gui:check-box%
[label "note-on"]
[parent frame]
[value #f]
[callback (lambda (element event)
(if (gui:send element get-value)
(send-msg (n-run1 1001 1))
(send-msg (n-run1 1001 0))))])
; ------- end of gui stuff
@ -77,7 +89,8 @@
(letc ([bus 0] (letc ([bus 0]
[freq 440]) [freq 440])
(out bus (moog-ff (out bus (moog-ff
(mul (saw ar (mouse-x kr 200 1000 0 0.1)) 0.1) freq 3 0)))) (mul (saw ar freq) 0.1)
(mouse-y kr 200 30000 1 0.1) 3 0))))
;; setup ;; setup
;; show osc messages on server ;; show osc messages on server
@ -85,14 +98,15 @@
(with-sc3 reset) (with-sc3 reset)
(define perset-instrument-map (define perset-instrument-map
(hash "sin-inst" sin-instrument `(("sin-inst" ,sin-instrument)
"saw-inst" saw-instrument ("saw-inst" ,saw-instrument)
"moog-inst" moog-instrument)) ("moog-inst" ,moog-instrument)))
;; send synthdefs ;; send synthdefs
(map (lambda (pair)
(with-sc3 (lambda (fd) (with-sc3 (lambda (fd)
(send-synth fd "sin-inst" sin-instrument) ; (wave-instrument sin-osc)) (send-synth fd (first pair) (second pair)))))
(send-synth fd "saw-inst" saw-instrument))) perset-instrument-map)
(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))
@ -127,7 +141,7 @@
;; example: ;; example:
(sleep 0.1) (sleep 0.1)
(note-on my-sin 500 1) ; (note-on my-sin 500 1)
; (note-off my-sin) ; (note-off my-sin)