diff options
| author | Richard Knight <q@1bpm.net> | 2021-08-16 02:56:49 +0100 |
|---|---|---|
| committer | Richard Knight <q@1bpm.net> | 2021-08-16 02:56:49 +0100 |
| commit | 2e854bcb40d535957b589ad02e3f280e00b47865 (patch) | |
| tree | 8fe2abbc86130af2d2ff74bbce943a68f2ec4c6d /examples/memson-t1.csd | |
| download | csound-datacore-2e854bcb40d535957b589ad02e3f280e00b47865.tar.gz csound-datacore-2e854bcb40d535957b589ad02e3f280e00b47865.tar.bz2 csound-datacore-2e854bcb40d535957b589ad02e3f280e00b47865.zip | |
pre strip down
Diffstat (limited to 'examples/memson-t1.csd')
| -rw-r--r-- | examples/memson-t1.csd | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/examples/memson-t1.csd b/examples/memson-t1.csd new file mode 100644 index 0000000..bd9ee4c --- /dev/null +++ b/examples/memson-t1.csd @@ -0,0 +1,48 @@ +<CsoundSynthesizer> +<CsOptions> +-o/usr/tmp/tst.wav +</CsOptions> +<CsInstruments> +sr = 44100 +kr = 441 +nchnls = 2 +0dbfs = 1 +seed 0 + + +instr 1 + idata[] memps + ipid = idata[int(random(0, lenarray(idata)-1))] + kr1 line 0, p3, 1 + kr2 line 0, p3, 1 + ;a1 memson2 ipid, 0.4, 0.5; kr2 + a1 memson ipid, 0;kr1 + a1 dcblock a1*0.1 + anull init 0 + if (p4 == 0) then + outs a1, anull + else + outs anull, a1 + endif + +endin + +instr scd + itime = 0 + ilen = 10 + while (itime < p3) do + index = 0 + while (index < 3) do + event_i "i", 1, itime, ilen, 0 + event_i "i", 1, itime, ilen, 1 + index += 1 + od + itime += ilen + od +endin + +</CsInstruments> +<CsScore> +i"scd" 0 60 +</CsScore> +</CsoundSynthesizer> |