From 2e854bcb40d535957b589ad02e3f280e00b47865 Mon Sep 17 00:00:00 2001 From: Richard Knight Date: Mon, 16 Aug 2021 02:56:49 +0100 Subject: pre strip down --- examples/memson-t1.csd | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 examples/memson-t1.csd (limited to 'examples/memson-t1.csd') 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 @@ + + +-o/usr/tmp/tst.wav + + +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 + + + +i"scd" 0 60 + + -- cgit v1.2.3