Brass [CSound FM instrument]

sr     = 44100
kr     = 4410
nchnls = 1

instr 1;
idur   = p3
iamp   = p4
ifenv  = 31
ifdyn  = 31
ifq1   = cpspch(p5)
if1    = 1
ifq2   = cpspch(p5)
if2    = 1
imax   = 5

   aenv  oscili   iamp, 1/idur, ifenv

   adyn  oscili   ifq2*imax, 1/idur, ifdyn
   amod  oscili   adyn, ifq2, if2

   a1    oscili   aenv, ifq1+amod, if1
         out      a1
endin

; GEN functions **********************************************************
; carriers
f1  0  512  10  1

; envelopes
f31 0 513 7 0 80 1  80 .85  290 .8 63 0      ; amplitude & index envelope


; score ******************************************************************

;    idur  iamp   pch
i1  0 .6  20000  8.00    ; scale in brass...
i1  +  .  .      8.02
i1  .  .  .      8.04
i1  .  .  .      8.05
i1  .  .  .      8.07
i1  .  .  .      8.09
i1  .  .  .      8.11
i1  .  .  .      9.00

e