17 lines
325 B
Racket
17 lines
325 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
;; run scsynth
|
||
|
|
(define (run-super-collider)
|
||
|
|
(match (system-type 'os)
|
||
|
|
('unix (when (not (system "ps -e | grep scsynth > /dev/null"))
|
||
|
|
(thread (lambda ()
|
||
|
|
(system "./start_server_linux.sh")))))
|
||
|
|
('macosx 1)
|
||
|
|
('windows 1)
|
||
|
|
(else 1)))
|
||
|
|
|