;  ###########################################
;  orchestra file for examples ex6-3
;  amplitude compression/expansion with dam
;  ##########################################
    ; csound header
sr=44100
kr=2205
ksmps=20
nchnls=1

instr 1
asig  soundin  p4, p6    ; read in soundfile
; input amplitude scaling and optional fade-in and fade-out
	iamp = p5
	irise = (p7 = 0 ? .001 : p7)
	idecay = (p8 = 0 ? .001 : p8)
kamp expseg .005, irise, iamp, p3 - (irise + idecay), iamp, idecay, .005
asig = kamp * asig
 ; apply amplitude compression/expansion:
asig  dam  asig, p9, p10, p11, p12, p13
out asig
endin
