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

added moog instrument

Browse source
This commit is contained in:
Mustafa 2014-05-16 13:03:30 -07:00
parent b10f3f691a
commit 7c08d85df3
2 changed files with 22 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
oregano/instrument.rkt
View file

@ -73,12 +73,22 @@
[freq 440]) [freq 440])
(out bus (mul 0.2 (saw ar freq))))) (out bus (mul 0.2 (saw ar freq)))))
(define moog-instrument
(letc ([bus 0]
[freq 440])
(out bus (moog-ff
(mul (saw ar (mouse-x kr 200 1000 0 0.1)) 0.1) freq 3 0))))
;; setup ;; setup
;; show osc messages on server ;; show osc messages on server
(send-msg (dump-osc 1)) (send-msg (dump-osc 1))
(with-sc3 reset) (with-sc3 reset)
(define perset-instrument-map
(hash "sin-inst" sin-instrument
"saw-inst" saw-instrument
"moog-inst" moog-instrument))
;; send synthdefs ;; send synthdefs
(with-sc3 (lambda (fd) (with-sc3 (lambda (fd)
(send-synth fd "sin-inst" sin-instrument) ; (wave-instrument sin-osc)) (send-synth fd "sin-inst" sin-instrument) ; (wave-instrument sin-osc))

12
rsc3/examples/moog-filter.rkt
View file

@ -41,6 +41,16 @@
(x (mouse-x kr 0 4 0 0.1))) (x (mouse-x kr 0 4 0 0.1)))
(audition (out 0 (moog-ff n y x 0)))) (audition (out 0 (moog-ff n y x 0))))
(let* ((y (mouse-y kr 200 30000 1 0.1))
(s (mul (saw ar (mouse-x kr 200 1000 0 0.1)) 0.1))
(x 3)) ;(mouse-x kr 0 4 0 0.1)))
(audition (out 0 (pan2
(free-verb (moog-ff s y x 0) 0.5
0.9
0.5)
0 1))))
;; lorenz-l.help.scm ;; lorenz-l.help.scm
#;(let* ((n (mul (white-noise ar) 0.1)) #;(let* ((n (mul (white-noise ar) 0.1))
(y (mouse-y kr 40 80 1 0.1)) (y (mouse-y kr 40 80 1 0.1))
@ -78,7 +88,7 @@
;; like old telephone ring. uses key-state aaaa ;; like old telephone ring. uses key-state aaaa
; (let ([freq (mouse-x kr 600 2000 1 0.1)]) ; (let ([freq (mouse-x kr 600 2000 1 0.1)])
(let ([freq (simple-mouse-x 600 1500)]) #; (let ([freq (simple-mouse-x 600 1500)])
(audition (out 0 (audition (out 0
(mul (sin-osc ar (mul (sin-osc ar
(mul-add (lf-pulse ar 15 0 0.5) 200 freq) (mul-add (lf-pulse ar 15 0 0.5) 200 freq)