-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathwavbased.orc
51 lines (47 loc) · 951 Bytes
/
wavbased.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
sr=44100
kr=1102.5
ksmps=40
nchnls=1
;; ignores duration
instr 1
idur = p3
iiamp = p4
iicps = p5
icps = iicps
asig init 0
isize filelen "samples/Piano001.wav"
itime = isize
iddur = itime/icps
p3=iddur
kamp linen iiamp*1,0.01,iddur,0.01
asig diskin "samples/Piano001.wav" ,icps
out asig*kamp
endin
instr 2
idur = p3
iiamp = p4
iicps = p5
icps = iicps
asig init 0
isize filelen "samples/snare1.wav"
itime = isize
iddur = itime/icps
p3=iddur
kamp linen iiamp*1,0.01,(iddur),0.01
asig diskin "samples/snare1.wav" ,icps
out asig*kamp
endin
instr 3
idur = p3
iiamp = p4
iicps = p5
icps = iicps
asig init 0
isize filelen "samples/1shot_gong.wav"
itime = isize
iddur = itime/icps
p3=iddur
kamp linen iiamp*1,0.01,(iddur),0.01
asig diskin "samples/1shot_gong.wav" ,icps
out asig*kamp
endin