<info>
i is ex4-8
ECMC Csound Tutorial example ex4-8
</info>
<tk_interface>
</tk_interface>
<mono>
;  #############################################################
;  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
</mono>
<stereo>
</stereo>
<score>

                  SCORE-11, Version 1.4
Copyright (C) 1982, 1990, 1992, 1995 by Alexander R. Brinkman
     Eastman School of Music, University of Rochester

f60 0 65 5 .01 64 1.
f100 0 256 10 1.
  i3 0.000 1.980 8.09 15000 0.070 0.300 0.650 1.000 1.006 1.900
  i3 2.000 1.980 8.09 15000 0.250 0.300 0.850 0.600 1.006 1.000
  i3 4.000 1.980 8.09 15000 0.060 0.300 0.250 1.700 1.006 2.600
e
</score>
