csoundAPI_emacsLisp/test.el at master · hlolli/csoundAPI_emacsLisp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
(module-load "./csnd.so")

(setq csound-instance (csoundCreate))

(csoundCompile csound-instance "test1.csd")

(csoundCompileCsd csound-instance "test1.csd")

(csoundPerform csound-instance)

(let* ((a (csoundCreate))
       (b (csoundDestroy a))))

(csoundGetOutputName csound-instance)

CSOUND_CONTROL_CHANNEL

(csoundSetControlChannel csound-instance "test-chan" (float 66999.6))
(csoundGetControlChannel csound-instance "test-chan")

(csoundSetStringChannel csound-instance "test-str-chan" "12345678910")
(csoundGetStringChannel csound-instance "test-str-chan")

(csoundCleanup csound-instance)

(csoundDestroy csound-instance)

(csoundScoreEvent csound-instance "iaaaaaaaaaaaaaaaaaaaaaaaaaa" 2 "a")