2014-05-20 19:07:04 +00:00
|
|
|
#lang racket
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(require "instrument.rkt"
|
|
|
|
|
"gui.rkt"
|
|
|
|
|
"sample.rkt")
|
|
|
|
|
|
2014-05-22 17:39:35 +00:00
|
|
|
;; setup
|
|
|
|
|
(require rsc3)
|
|
|
|
|
|
|
|
|
|
;; TODO - run scsynth
|
|
|
|
|
|
|
|
|
|
;; show osc messages on server
|
|
|
|
|
(send-msg (dump-osc 1))
|
|
|
|
|
(with-sc3 reset)
|
|
|
|
|
(sleep 0.1)
|
|
|
|
|
|
|
|
|
|
|
2014-05-20 19:07:04 +00:00
|
|
|
(provide
|
|
|
|
|
(all-from-out "instrument.rkt"
|
|
|
|
|
"gui.rkt"
|
|
|
|
|
"sample.rkt"))
|
|
|
|
|
|
|
|
|
|
|
