zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

made reset a function with no params

Browse source
This commit is contained in:
Mustafa 2014-05-27 16:39:21 -07:00
parent 8a6d97dc50
commit d5ae4a0053
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
rsc3/main.rkt
View file

@ -1550,13 +1550,6 @@
(send fd m) (send fd m)
(wait fd "/done"))) (wait fd "/done")))
;; port -> ()
(define reset
(lambda (fd)
(send fd (bundle -1 (list (g-free-all1 0)
clear-sched
(g-new1 1 0 0))))))
;; port -> string -> ugen -> () ;; port -> string -> ugen -> ()
(define send-synth (define send-synth
(lambda (fd n u) (lambda (fd n u)
@ -1600,6 +1593,16 @@
;; (socket -> a) -> a ;; (socket -> a) -> a
(define with-sc3 with-udp-sc3) (define with-sc3 with-udp-sc3)
;; port -> ()
(define (reset)
(with-sc3 (lambda (fd)
(send fd (bundle -1 (list (g-free-all1 0)
clear-sched
(g-new1 1 0 0)))))))
;; ((socket -> a) -> a) -> (ugen -> ()) ;; ((socket -> a) -> a) -> (ugen -> ())
(define audition-using (define audition-using
(lambda (f) (lambda (f)