This should play if your Web browser has WebAssembly enabled (most do). Most examples will play unless they need to load files. The first time you click Play, Csound will spend a few seconds loading, then play. You can edit this code and replay it.
<CsoundSynthesizer> <CsOptions> // -o dac -M hw:1,0,0 ; Terminal // -Mhw:1,0,0 -+rtmidi=NULL --daemon -dm0 ; Bela </CsOptions> <CsInstruments> ; Required settings for WebAudio: sr = 48000 ksmps = 128 nchnls = 2 nchnls_i = 1 ; sr = 44100 ; ksmps = 32 ; nchnls = 2 0dbfs = 1 ; by John ffitch and Richard Boulanger ctrlinit 1, 21,101, 22,11, 23,12, 24,16, 25,0, 26,82 ; Starting Preset instr 42 ; A Bank of Controller Presets - selected by ASCII Key Numbers 1->9 and a,b,c,d in instr 1 below kpre1 ctrlpreset 0, 1, 21, 101, 22, 94, 23, 01, 24, 06, 25, 14, 26, 02 ; Preset 1 = ASCII 1 kpre2 ctrlpreset 0, 1, 21, 102, 22, 57, 23, 76, 24, 55, 25, 77, 26, 12 ; Preset 2 = ASCII 2 kpre3 ctrlpreset 0, 1, 21, 103, 22, 12, 23, 13, 24, 16, 25, 84, 26, 22 ; Preset 3 = ASCII 3 kpre4 ctrlpreset 0, 1, 21, 104, 22, 83, 23, 18, 24, 13, 25, 24, 26, 32 ; Preset 4 = ASCII 4 kpre5 ctrlpreset 0, 1, 21, 105, 22, 20, 23, 48, 24, 33, 25, 94, 26, 42 ; Preset 5 = ASCII 5 kpre6 ctrlpreset 0, 1, 21, 106, 22, 52, 23, 10, 24, 03, 25, 68, 26, 52 ; Preset 6 = ASCII 6 kpre7 ctrlpreset 0, 1, 21, 107, 22, 09, 23, 02, 24, 07, 25, 01, 26, 02 ; Preset 7 = ASCII 7 kpre8 ctrlpreset 0, 1, 21, 108, 22, 34, 23, 10, 24, 96, 25, 44, 26, 42 ; Preset 8 = ASCII 8 kpre9 ctrlpreset 0, 1, 21, 109, 22, 04, 23, 91, 24, 66, 25, 04, 26, 92 ; Preset 9 = ASCII 9 kpre10 ctrlpreset 0, 1, 21, 110, 22, 04, 23, 10, 24, 66, 25, 44, 26, 22 ; Preset 10 = ASCII 'a' kpre11 ctrlpreset 0, 1, 21, 111, 22, 07, 23, 46, 24, 45, 25, 17, 26, 32 ; Preset 11 = ASCII 'b' kpre12 ctrlpreset 0, 1, 21, 112, 22, 22, 23, 03, 24, 06, 25, 04, 26, 42 ; Preset 12 = ASCII 'c' kpre13 ctrlpreset 0, 1, 21, 113, 22, 43, 23, 98, 24, 93, 25, 94, 26, 52 ; Preset 13 = ASCII 'd' ctrlprintpresets ; print the CC Presets in the console in response to the 'i42 0 0.1' note in score ctrlprintpresets "./my_ctrlpresets.txt" ; print the CC Presets to a file turnoff endin instr 1 kc[] init 6 icps cpsmidi iamp ampmidi 0.6 kvol midic7 21, 0,1 kcar midic7 22, 1,10 kmod midic7 23, .1,10 kndx midic7 24, 1,30 kndx port kndx,.1 iatk midic7 25, .01,1 irel midic7 26, .01,2 kpre midic7 28, 1,13 ; use CC 28 to select from the preset 1 - 13 above ktrig changed2 kpre if ktrig == 1 then kpre = int(kpre) ctrlselect kpre printk2 kpre endif asig foscil iamp, icps, kcar, kmod, kndx, 1 kmgate linsegr 0, iatk, 1, irel, 0 outs (asig*kmgate)*kvol, (asig*kmgate)*kvol kc ctrlsave 1, 21,22,23,24,25,26 ; MIDI Channel and CC values to read & save (Chan1 & CC21->CC26) kchar sensekey ; CC values printed to console after playing next note if kchar != 65 goto end0 ; ASCII character "65" is the letter 'A' (shift-a) ctrlprint kc ; prints Controller Settings (CC Presets) to the console ctrlprint kc, "./my_ctrlinits.txt" ; appends Controller Settings (CC Presets) to a file end0: if kchar<49 || kchar>57 goto end1 ; ASCII numbers 1 -> 9 kval = kchar - 48 ctrlselect kval end1: if kchar <97 || kchar>122 goto end2 ; ASCII numbers 10 -> 36 (lower-case letters a -> z) kval = (kchar - 97) + 10 ctrlselect kval end2: if kchar != 86 goto end3 ; ASCII character "86" is the letter 'V' (shift-v) kk ctrlpreset 0,kc ; adding and numbering the current state as a preset to the list ctrlprintpresets ; prints Controller Presets (CC Presets) to the console ctrlprintpresets "./my_ctrlpresets.txt" ; appends Controller Presets (CC Presets) to a file end3: endin </CsInstruments> <CsScore> f0 6000 f1 0 8192 10 1 i42 0 0.1 e </CsScore> </CsoundSynthesizer>