2014-04-23 16:45:58 +00:00
|
|
|
#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)
|
2014-05-01 18:04:35 +00:00
|
|
|
(key-state kr 38 0 0.1 0.1))])
|
2014-04-23 16:45:58 +00:00
|
|
|
(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)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
