;guitar pluck sound ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; instr 1
iamp = p4
ifrq = p5
asig pluck iamp, ifrq, 400, 0, 1, 0,0
outs asig, asig
endin

;explody sound ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
instr 199
iamp = p4 ;examples: 13708
ifrq = p5 ;1.8191
asig pluck iamp, ifrq, 18.341, 0, 3, 0.43542, 0.2
outs asig, asig
endin

;oscilator ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
instr 3
; amp,frq,shp
a3 oscil p4, p5, 2 ; oscillator
outs a3,a3
endin

instr 32 ; SIMPLE WAVETABLE
a32 loscil 10000, 440, 4
outs a32,a32
endin

;granular ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
instr 105 ; SIMPLE GRANULAR
a1 grain 10000, 440, 55, 10000, 10, .05, 1, 3, 1
outs a1,a1
endin

instr 106
a1 grain p4, p5, p6, p7, p8, p9, p10, p11, p12
outs a1,a1
endin

; VDELAY FLANGER from Csound walkthrough ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
instr 136
idur = p3
iamp = p4
ifrq = p5
iatk = p6
irel = p7
irat1 = p8
irat2 = p9
imsdel = p10
kenv expseg .001, iatk, iamp, idur/8, iamp*.3, idur-(iatk+irel+idur/8),iamp*.7, irel, .01
krate line irat1, idur, irat2
alfo oscil imsdel, krate/idur, 2
anoise rand ifrq
adel4 vdelay anoise, alfo, imsdel
adel3 vdelay adel4, alfo, imsdel
adel2 vdelay adel3, alfo, imsdel
adel1 vdelay adel2, alfo, imsdel
adel0 vdelay adel1, alfo, imsdel
amix = adel0+adel1+adel2+adel3+adel4
outs kenv*amix,kenv*amix
dispfft amix, idur, 1024
endin