;  #############################################################
;  ex3-3   :  Simple F.M. instrument   Eastman Csound Tutorial
;  #############################################################
instr 1
    kenv linen   p5,  p6,  p3,  p7   ; amplitude envelope
    ipitch = cpspch(p4)
    amod  oscili   p9*ipitch,  p8,  100        ; modulating oscillator
    acar  oscili  kenv,  ipitch + amod,  100   ; carrier oscillator
    out acar
endin
