view examples/sockets/recv.scm @ 1:5df24c91468d

Oh my what a mess.

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