-
Notifications
You must be signed in to change notification settings - Fork 1
/
country.orc
130 lines (113 loc) · 2 KB
/
country.orc
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
sr = 48000
kr = 480
ksmps = 100
nchnls = 1
ifn ftgen 1, 0, 1024, 7, 0, 256, 1, 512, -1, 256, 0
ifn ftgen 2, 0, 16384, 10, 1
ifn ftgen 3, 0, 8192, 10, 10, 8, 7
gabar init 0
gaba init 0
gast init 0
gilasso init 100
gibasso init 100
gib init 100
instr 1
p3 = p3/10
kenv linseg 1, p3, 0.0001
a1 randh 6000*kenv, 2700
gabar = a1*p4
out a1
endin
instr 2
p3 = p3/10
kenv linseg 1, p3, 0
a1 pluck 8000*kenv, gib*16, 1000, 0, 1
a2 pluck 8000*kenv, gib*24, 2400, 0, 1
a1=a1+a2
gasplash = a1*p4
out a1
endin
instr 3
p3 = p3/10
aenv linseg 0, 0, 1, p3, 1
a1 bamboo 8000, 0.1, 1
gasplash = a1*p4
out a1
endin
instr 4
p3=4
a1 barmodel 1, 1, 12, 0.001, 0.123, 5, 0.13, 200,1.1
a2 mpulse 32000, 4
a2 nreverb a2, 2, 1
gasplash = a2*p4
out a2
endin
instr 5
p3 = p3/10
kenv expseg 1, p3, 0.00001
idf[] init 30
index=0
while index < lenarray(idf) do
idf[index] = rnd(5000)+500
index+=1
od
kindex = 0
a2 =0
while kindex < lenarray(idf) do
a1 oscil kenv*1000,idf[kindex]+a1/10,2
a3 randh kenv*200, rnd(1200)+1000
a2=a2+a1+a3
kindex += 1
od
out a2
endin
instr 10
p3=p3/4
kenv linseg 0,0.01,1,p3,0
kfrq linseg gibasso, 0.01, gib*p4
a1 oscil kenv*8000, kfrq, 1
a2 butterlp a1, 400
if p5==1 then
gaba = gaba*(1-kenv) + a2
else
out a2
endif
gibasso = gib*p4
endin
instr 11
kenv linseg 0, p3/2, 1, p3/2, 0
kp expseg 3/4, p3/2, 1, p3/2, 1
a1 pluck kenv*18000, kp*gib*8*p4, 400, 0, 1
a2 butterlp a1, 1400
if p5==1 then
gast = gast*(1-kenv) + a2
else
out a2
endif
endin
instr 12
kenv linseg 1, p3, 0
axcite mpulse 8000*kenv, 60/80
a1b wgpluck gib*8*p4, 4000, 0.1, 0.1, 5, 1000, axcite
a1 wguide1 axcite, gib*8*p4, 4000, 0.9999
a2 wguide2 a1b, 2000, 2300, 3000, 1500, 0.2,0.2
if p5==1 then
gast = gast*(1-kenv) + a2
else
out a2
endif
endin
instr 13
endin ;spacebar delete
instr 100
a1 init 0
a1 delay gabar,240/80
a2 delay gasplash, 480/80
a3 delay gaba, 1920/80
a4 delay gast, 1200/80
out gabar+gasplash+gaba+gast
gabar=a1
gasplash=a2
gaba=a3
gast=a4
endin