pre strip down

8 files changed, 286 insertions, 0 deletions

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 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+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
+
+
+</CsInstruments>
+<CsScore>
+f1 0 512 -43 "noise.pvx" 0 
+
+i1 0 3600
+</CsScore>
+</CsoundSynthesizer>
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 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+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
+
+
+</CsInstruments>
+<CsScore>
+f1 0 512 -43 "noise.pvx" 0 
+
+i1 0 3600
+</CsScore>
+</CsoundSynthesizer>
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 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+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
+
+
+</CsInstruments>
+<CsScore>
+f1 0 512 -43 "noise.pvx" 0 
+
+i1 0 3600
+</CsScore>
+</CsoundSynthesizer>
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 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+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
+
+
+</CsInstruments>
+<CsScore>
+f1 0 512 -43 "noise.pvx" 0 
+
+i1 0 3600
+</CsScore>
+</CsoundSynthesizer>
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>
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 @@
+<CsoundSynthesizer>
+<CsOptions>
+-o/usr/tmp/tst.wav
+</CsOptions>
+<CsInstruments>
+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
+
+
+</CsInstruments>
+<CsScore>
+i1 0 60
+</CsScore>
+</CsoundSynthesizer>
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 @@
+<CsoundSynthesizer>
+<CsOptions>
+-odac
+</CsOptions>
+<CsInstruments>
+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
+
+</CsInstruments>
+<CsScore>
+i1 0 60
+</CsScore>
+</CsoundSynthesizer>
diff --git a/examples/noise.pvx b/examples/noise.pvx
new file mode 100644
index 0000000..91bb0ce
--- /dev/null
+++ b/examples/noise.pvx