tried fixing running supercollider

This commit is contained in:
Mustafa 2014-05-29 10:03:53 -07:00
parent f180495225
commit bb6ac29aca
5 changed files with 14 additions and 11 deletions

View file

@ -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

View file

@ -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)

View file

@ -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"))

View file

@ -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)

View file

@ -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))