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
|
<CsoundSynthesizer>
<CsOptions>
-odac
</CsOptions>
<CsInstruments>
sr = 48000
kr = 48000
nchnls = 2
0dbfs = 1
seed 0
gigaintbls[] fillarray 1, 4
gifreqtbls[] fillarray 2, 5
giqtables[] fillarray 3, 6
instr writeline
imode = round(random(1, 3))
if (imode == 1) then ; amp
imin = 0
imax = 1
ifns[] = gigaintbls
elseif (imode == 2) then ; freq
imin = 200
imax = 4000
ifns[] = gifreqtbls
elseif (imode == 3) then ; q
imin = 10
imax = 450
ifns[] = giqtables
endif
ifn = ifns[round(random(0, lenarray(ifns) - 1))]
index1 = round(random(0, ftlen(ifn) - 1))
index2 = round(random(0, ftlen(ifn) - 1))
kindex line index1, p3, index2
kline line random(imin, imax), p3, random(imin, imax)
tablew kline*random:k(0.9, 1.1), kindex, ifn
endin
gigutter init 0
instr play
event_i "i", "randomisefilters", 0, 1
ifilteron = 1
idistmethod = 2 ;5 ;2
ismoothing = 1 ; 0
kgamma = abs:k(oscil:k(random:k(1, 10), random(1, 7)))
komega = abs:k(oscil:k(random:k(0.2, 1), random(1, 7)))
kc = abs:k(oscil:k(random:k(0.1, 2), random(1, 7)))
kdt = abs:k(oscil:k(random:k(200, 1000), random(1, 7)))
ksgain = abs:k(oscil:k(random:k(0.1, 0.5), random(1, 7))) + 0.5
/*
kgamma init 8
komega init 0.6
kc init 1.2
kdt init 900
ksgain init 0.9
*/
ibankcount = 2
ifiltercount = 24
aout gutter ibankcount, ifiltercount, gigaintbls, gifreqtbls, giqtables, kgamma, komega, kc, kdt, ksgain, ifilteron, ismoothing, idistmethod
aout dcblock aout*0.2
aout butterhp aout, 10
aout *= 0.01
outs aout, aout
kmetro metro 5
if (kmetro == 1) then
event "i", "writeline", 0, random:k(0.1, 2)
endif
endin
opcode randtbls, 0, i[]ii
itbls[], imin, imax xin
index = 0
while (index < lenarray(itbls)) do
ifn = itbls[index]
index2 = 0
while (index2 < ftlen(ifn)) do
tablew random(imin, imax), index2, ifn
index2 += 1
od
index += 1
od
endop
instr randomisefilters
randtbls gigaintbls, 0, 1
randtbls gifreqtbls, 100, 4000
randtbls giqtables, 10, 500
turnoff
endin
</CsInstruments>
<CsScore>
f1 0 -24 -2 0
f2 0 -24 -2 0
f3 0 -24 -2 0
f4 0 -24 -2 0
f5 0 -24 -2 0
f6 0 -24 -2 0
/*
f1 0 -24 -2 0.319 0.785 0.335 0.908 0.209 0.445 0.851 0.664 0.513 0.977 0.805 0.593 0.487 0.128 0.24 0.196 0.587 0.594 0.705 0.308 0.925 0.447 0.965 0.497
f2 0 -24 -2 1390 792 375 3061 2953 3088 934 280 2014 992 3736 1372 3563 1850 2653 1598 3010 779 253 678 2322 3361 563 2577
f3 0 -24 -2 374 276 159 383 371 414 282 293 245 336 277 98 60 400 185 353 161 251 56 261 16 390 439 305
f4 0 -24 -2 0.8 0.989 0.617 0.231 0.548 0.943 0.065 0.419 0.829 0.941 0.95 0.5 0.102 0.55 0.628 0.985 0.779 0.789 0.649 0.098 0.543 0.035 0.647 0.634
f5 0 -24 -2 1601 2692 940 2642 3764 1339 902 1124 632 595 2951 2324 1787 495 907 1751 1862 2963 3341 3990 231 400 613 3838
f6 0 -24 -2 374 276 159 383 371 414 282 293 245 336 277 98 60 400 185 353 161 251 56 261 16 390 439 305
*/
i"play" 0 z
</CsScore>
</CsoundSynthesizer>
|