2014-02-16 00:23:02 +00:00
|
|
|
#lang racket
|
|
|
|
|
|
2014-02-16 02:06:35 +00:00
|
|
|
(require rsc3)
|
2014-02-16 00:23:02 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
;; 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)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
