sr = 44100
kr = 4410
ksmps = 10
nchnls = 2
;0dbfs = 4
instr 108
a2 foscil p4, p5, p6, p7, p8, p9
outs a2,a2
endin
;drum reference taken from: http://www.adp-gmbh.ch/csound/instruments/simple_drum.html
instr 1
iptch = cpspch(p5)
asig pluck p4, iptch, iptch*0.81, 1, 3, .5 ;drum sound
out asig,asig
aenv adsr 0.2, 0.2, 1, 0.2
endin
instr 105
a1 loscil p4, p5, 4 ;sample-based looping oscillator
outs a1,a1
aenv1 adsr 0.2, 0.2, 1, 0.2
endin
instr 106
a6 loscil p4, p5, 6 ;sample-based looping oscillator
outs a6,a6
aenv2 adsr 0.2, 0.2, 1, 0.2
endin
instr 107
a3 loscil p4, p5, 5 ;sample-based looping oscillator
outs a3,a3
aenv3 adsr 0.2, 0.2, 1, 0.2 ;enveloping done to avoid clicks
endin
instr 3 ; p3=duration of note
k1 linen p4, p6, p3, p7 ; p4=amp
a5 oscil k1, p5, 10 ; p5=freq
outs a5,a5 ; p6=attack time