From 7723b845641797d3d3943b55bf9e68439077c7e7 Mon Sep 17 00:00:00 2001 From: Mustafa Date: Wed, 23 Apr 2014 09:45:58 -0700 Subject: [PATCH] added routing using bus example --- rsc3/examples/bus-routing.rkt | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 rsc3/examples/bus-routing.rkt diff --git a/rsc3/examples/bus-routing.rkt b/rsc3/examples/bus-routing.rkt new file mode 100644 index 0000000..978cf63 --- /dev/null +++ b/rsc3/examples/bus-routing.rkt @@ -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))) + + + +