From 4255e196078f2e5ff0e58166f2a6ca5a7b19b386 Mon Sep 17 00:00:00 2001 From: Mustafa Date: Sat, 15 Feb 2014 16:23:02 -0800 Subject: [PATCH] added file that plays sin wave using rsc3 --- rsc3-sine-play.rkt | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 rsc3-sine-play.rkt diff --git a/rsc3-sine-play.rkt b/rsc3-sine-play.rkt new file mode 100644 index 0000000..c023542 --- /dev/null +++ b/rsc3-sine-play.rkt @@ -0,0 +1,17 @@ +#lang racket + +(require "rsc3/rsc3.rkt") + + +;; start udp SuperCollider server with: scsynth -u 57110 + +(with-sc3 (lambda (fd) (send fd (g-new1 1 add-to-tail 0)))) + +;; play sin wave +(audition (out 0 (mul (sin-osc ar 440 0) 0.1))) + +;; reset +; (with-sc3 reset) + + +