2
<emphasis role="csdtag"><CsoundSynthesizer></emphasis>
3
<emphasis role="csdtag"><CsOptions></emphasis>
5
<emphasis role="comment">; Select audio/midi flags here according to platform</emphasis>
6
<emphasis role="comment">; Audio out Audio in No messages MIDI in</emphasis>
7
-odac -iadc -d <emphasis role="comment">;;;RT audio I/O </emphasis>
8
<emphasis role="comment">;-Wfo inleta.wav </emphasis>
9
<emphasis role="csdtag"></CsOptions></emphasis>
10
<emphasis role="csdtag"><CsInstruments></emphasis>
13
<emphasis role="comment">; Initialize the global variables. </emphasis>
15
<emphasis role="ohdr">sr</emphasis> <emphasis role="op">=</emphasis> 44100
16
<emphasis role="ohdr">ksmps</emphasis> <emphasis role="op">=</emphasis> 100
17
<emphasis role="ohdr">nchnls</emphasis> <emphasis role="op">=</emphasis> 2
19
<emphasis role="comment">; Connect up instruments and effects to create the signal flow graph. </emphasis>
21
<emphasis role="opc">connect</emphasis> "SimpleSine", "leftout", "Reverberator", "leftin"
22
<emphasis role="opc">connect</emphasis> "SimpleSine", "rightout", "Reverberator", "rightin"
24
<emphasis role="opc">connect</emphasis> "Moogy", "leftout", "Reverberator", "leftin"
25
<emphasis role="opc">connect</emphasis> "Moogy", "rightout", "Reverberator", "rightin"
27
<emphasis role="opc">connect</emphasis> "Reverberator", "leftout", "Compressor", "leftin"
28
<emphasis role="opc">connect</emphasis> "Reverberator", "rightout", "Compressor", "rightin"
30
<emphasis role="opc">connect</emphasis> "Compressor", "leftout", "Soundfile", "leftin"
31
<emphasis role="opc">connect</emphasis> "Compressor", "rightout", "Soundfile", "rightin"
33
<emphasis role="comment">; Turn on the "effect" units in the signal flow graph. </emphasis>
35
<emphasis role="opc">alwayson</emphasis> "Reverberator", 0.91, 12000
36
<emphasis role="opc">alwayson</emphasis> "Compressor"
37
<emphasis role="opc">alwayson</emphasis> "Soundfile"
39
<emphasis role="comment">; Define instruments and effects in order of signal flow.</emphasis>
41
<emphasis role="oblock">instr</emphasis> SimpleSine
42
<emphasis role="comment">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</emphasis>
43
<emphasis role="comment">; Default values: p1 p2 p3 p4 p5 p6 p7 p8 p9 p10</emphasis>
44
<emphasis role="opc">pset</emphasis> 0, 0, 10, 0, 0, 0, 0.5
45
iattack <emphasis role="op">=</emphasis> 0.015
46
idecay <emphasis role="op">=</emphasis> 0.07
47
isustain <emphasis role="op">=</emphasis> p3
48
irelease <emphasis role="op">=</emphasis> 0.3
49
p3 <emphasis role="op">=</emphasis> iattack <emphasis role="op">+</emphasis> idecay <emphasis role="op">+</emphasis> isustain <emphasis role="op">+</emphasis> irelease
50
adamping <emphasis role="opc">linsegr</emphasis> 0.0, iattack, 1.0, idecay <emphasis role="op">+</emphasis> isustain, 1.0, irelease, 0.0
51
iHz <emphasis role="op">=</emphasis> <emphasis role="opc">cpsmidinn</emphasis>(p4)
52
<emphasis role="comment">; Rescale MIDI velocity range to a musically usable range of dB. </emphasis>
53
iamplitude <emphasis role="op">=</emphasis> <emphasis role="opc">ampdb</emphasis>(p5 <emphasis role="op">/</emphasis> 127 <emphasis role="op">*</emphasis> 15.0 <emphasis role="op">+</emphasis> 60.0)
54
<emphasis role="comment">; Use ftgenonce instead of ftgen, ftgentmp, or f statement. </emphasis>
55
icosine <emphasis role="opc">ftgenonce</emphasis> 0, 0, 65537, 11, 1
56
aoscili <emphasis role="opc">oscili</emphasis> iamplitude, iHz, icosine
57
aadsr <emphasis role="opc">madsr</emphasis> iattack, idecay, 0.6, irelease
58
asignal <emphasis role="op">=</emphasis> aoscili <emphasis role="op">*</emphasis> aadsr
59
aleft, aright <emphasis role="opc">pan2</emphasis> asignal, p7
60
<emphasis role="comment">; Stereo audio output to be routed in the orchestra header. </emphasis>
61
<emphasis role="opc">outleta</emphasis> "leftout", aleft
62
<emphasis role="opc">outleta</emphasis> "rightout", aright
63
<emphasis role="oblock">endin</emphasis>
65
<emphasis role="oblock">instr</emphasis> Moogy
66
<emphasis role="comment">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</emphasis>
67
<emphasis role="comment">; Default values: p1 p2 p3 p4 p5 p6 p7 p8 p9 p10</emphasis>
68
<emphasis role="opc">pset</emphasis> 0, 0, 10, 0, 0, 0, 0.5
69
iattack <emphasis role="op">=</emphasis> 0.003
70
isustain <emphasis role="op">=</emphasis> p3
71
irelease <emphasis role="op">=</emphasis> 0.05
72
p3 <emphasis role="op">=</emphasis> iattack <emphasis role="op">+</emphasis> isustain <emphasis role="op">+</emphasis> irelease
73
adamping <emphasis role="opc">linsegr</emphasis> 0.0, iattack, 1.0, isustain, 1.0, irelease, 0.0
74
iHz <emphasis role="op">=</emphasis> <emphasis role="opc">cpsmidinn</emphasis>(p4)
75
<emphasis role="comment">; Rescale MIDI velocity range to a musically usable range of dB. </emphasis>
76
iamplitude <emphasis role="op">=</emphasis> <emphasis role="opc">ampdb</emphasis>(p5 <emphasis role="op">/</emphasis> 127 <emphasis role="op">*</emphasis> 20.0 <emphasis role="op">+</emphasis> 60.0)
77
<emphasis role="opc">print</emphasis> iHz, iamplitude
78
<emphasis role="comment">; Use ftgenonce instead of ftgen, ftgentmp, or f statement. </emphasis>
79
isine <emphasis role="opc">ftgenonce</emphasis> 0, 0, 65537, 10, 1
80
asignal <emphasis role="opc">vco</emphasis> iamplitude, iHz, 1, 0.5, isine
81
kfco <emphasis role="opc">line</emphasis> 2000, p3, 200
82
krez <emphasis role="op">=</emphasis> 0.8
83
asignal <emphasis role="opc">moogvcf</emphasis> asignal, kfco, krez, 100000
84
asignal <emphasis role="op">=</emphasis> asignal <emphasis role="op">*</emphasis> adamping
85
aleft, aright <emphasis role="opc">pan2</emphasis> asignal, p7
86
<emphasis role="comment">; Stereo audio output to be routed in the orchestra header. </emphasis>
87
<emphasis role="opc">outleta</emphasis> "leftout", aleft
88
<emphasis role="opc">outleta</emphasis> "rightout", aright
89
<emphasis role="oblock">endin</emphasis>
90
<emphasis role="oblock">instr</emphasis> Reverberator
91
<emphasis role="comment">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</emphasis>
92
<emphasis role="comment">; Stereo input. </emphasis>
93
aleftin <emphasis role="opc">inleta</emphasis> "leftin"
94
arightin <emphasis role="opc">inleta</emphasis> "rightin"
95
idelay <emphasis role="op">=</emphasis> p4
96
icutoff <emphasis role="op">=</emphasis> p5
97
aleft, aright <emphasis role="opc">reverbsc</emphasis> aleftin, arightin, idelay, icutoff
98
<emphasis role="comment">; Stereo output. </emphasis>
99
<emphasis role="opc">outleta</emphasis> "leftout", aleft
100
<emphasis role="opc">outleta</emphasis> "rightout", aright
101
<emphasis role="oblock">endin</emphasis>
103
<emphasis role="oblock">instr</emphasis> Compressor
104
<emphasis role="comment">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</emphasis>
105
<emphasis role="comment">; Stereo input. </emphasis>
106
aleftin <emphasis role="opc">inleta</emphasis> "leftin"
107
arightin <emphasis role="opc">inleta</emphasis> "rightin"
108
kthreshold <emphasis role="op">=</emphasis> 25000
109
icomp1 <emphasis role="op">=</emphasis> 0.5
110
icomp2 <emphasis role="op">=</emphasis> 0.763
111
irtime <emphasis role="op">=</emphasis> 0.1
112
iftime <emphasis role="op">=</emphasis> 0.1
113
aleftout <emphasis role="opc">dam</emphasis> aleftin, kthreshold, icomp1, icomp2, irtime, iftime
114
arightout <emphasis role="opc">dam</emphasis> arightin, kthreshold, icomp1, icomp2, irtime, iftime
115
<emphasis role="comment">; Stereo output. </emphasis>
116
<emphasis role="opc">outleta</emphasis> "leftout", aleftout
117
<emphasis role="opc">outleta</emphasis> "rightout", arightout
118
<emphasis role="oblock">endin</emphasis>
120
<emphasis role="oblock">instr</emphasis> Soundfile
121
<emphasis role="comment">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</emphasis>
122
<emphasis role="comment">; Stereo input. </emphasis>
123
aleftin <emphasis role="opc">inleta</emphasis> "leftin"
124
arightin <emphasis role="opc">inleta</emphasis> "rightin"
125
<emphasis role="opc">outs</emphasis> aleftin, arightin
126
<emphasis role="oblock">endin</emphasis>
128
<emphasis role="csdtag"></CsInstruments></emphasis>
129
<emphasis role="csdtag"><CsScore></emphasis>
132
<emphasis role="comment">; It is not necessary to activate "effects" or create f-tables in the score! </emphasis>
133
<emphasis role="comment">; Overlapping notes create new instances of instruments with proper connections. </emphasis>
135
<emphasis role="stamnt">i</emphasis> "S<emphasis role="stamnt">i</emphasis>mpleS<emphasis role="stamnt">i</emphasis>ne" 1 5 60 85
136
<emphasis role="stamnt">i</emphasis> "S<emphasis role="stamnt">i</emphasis>mpleS<emphasis role="stamnt">i</emphasis>ne" 2 5 64 80
137
<emphasis role="stamnt">i</emphasis> "Moogy" 3 5 67 75
138
<emphasis role="stamnt">i</emphasis> "Moogy" 4 5 71 70
139
<emphasis role="comment">;1 extra second after the performance</emphasis>
140
<emphasis role="stamnt">e</emphasis> 1
142
<emphasis role="csdtag"></CsScore></emphasis>
143
<emphasis role="csdtag"></CsoundSynthesizer></emphasis>
b'\\ No newline at end of file'