File: scope.scm

package info (click to toggle)
jack-tools 20101210-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 504 kB
  • sloc: ansic: 4,678; makefile: 122; lisp: 48; sh: 16
file content (22 lines) | stat: -rw-r--r-- 401 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
(import (sosc))

(define fd
  (udp:open "127.0.0.1" 57140))

(define set-scope
  (lambda (cmd arg)
    (send fd (list cmd arg))))

(set-scope "/frames" 1024)
(set-scope "/delay" (/ 1000.0 24.0))

(set-scope "/mode" "signal")
(set-scope "/style" "fill")
(set-scope "/style" "line")
(set-scope "/style" "dot")

(set-scope "/mode" "embed")
(set-scope "/incr" 0.1)
(set-scope "/embed" 64)

(udp:close fd)