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

added routing using bus example

Browse source
This commit is contained in:
Mustafa 2014-04-23 09:45:58 -07:00
parent 40f6ec244f
commit 7723b84564
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
rsc3/examples/bus-routing.rkt Normal file
View file

@ -0,0 +1,22 @@
#lang racket
(require rsc3 rhs/rhs)
(with-sc3 reset)
;; test
(let* ([freq (mouse-x kr 600 2000 1 0.1)]
[sig (mul (sin-osc ar
(mul-add (lf-pulse ar 15 0 0.5) 200 freq)
0)
(key-state kr 38 0 0.1 0.1))])
(audition (out 16 sig)))
(audition (out 0 (free-verb (in 1 ar 16) 0.5
(mouse-y kr 0 1 0 0.1)
0.5)))