now a proper recursive function!

release-packaging/Examples/dataset/1-learning examples/12-windowed-clustered-segmentation.scd

@@ -59,39 +59,31 @@ Routine{
 ~slices.dump{|x|~sliceDict = x;};
 )
 
+//the windowed function
 (
-Routine{
-	~indices = [0];
-	~head = 0;
-
-	~tempDict = ();
-
-	while ( {~head <= (~originalslicesarray.size - ~winSize)},
-		{
-			var step = ~winSize - 1;
-			var nbass = [];
-			var cond = Condition.new;
-			~assignments = [];
-			//run a process on ~winSize items from ~head (with an overlap of 1)
-			//copy the items to a subdataset
-			~winSize.do{|i|
-				~tempDict.put((i.asString), ~sliceDict["data"][(i+~head).asString]);//here one could curate which stats to take
-				"whichslices:%\n".postf(i+~head);
+~windowedFunct = {arg head, winSize;
+	var nbass = [], assignments = [], tempDict;
+	//check the size of everything to not overrun
+	winSize = (~originalslicesarray.size - head).min(winSize);
+	//copy the items to a subdataset from hear
+	winSize.do{|i|
+		~tempDict.put((i.asString), ~sliceDict["data"][(i+head).asString]);//here one could curate which stats to take
+		"whichslices:%\n".postf(i+head);
 	};
 	~windowDS.load(Dictionary.newFrom([\cols, 133, \data, ~tempDict]), action: {
-				"% - loaded\n".postf(~head);
+		"% - loaded\n".postf(head);
 
 		//kmeans 2 and retrieve ordered array of class assignations
 		~kmeans.fitPredict(~windowDS, ~windowLS, action: {|x|
 			nbass = x;
-					"% - fitted1: ".postf(~head); nbass.postln;
+			"% - fitted1: ".postf(head); nbass.postln;
 
 			if (nbass.includes(0.0), {
 				~kmeans.fitPredict(~windowDS, ~windowLS, {|x|
-							nbass = x; "% - fitted2: ".postf(~head); nbass.postln;
+					nbass = x; "% - fitted2: ".postf(head); nbass.postln;
 					if (nbass.includes(0.0), {
 						~kmeans.fitPredict(~windowDS, ~windowLS, {|x|
-									nbass = x; "% - fitted3: ".postf(~head); nbass.postln;
+							nbass = x; "% - fitted3: ".postf(head); nbass.postln;
 						});
 					});
 				});
@@ -99,75 +91,35 @@ Routine{
 
 			~windowLS.dump{|x|
 				~assignments = x.at("data").asSortedArray.flop[1].flatten;
-						"% - assigned ".postf(~head);
+				"% - assigned ".postf(head);
 
 				~assignments.postln;
 
-						step.do{|i|
-							if (~assignments[i+1] != ~assignments[i], {~indices= ~indices ++ (~originalslicesarray[~head+i+1])});
+				(winSize-1).do{|i|
+					if (~assignments[i+1] != ~assignments[i], {~indices= ~indices ++ (~originalslicesarray[head+i+1])});
 
 				};
-						cond.unhang;
-					};
-				});
-			});
-			cond.hang;
-			~head = ~head + step;
+				//if we still have some frames to do, do them
+				if (((head+winSize) < ~originalslicesarray.size), {
 					"-----------------".postln;
-	});
-	//leftovers (half baked, needs to run it all properly but hey, let's fix it first
-	if ( (~originalslicesarray.size - ~head) > 1, {
-		var nbass = [];
-		var cond = Condition.new;
-		~assignments = [];
-		//run a process on (a.size - ~head) items from ~head
-		//copy the items to a subdataset
-		(~originalslicesarray.size - ~head).do{|i|
-			~tempDict.put((i.asString), ~sliceDict["data"][(i+~head).asString]);//here one could curate which stats to take
-			"whichslices:%\n".postf(i+~head);
+					~windowedFunct.value(head + winSize, winSize);
+				}, {~indices = ~indices ++ (b.numFrames); "done".postln;});//if we're done close the books
 			};
-		~windowDS.load(Dictionary.newFrom([\cols, 133, \data, ~tempDict]), action: {
-			"% - loaded\n".postf(~head);
-
-			//kmeans 2 and retrieve ordered array of class assignations
-			~kmeans.fitPredict(~windowDS, ~windowLS, action: {|x|
-				nbass = x;
-				"% - fitted1: ".postf(~head); nbass.postln;
-
-				if (nbass.includes(0.0), {
-					~kmeans.fitPredict(~windowDS, ~windowLS, {|x|
-						nbass = x; "% - fitted2: ".postf(~head); nbass.postln;
-						if (nbass.includes(0.0), {
-							~kmeans.fitPredict(~windowDS, ~windowLS, {|x|
-								nbass = x; "% - fitted3: ".postf(~head); nbass.postln;
-							});
-						});
 		});
 	});
+}
+)
 
-				~windowLS.dump{|x|
-					~assignments = x.at("data").asSortedArray.flop[1].flatten;
-					"% - assigned ".postf(~head);
+//the function
 
-					~assignments.postln;
+~indices = [0];
+~tempDict = ();
 
-					(~originalslicesarray.size - ~head - 1).do{|i|
-						if (~assignments[i+1] != ~assignments[i], {~indices= ~indices ++ (~originalslicesarray[~head+i+1])});
+~windowedFunct.value(0, 4);
 
-					};
-					cond.unhang;
-				};
-			});
-		});
-		cond.hang;
-		"done".postln;
-	});
-	//add the endoffile indice to the array
-	~indices = ~indices ++ (b.numFrames);
+~indices.postln;
 
-	~indices.postln;
-}.play;
-)
+~windowDS.print
 
 {var i = 8;BufRd.ar(1,b,Line.ar(~originalslicesarray[i],~originalslicesarray[i+1],(~originalslicesarray[i+1] - ~originalslicesarray[i])/b.sampleRate, doneAction: 2))}.play;
 {var i = 4;BufRd.ar(1,b,Line.ar(~indices[i],~indices[i+1],(~indices[i+1] - ~indices[i])/b.sampleRate, doneAction: 2))}.play;
@@ -202,3 +154,4 @@ if (f.isOpen , {
 	f.close;
 });
 )
+