Mercurial > hg > jslab

view examples/sockets/recv.scm @ 2:74cc9e431818

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert change to MidiSynth
author samer
date Fri, 05 Apr 2019 16:43:56 +0100
parents 5df24c91468d
children
line wrap: on
line source
(load "sockets.scm")
(load "filelist.scm")
(load "models.scm")
(load "audio.scm")

(define S (make-server))
(define x (norm (linein (filesource) 512 256)))
(define s (VVector. "s" 512))
(expose)
(define sk (accept S))
(addtask (send-vec sk x))

(define th2 (RThread.))
(.addTask th2 (recv-vec sk s))