tried fixing running supercollider
This commit is contained in:
parent
f180495225
commit
bb6ac29aca
5 changed files with 14 additions and 11 deletions
|
@ -4,9 +4,9 @@
|
||||||
|
|
||||||
|
|
||||||
(display "in example.rkt")
|
(display "in example.rkt")
|
||||||
(sleep 0.1)
|
;(sleep 0.1)
|
||||||
|
|
||||||
(define my-sin (make-note "sin-inst" 880))
|
(define my-sin (make-note "saw-inst" 880))
|
||||||
|
|
||||||
|
|
||||||
(param-slider "change frequency" 300 1000 400
|
(param-slider "change frequency" 300 1000 400
|
||||||
|
|
|
@ -11,7 +11,7 @@
|
||||||
;; TODO - remove. using "signal-slider" for testing
|
;; TODO - remove. using "signal-slider" for testing
|
||||||
(require "gui.rkt")
|
(require "gui.rkt")
|
||||||
|
|
||||||
(run-super-collider)
|
;(run-super-collider)
|
||||||
|
|
||||||
|
|
||||||
(define current-node-id 1000)
|
(define current-node-id 1000)
|
||||||
|
|
|
@ -1,16 +1,17 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require "instrument.rkt"
|
(require "system.rkt"
|
||||||
|
"instrument.rkt"
|
||||||
"gui.rkt"
|
"gui.rkt"
|
||||||
"sample.rkt"
|
"sample.rkt"
|
||||||
"system.rkt")
|
"routing.rkt")
|
||||||
|
|
||||||
;; setup
|
;; setup
|
||||||
(require rsc3)
|
(require rsc3)
|
||||||
|
|
||||||
;; FIXME - not running
|
;; FIXME - not running
|
||||||
(display "Hello! from main.rkt\n")
|
(display "Hello! from main.rkt\n")
|
||||||
(run-super-collider)
|
;(run-super-collider)
|
||||||
|
|
||||||
|
|
||||||
;; show osc messages on server
|
;; show osc messages on server
|
||||||
|
@ -21,6 +22,7 @@
|
||||||
(provide
|
(provide
|
||||||
(all-from-out "instrument.rkt"
|
(all-from-out "instrument.rkt"
|
||||||
"gui.rkt"
|
"gui.rkt"
|
||||||
"sample.rkt"))
|
"sample.rkt"
|
||||||
|
"routing.rkt"))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -15,9 +15,10 @@
|
||||||
(process "./start_server_linux.sh")
|
(process "./start_server_linux.sh")
|
||||||
(sleep 0.5)
|
(sleep 0.5)
|
||||||
(if (system "ps -e | grep scsynth > /dev/null")
|
(if (system "ps -e | grep scsynth > /dev/null")
|
||||||
(display "OK")
|
(display "OK\n")
|
||||||
(display "Error")))))
|
(display "Error\n")))))
|
||||||
('macosx 1)
|
('macosx 1)
|
||||||
('windows 1)
|
('windows 1)
|
||||||
(else 1)))
|
(else 1)))
|
||||||
|
|
||||||
|
(run-super-collider)
|
|
@ -26,7 +26,7 @@
|
||||||
|
|
||||||
|#
|
|#
|
||||||
|
|
||||||
(with-sc3 reset)
|
(reset)
|
||||||
|
|
||||||
#|
|
#|
|
||||||
(let* ((x (mouse-x kr 220 440 0 0.1))
|
(let* ((x (mouse-x kr 220 440 0 0.1))
|
||||||
|
|
Loading…
Reference in a new issue