File: scope.scm

package info (click to toggle)
jack-tools 20131226-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 712 kB
  • sloc: ansic: 6,183; makefile: 105; lisp: 54
file content (24 lines) | stat: -rw-r--r-- 437 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
(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" (* 512 2))
(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)

(set-scope "/input-gain" 2.0)

(udp:close fd)