# HG changeset patch
# User Chris Cannam
# Date 1354298807 0
# Node ID 7aedeab67b08743bf5af37fe5feba99af61d10f8
# Parent  90ddb49d94c5e04bb89b6330706550974f507cfc
Misc bits

diff -r 90ddb49d94c5 -r 7aedeab67b08 audio.yeti
--- a/audio.yeti	Thu Nov 22 21:43:25 2012 +0000
+++ b/audio.yeti	Fri Nov 30 18:06:47 2012 +0000
@@ -12,6 +12,13 @@
     format = stream#getFormat();
     { stream, format } );
 
+read file n is { .format is ~AudioFormat, .stream is ~AudioInputStream } ->
+    number -> 'a =
+   (ch = file.format#getChannels();
+    b = new byte[n * ch];
+    f = new float[ch][n];
+    f);
+
 {
     openAudioFile
 }
diff -r 90ddb49d94c5 -r 7aedeab67b08 matrix.yeti
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/matrix.yeti	Fri Nov 30 18:06:47 2012 +0000
@@ -0,0 +1,10 @@
+module matrix;
+
+zeros n =
+    map \0 [1..n];
+
+matrix rows cols = 
+    array (map \(new double[cols]) [1..rows]);
+
+{ matrix }
+