René Nyffenegger's collection of things on the web
René Nyffenegger on Oracle - Most wanted - Feedback -
 

Gong (CSound instrument)

This instruments uses the technique to shape an envelope.
sr = 44100
kr  =  441
ksmps= 100
nchnls = 1

instr 1; *****************************************************************
  ilen  = p3
  ifrq  = cpspch(p4)

  print ifrq

  ifrq1 =  1.0000  * ifrq
  ifrq2 =  1.1541  * ifrq
  ifrq3 =  1.6041  * ifrq
  ifrq4 =  1.5208  * ifrq
  ifrq5 =  1.4166  * ifrq
  ifrq6 =  2.7916  * ifrq
  ifrq7 =  3.3833  * ifrq

  iamp  = p5

  iamp1 =  1.0000  * iamp
  iamp2 =  0.8333  * iamp
  iamp3 =  0.6667  * iamp
  iamp4 =  1.0000  * iamp
  iamp5 =  0.3333  * iamp
  iamp6 =  0.3333  * iamp
  iamp7 =  0.3333  * iamp

  aenv1    oscili  iamp1, 1/ilen, 2
  aenv2    oscili  iamp2, 1/ilen, 2
  aenv3    oscili  iamp3, 1/ilen, 2
  aenv4    oscili  iamp4, 1/ilen, 2
  aenv5    oscili  iamp5, 1/ilen, 2
  aenv6    oscili  iamp6, 1/ilen, 2
  aenv7    oscili  iamp7, 1/ilen, 2

  asig1    oscili  aenv1, ifrq1, 1
  asig2    oscili  aenv2, ifrq2, 1
  asig3    oscili  aenv3, ifrq3, 1
  asig4    oscili  aenv4, ifrq4, 1
  asig5    oscili  aenv5, ifrq5, 1
  asig6    oscili  aenv6, ifrq6, 1
  asig7    oscili  aenv7, ifrq7, 1

         out     asig1 + asig2 + asig3 + asig4 + asig5 + asig6 + asig7
endin
f1  0   512   9  1  1  0    ; basic waveform
f2  0   513   5  128 512 1  ; envelopes

i1   0  6  7.09  5000 
i1   6  6  7.09  5000
i1  12  6  7.09  5000
Find a bell that is created with frequency modulation.