optionally log swarm activity to network

optimisation/swarm/swarm.sc

@@ -42,7 +42,10 @@ PSOptimisingSwarm {
 
 	//flag to stop iterator gracefuly.
 	var playing = false;
-
+
+	var <>swarmName = "swarm";
+	var netSender = nil;
+	var <netAddr = nil;
 	/*
 	Here are the variables that hold the operator functions.
 	Paths are coerced to functions at instantiation time to avoid problems with
@@ -268,6 +271,7 @@ PSOptimisingSwarm {
 			bestKnownFitnessTable[phenotype] = myBestFitness;			
 		});
 		this.updateStatistics;
+		netSender.value;
 		iterations = iterations + 1;
 	}
 	setParam {|statekey, stateval|
@@ -333,6 +337,22 @@ PSOptimisingSwarm {
 		super.free;
 		controller.free;
 	}
+	net_ {|addr|
+		netAddr = addr;
+		netAddr.isNil.if({
+			netSender = nil;
+		}, {
+			netSender = {
+				var path = "/swarm/%".format(swarmName);
+				var i = 0;
+				cookedFitnessMap.keysValuesDo({|agent,fitness|
+					netAddr.sendMsg(path, i, fitness, *(agent.chromosome));
+					i = i+1;
+				});
+			};
+		});
+
+	}
 }
 
 PSLocalOptimisingSwarm : PSOptimisingSwarm {

psosynth.scd

@@ -117,6 +117,8 @@ s.waitForBoot({
 	//~swarm.scoreCooker = #[phenosynth, score_cookers, scale_distance_to_similarity];
 	~swarm.scoreCooker = #[phenosynth, score_cookers, invert_distance_to_similarity];
 	//~swarm.scoreCooker = [\phenosynth, \score_cookers, \reverse_ranked];
+	~net = NetAddr("127.0.0.1", 57130);
+	~swarm.net_(~net);
 	~swarm.play(~control);
 	{
 		~plotState = SwarmGraph.new(~swarm);