CsoundQt-WASM template
Play
Stop
Event
Volume:
Notes played:
0
/* this is the Csound orchestra - based on example by Victor Lazzarini */ nchnls=2 0dbfs=1 chnset 0.5, "volume" chnset 0, "count" instr 1 chnset chnget:i("count")+1, "count" ; count the notes played k1 expon p4,p3,p4*0.001 kvolume chnget "volume" a1 vco2 k1*kvolume,p5 outs a1,a1 schedule 1,0.25,0.5,0.1+rnd(0.1),500+rnd(500) endin schedule 1,0,0.5,0.1,500 instr 2 ; simple bell instrument p3 random 1, 5 kamp linen 0.5*chnget:k("volume"),0.1,p3,p3/2 asig fmbell kamp, random:i(200,800), 1, random:i(0.8,1.2), random:i(0,0.2), random:i(3,6) outs asig, asig endin
loading... (no meaning in CsoundQt)