;  #############################################################
;  soundfile ex4-8 : Frequency Modulation instrument with attack noise
;  #############################################################

 ; p9 = attack hardness; p10 = fm c:m ratio ; p11 = fm index

 instr 3
   i1 = (p4<15? cpspch(p4) : p4)   ; p4 can be in cps or pch
   i2 = octcps(i1)
   i2 = (18-i2)*.1      ; scalar : c4 = 1., c5 = .9, c3 = 1.1, etc.
   i2 = .5*i2*p9
a1 envlpx p5,p6,p3,p7,60,p8,.01 ; amplitude envelope

 ; Pitch skew
   k1 expseg i2, p9*p6, .005,p3-p6, .005  ; envelope for % pitch skew
   k2 expseg KR - 1, p9*p6, p9*30, p3-p6, 20 ; envelope for pitch skew rate
   k1 randi k1*i1, k2                        ; pitch skew

 ; f.m. index envelope
   k2 expseg p9*p11, p9*p6, p11, p3-(p9*p6),.6*p11
   a1 foscili a1, k1+i1, 1, p10, k2, 100
 out a1
 endin
