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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
<CsoundSynthesizer>
<CsOptions>
; Select audio/midi flags here according to platform
-odac ;;;realtime audio out
;-iadc ;;;uncomment -iadc if realtime audio input is needed too
; For Non-realtime ouput leave only the line below:
; -o inleta.wav -W ;;; for file output any platform
</CsOptions>
<CsInstruments>
sr = 44100
ksmps = 32
nchnls = 2
; Connect up instruments and effects to create the signal flow graph.
connect "SimpleSine", "leftout", "Reverberator", "leftin"
connect "SimpleSine", "rightout","Reverberator", "rightin"
connect "Moogy", "leftout", "Reverberator", "leftin"
connect "Moogy", "rightout","Reverberator", "rightin"
connect "Reverberator", "leftout", "Compressor", "leftin"
connect "Reverberator", "rightout","Compressor", "rightin"
connect "Compressor", "leftout", "Soundfile", "leftin"
connect "Compressor", "rightout","Soundfile", "rightin"
; Turn on the "effect" units in the signal flow graph.
alwayson "Reverberator", 0.91, 12000
alwayson "Compressor"
alwayson "Soundfile"
; Define instruments and effects in order of signal flow.
instr SimpleSine
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Default values: p1 p2 p3 p4 p5 p6 p7 p8 p9 p10
pset 0, 0, 10, 0, 0, 0, 0.5
iattack = 0.015
idecay = 0.07
isustain = p3
irelease = 0.3
p3 = iattack + idecay + isustain + irelease
adamping linsegr 0.0, iattack, 1.0, idecay + isustain, 1.0, irelease, 0.0
iHz = cpsmidinn(p4)
; Rescale MIDI velocity range to a musically usable range of dB.
iamplitude = ampdb(p5 / 127 * 15.0 + 60.0)
; Use ftgenonce instead of ftgen, ftgentmp, or f statement.
icosine ftgenonce 0, 0, 65537, 11, 1
aoscili oscili iamplitude, iHz, icosine
aadsr madsr iattack, idecay, 0.6, irelease
asignal = aoscili * aadsr
aleft, aright pan2 asignal, p7
; Stereo audio output to be routed in the orchestra header.
outleta "leftout", aleft
outleta "rightout", aright
endin
instr Moogy
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Default values: p1 p2 p3 p4 p5 p6 p7 p8 p9 p10
pset 0, 0, 10, 0, 0, 0, 0.5
iattack = 0.003
isustain = p3
irelease = 0.05
p3 = iattack + isustain + irelease
adamping linsegr 0.0, iattack, 1.0, isustain, 1.0, irelease, 0.0
iHz = cpsmidinn(p4)
; Rescale MIDI velocity range to a musically usable range of dB.
iamplitude = ampdb(p5 / 127 * 20.0 + 60.0)
print iHz, iamplitude
; Use ftgenonce instead of ftgen, ftgentmp, or f statement.
isine ftgenonce 0, 0, 65537, 10, 1
asignal vco iamplitude, iHz, 1, 0.5, isine
kfco line 2000, p3, 200
krez = 0.8
asignal moogvcf asignal, kfco, krez, 100000
asignal = asignal * adamping
aleft, aright pan2 asignal, p7
; Stereo audio output to be routed in the orchestra header.
outleta "leftout", aleft
outleta "rightout", aright
endin
instr Reverberator
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Stereo input.
aleftin inleta "leftin"
arightin inleta "rightin"
idelay = p4
icutoff = p5
aleft, aright reverbsc aleftin, arightin, idelay, icutoff
; Stereo output.
outleta "leftout", aleft
outleta "rightout", aright
endin
instr Compressor
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Stereo input.
aleftin inleta "leftin"
arightin inleta "rightin"
kthreshold = 25000
icomp1 = 0.5
icomp2 = 0.763
irtime = 0.1
iftime = 0.1
aleftout dam aleftin, kthreshold, icomp1, icomp2, irtime, iftime
arightout dam arightin, kthreshold, icomp1, icomp2, irtime, iftime
; Stereo output.
outleta "leftout", aleftout
outleta "rightout", arightout
endin
instr Soundfile
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Stereo input.
aleftin inleta "leftin"
arightin inleta "rightin"
outs aleftin, arightin
endin
</CsInstruments>
<CsScore>
; It is not necessary to activate "effects" or create f-tables in the score!
; Overlapping notes create new instances of instruments with proper connections.
i "SimpleSine" 1 5 60 85
i "SimpleSine" 2 5 64 80
i "Moogy" 3 5 67 75
i "Moogy" 4 5 71 70
;1 extra second after the performance
e 1
</CsScore>
</CsoundSynthesizer>
|
