add LiSaX class: extension of LiSa that allows loading of audio files

2 files changed, 17 insertions, 0 deletions

diff --git a/lib.ck b/lib.ck
index 8da23c9..e3c19c8 100644
--- a/lib.ck
+++ b/lib.ck
@@ -1,4 +1,5 @@
 /* Includes */
+Machine.add("lib/LiSaX.ck");
 Machine.add("lib/SampOsc.ck");
 Machine.add("lib/Clipper.ck");
 Machine.add("lib/Element.ck");
diff --git a/lib/LiSaX.ck b/lib/LiSaX.ck
new file mode 100644
index 0000000..7881c78
--- /dev/null
+++ b/lib/LiSaX.ck
@@ -0,0 +1,16 @@
+/*
+ * Version of LiSa that supports reading in files (like a SndBuf)
+ */
+public class LiSaX extends LiSa {
+	fun void
+	read(string file)
+	{
+		SndBuf buf;
+
+		file => buf.read;
+		buf.samples()::samp => duration;
+
+		for (0 => int i; i < buf.samples(); i++)
+			valueAt(i => buf.valueAt, i::samp);
+	}
+}