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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
<CsoundSynthesizer>
<CsOptions>
csound -m255 -M0 -+rtmidi=null -RWf --midi-key=4 --midi-velocity=5 -o jacko_test.wav
</CsOptions>
<CsInstruments>
; Unit tests for the Jack opcodes.
; To do:
; -- Python score generator and client runner.
sr = 48000
ksmps = 128
nchnls = 2
0dbfs = 1
JackoInit "default", "csound"
; To use ALSA midi ports, use "jackd -Xseq"
; and use "jack_lsp -A -c" or aliases from JackInfo,
; probably together with information from the sequencer,
; to figure out the damn port names.
; JackoMidiInConnect "alsa_pcm:in-131-0-Master", "midiin"
JackoAudioInConnect "aeolus:out.L", "leftin"
JackoAudioInConnect "aeolus:out.R", "rightin"
JackoMidiOutConnect "midiout", "aeolus:Midi/in"
; Note that Jack enables audio to be output to a regular
; Csound soundfile and, at the same time, to a sound
; card in real time to the system client via Jack.
JackoAudioOutConnect "leftout", "system:playback_1"
JackoAudioOutConnect "rightout", "system:playback_2"
JackoInfo
; Turning freewheeling on seems automatically
; to turn system playback off. This is good!
JackoFreewheel 1
JackoOn
alwayson "jackin"
instr 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ichannel = p1 - 1
itime = p2
iduration = p3
ikey = p4
ivelocity = p5
JackoNoteOut "midiout", ichannel, ikey, ivelocity
print itime, iduration, ichannel, ikey, ivelocity
endin
instr jackin
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
JackoTransport 3, 1.0
aleft JackoAudioIn "leftin"
aright JackoAudioIn "rightin"
; Aeolus uses MIDI controller 98 to control stops.
; Only 1 data value byte is used, not the 2 data
; bytes often used with NRPNs.
; The format for control mode is 01mm0ggg:
; mm 10 to set stops, 0, ggg group (or Division, 0 based).
; The format for stop selection is 000bbbbb:
; bbbbb for button number (0 based).
; Mode to enable stops for Divison I: b1100010 (98
; [this controller VALUE is a pure coincidence]).
JackoMidiOut "midiout", 176, 0, 98, 98
; Stops: Principal 8 (0), Principal 4 (1) , Flote 8 (8) , Flote 2 (10)
JackoMidiOut "midiout", 176, 0, 98, 0
JackoMidiOut "midiout", 176, 0, 98, 1
JackoMidiOut "midiout", 176, 0, 98, 8
JackoMidiOut "midiout", 176, 0, 98, 10
; Sends audio coming in from Aeolus out
; not only to the Jack system out (sound card),
; but also to the output soundfile.
; Note that in freewheeling mode, "leftout"
; and "rightout" simply go silent.
JackoAudioOut "leftout", aleft
JackoAudioOut "rightout", aright
outs aright, aleft
endin
</CsInstruments>
<CsScore>
f 0 30
i 1 1 30 60 60
i 1 2 30 64 60
i 1 3 30 71 60
e 2
</CsScore>
</CsoundSynthesizer>
|
