; Bruce A. Maxwell
; January 2015
;
; Bell sounds using the fmbell function
;

<CsoundSynthesizer> 
 
<CsOptions> 
-g -W -o bells.aif
</CsOptions> 
 
<CsInstruments> 

; an fm bell
instr 1

kamp = p4
ipch = p5
ifreq = cpspch(ipch)
kc1 = p6
kc2 = p7
kvdepth = 0.005
kvrate = 6

aout fmbell kamp, ifreq, kc1, kc2, kvdepth, kvrate, 1, 1, 1, 1, 1, p3
out aout, aout

endin

</CsInstruments> 
 
<CsScore> 
; a sine wave table
; function  id#  startTime  samples  GEN   Amp
f           1    0          8192     10    1

; a uniform random noise table
; function  id#  startTime  samples  GEN   Type
f           2    0          8192     21    1

; a spline table
f 3 0 1024 8 0.5 32 1 64 0.5 128 0.25 512 0.01 160 0.0


; make a note
;
;note  instr   start    duration(p3)   amp(p4)   pitch(p5)	fm1(p6)	fm2(p7)
i      1       0        0.5           20000		 	 8.00				2				1
i      1       +        0.5           20000		 	 8.02				2				1
i      1       +        0.5           20000		 	 8.04				2				1
i      1       +        0.5           20000		 	 8.05				2				1
i      1       +        0.5           20000		 	 8.07				2				1
i      1       +        0.5           20000		 	 8.09				2				1
i      1       +        0.5           20000		 	 8.11				2				1
i      1       +        0.5           20000		 	 8.12				2				1
i      1       +        0.5           20000		 	 7.00				2				1



</CsScore> 
</CsoundSynthesizer>