SoundFile:toCSV method

git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@7501 a380766d-ff14-0410-b294-a243070f3f08

build/ChangeLog

@@ -1,5 +1,18 @@
 //////////// change log /////////////
 
+// user-visible changes after SC v3.2:
+
+// HEADLINES:
+
+// BUGFIXES:
+
+// OTHER ADDITIONS/IMPROVEMENTS:
+* 2008-04-04 SoundFile:toCSV - ds
+
+
+
+///////////////////////////// SuperCollider v3.2 released 2008-02-21 /////////////////////////////
+
 // user-visible changes in preparing SC v3.2, SuperCollider book release:
 
 // HEADLINES:

build/SCClassLibrary/Common/Files/SoundFile.sc

@@ -366,4 +366,37 @@ SoundFile {
 
 	}	
 
+	toCSV { |outpath, headers, delim=",", append=false, func, action|
+
+		var outfile, dataChunk;
+
+		// Prepare input
+		if(this.openRead(this.path).not){
+			^"SoundFile:toCSV could not open the sound file".error
+		};
+		dataChunk = FloatArray.newClear(this.numChannels * min(this.numFrames, 1024));
+
+		// Prepare output
+		if(outpath.isNil){	outpath = path.splitext.at(0) ++ ".csv" };
+		outfile = File(outpath, if(append, "a", "w"));
+		if(headers.notNil){
+			if(headers.isString){
+				outfile.write(headers ++ Char.nl);
+			}{
+				outfile.write(headers.join(delim) ++ Char.nl);
+			}
+		};
+
+		// Now do it
+		while{this.readData(dataChunk); dataChunk.size > 0}{
+			dataChunk.clump(this.numChannels).do{|row| 
+				outfile.write(if(func.isNil, {row}, {func.value(row)}).join(delim) ++ Char.nl)
+			};
+		};
+		outfile.close;
+		this.close;
+
+		action.value(outpath);
+	}
+
 }