;  #############################################################
;  soundfile ex3-1  :                    Csound Tutorial
;  #############################################################
; Audio-Rate Amplitude Modulation Instrument :
;p3 Duration   p4 Pitch   p5 Amplitude  p6 Attack time  p7 Decay time
; p8 ratio of modulating freq. to p4
;p9 1st  amplitude modulation %
;p10 2nd  amplitude modulation %
;p11 Function number controlling change in a. m. %
;p12 Function number for modulating oscillator


instr 1
i1 = cpspch(p4)
k1 linen p5,p6,p3,p7            ; amplitude envelope
k2 oscili p10 - p9,1/p3,p11  ; difference between 1st & 2nd a. m. %
k2 = k1 * (k2 + p9)              ; % of signal to be amp. modulated
knomod = k1 - k2                 ; % of signal NOT amp. modulated
ampmod oscili k2,i1 * p8,p12        ; modulating oscillator
a1 oscili ampmod + knomod, i1 ,1   ; carrier oscillator
	out a1
endin

