blob: 7bff9a7524f48ebc8cf0253ebad4033a43a83a5c (
plain)
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
<CsoundSynthesizer>
<CsOptions>
-+rtaudio=alsa -o dac:hw:0
</CsOptions>
<CsInstruments>
nchnls = 2
ksmps = 400
#define WII_B #3#
#define WII_A #4#
#define WII_R_A #304#
#define WII_PITCH #20#
#define WII_ROLL #21#
gkcnt init 1
instr 1
i1 wiiconnect 3,1
wiirange $WII_PITCH., -20, 0
kt wiidata $WII_B.
ka wiidata $WII_A.
kra wiidata $WII_R_A.
gka wiidata $WII_PITCH.
gkp wiidata $WII_ROLL.
; If the B (trigger) button is pressed then activate a note
if (kt==0) goto ee
if (qnan(gka)) goto ee
if (qnan(gkp)) goto ee
event "i", 2, 0, 5
gkcnt = gkcnt + 1
printk2 kb
endin
instr 2
a1 oscil ampdbfs(gka), 440+gkp, 1
outs a1, a1
endin
</CsInstruments>
<CsScore>
f1 0 4096 10 1
i1 0 300
</CsScore>
</CsoundSynthesizer>
|