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-fltk.csd | 44 +++++++++++++++++++++++++++++++++++++++++ examples/memson-fltk.csd~ | 44 +++++++++++++++++++++++++++++++++++++++++ examples/memson-fltk2.csd | 46 +++++++++++++++++++++++++++++++++++++++++++ examples/memson-fltk2.csd~ | 46 +++++++++++++++++++++++++++++++++++++++++++ examples/memson-t1.csd | 48 +++++++++++++++++++++++++++++++++++++++++++++ examples/memson-t2.csd | 30 ++++++++++++++++++++++++++++ examples/memson-t3.csd | 28 ++++++++++++++++++++++++++ examples/noise.pvx | Bin 0 -> 797836 bytes 8 files changed, 286 insertions(+) create mode 100644 examples/memson-fltk.csd create mode 100644 examples/memson-fltk.csd~ create mode 100644 examples/memson-fltk2.csd create mode 100644 examples/memson-fltk2.csd~ create mode 100644 examples/memson-t1.csd create mode 100644 examples/memson-t2.csd create mode 100644 examples/memson-t3.csd create mode 100644 examples/noise.pvx (limited to 'examples') diff --git a/examples/memson-fltk.csd b/examples/memson-fltk.csd new file mode 100644 index 0000000..44e80a8 --- /dev/null +++ b/examples/memson-fltk.csd @@ -0,0 +1,44 @@ + + +-odac + + +sr = 44100 +kr = 441 +nchnls = 2 +0dbfs = 1 +seed 0 + +FLpanel "memread", 640, 640 + gkx, gky, ihx, ihy FLjoy "Memory", 0, 1, 0, 1, 0, 0, -1, -1, 400, 400, 10, 10 + gilabel FLbox "No PID", 1, 11, 14, 600, 50, 10, 450 + gkpv1, ibt FLbutton "PVX", 1, 0, 2, 50, 20, 450, 10, -1 +FLpanelEnd +FLrun + +instr 1 + idata[] memps + ipid = idata[int(random(0, lenarray(idata)-1))] + Sname = sprintf("%s (%d)", mempsname(ipid), ipid) + FLsetText Sname, gilabel + a1 memson ipid, gkx, gky, 44100, 1 + a1 dcblock a1 + if (gkpv1 == 1) then + ir = 512 + kstens = abs(oscil(0.7, 5)) + 1.5 + f1 pvsanal a1, ir, ir/4, ir, 1 + f2 pvstencil f1, 0, kstens, 1 + a1 pvsynth f2 + endif + a1 *= 0.1 + outs a1, a1 +endin + + + + +f1 0 512 -43 "noise.pvx" 0 + +i1 0 3600 + + diff --git a/examples/memson-fltk.csd~ b/examples/memson-fltk.csd~ new file mode 100644 index 0000000..93d84ba --- /dev/null +++ b/examples/memson-fltk.csd~ @@ -0,0 +1,44 @@ + + +-odac + + +sr = 44100 +kr = 441 +nchnls = 2 +0dbfs = 1 +seed 0 + +FLpanel "memread", 640, 640 + gkx, gky, ihx, ihy FLjoy "Memory", 0, 1, 0, 1, 0, 0, -1, -1, 400, 400, 10, 10 + gilabel FLbox "No PID", 1, 11, 14, 600, 50, 10, 450 + gkpv1, ibt FLbutton "PVX", 1, 0, 2, 50, 20, 450, 10, -1 +FLpanelEnd +FLrun + +instr 1 + idata[] memps + ipid = idata[int(random(0, lenarray(idata)-1))] + Sname = sprintf("%s (%d)", mempsname(ipid), ipid) + FLsetText Sname, gilabel + a1 memson ipid, gkx, gky, 44100, 1 + a1 dcblock a1 + if (gkpv1 == 1) then + ir = 512 + kstens = abs(oscil(0.7, 5)) + 0.9 + f1 pvsanal a1, ir, ir/4, ir, 1 + f2 pvstencil f1, 0, kstens, 1 + a1 pvsynth f2 + endif + a1 *= 0.1 + outs a1, a1 +endin + + + + +f1 0 512 -43 "noise.pvx" 0 + +i1 0 3600 + + diff --git a/examples/memson-fltk2.csd b/examples/memson-fltk2.csd new file mode 100644 index 0000000..a4beb8a --- /dev/null +++ b/examples/memson-fltk2.csd @@ -0,0 +1,46 @@ + + +-odac + + +sr = 44100 +kr = 441 +nchnls = 2 +0dbfs = 1 +seed 0 + +FLpanel "memread", 640, 640 + gkx, gky, ihx, ihy FLjoy "Memory", 0, 1, 0, 1, 0, 0, -1, -1, 400, 400, 10, 10 + gilabel FLbox "No PID", 1, 11, 14, 600, 50, 10, 450 + gkpv1, ibt FLbutton "PVX", 1, 0, 2, 50, 20, 450, 10, -1 +FLpanelEnd +FLrun + +instr 1 + idata[] memps + ipid = idata[int(random(0, lenarray(idata)-1))] + Sname = sprintf("%s (%d)", mempsname(ipid), ipid) + FLsetText Sname, gilabel + ifn mem2tab ipid, 1 + aindex lphasor 1 + a1 table aindex, ifn, 1 + a1 dcblock a1 + if (gkpv1 == 1) then + ir = 512 + kstens = abs(oscil(0.7, 5)) + 1.5 + f1 pvsanal a1, ir, ir/4, ir, 1 + f2 pvstencil f1, 0, kstens, 1 + a1 pvsynth f2 + endif + a1 *= 0.1 + outs a1, a1 +endin + + + + +f1 0 512 -43 "noise.pvx" 0 + +i1 0 3600 + + diff --git a/examples/memson-fltk2.csd~ b/examples/memson-fltk2.csd~ new file mode 100644 index 0000000..9f6eaab --- /dev/null +++ b/examples/memson-fltk2.csd~ @@ -0,0 +1,46 @@ + + +-odac + + +sr = 44100 +kr = 441 +nchnls = 2 +0dbfs = 1 +seed 0 + +FLpanel "memread", 640, 640 + gkx, gky, ihx, ihy FLjoy "Memory", 0, 1, 0, 1, 0, 0, -1, -1, 400, 400, 10, 10 + gilabel FLbox "No PID", 1, 11, 14, 600, 50, 10, 450 + gkpv1, ibt FLbutton "PVX", 1, 0, 2, 50, 20, 450, 10, -1 +FLpanelEnd +FLrun + +instr 1 + idata[] memps + ipid = idata[int(random(0, lenarray(idata)-1))] + Sname = sprintf("%s (%d)", mempsname(ipid), ipid) + FLsetText Sname, gilabel + ifn mem2tab ipid, 1 + aindex 1 + a1 table aindex, ifn, 1 + a1 dcblock a1 + if (gkpv1 == 1) then + ir = 512 + kstens = abs(oscil(0.7, 5)) + 1.5 + f1 pvsanal a1, ir, ir/4, ir, 1 + f2 pvstencil f1, 0, kstens, 1 + a1 pvsynth f2 + endif + a1 *= 0.1 + outs a1, a1 +endin + + + + +f1 0 512 -43 "noise.pvx" 0 + +i1 0 3600 + + 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 + + diff --git a/examples/memson-t2.csd b/examples/memson-t2.csd new file mode 100644 index 0000000..c732d1e --- /dev/null +++ b/examples/memson-t2.csd @@ -0,0 +1,30 @@ + + +-o/usr/tmp/tst.wav + + +sr = 48000 +kr = 4800 +nchnls = 2 +0dbfs = 1 +seed 0 + + +instr 1 + idata[] memps + ipid = idata[int(random(0, lenarray(idata)-1))] + print ipid + 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 + outs a1, a1 +endin + + + + +i1 0 60 + + diff --git a/examples/memson-t3.csd b/examples/memson-t3.csd new file mode 100644 index 0000000..81b9cad --- /dev/null +++ b/examples/memson-t3.csd @@ -0,0 +1,28 @@ + + +-odac + + +sr = 44100 +kr = 441 +nchnls = 2 +0dbfs = 1 +seed 0 + + +instr 1 + ips[] memps + ipid = ips[int(random(0, lenarray(ips)-1))] + ifn mem2tab ipid, 1 + + a1 loscil 1, 1, ifn, 1 + a1 dcblock a1*0.1 + + outs a1, a1 +endin + + + +i1 0 60 + + diff --git a/examples/noise.pvx b/examples/noise.pvx new file mode 100644 index 0000000..91bb0ce Binary files /dev/null and b/examples/noise.pvx differ -- cgit v1.2.3