Organize the folder

Algorithmic_Dynamic_Score.sc

@@ -0,0 +1,238 @@
+/*
+This contains all the classes that Algorithmic Dynamic Score is needed. Those classes are:
+
+- Score_Definition - Καθορισμός των track
+- Score_Implementation - Φόρτωση των απαραίτητων ανταποκριτών για την εκτέλεση track
+- Dests - Ομαδοποίηση διευθήνσεων που περιμένουν τα μηνύματα της αλγοριθμικής παρτιτούρας
+- Proxy_Pattern_Score - Δημιουργία κενού pattern (πυρήνας αλγοριθμικής παρτιτούρας)
+- RespTags -  Πρότυπο αυτοματοποίησης εισαγωγής ανταποκριτών (responder)
+
+- method do: arguments |title, tag, action, responder|
+
+
+@ github: "https://gist.github.com/igoumeninja/8b4bac471dc0ecbfe252"
+
+---- Example ----
+~myScore = Score_Implementation.load
+~playTrack_1 = Proxy_Pattern_Score.new;
+~playTrack_1.dests = [Dests.addr1];
+~playTrack_1.title = '/track_1';
+~playTrack_1.tags = (1..4);
+~playTrack_1.step = [1, 1, 1, 1]/1;
+~playTrack_1.loop;
+Score_Implementation.goToTrack(2)
+Score_Implementation.goToTrack(1)
+
+
+~myScoreDefinition = Score_Definition
+~myScoreDefinition.removeAllResps
+~myScoreDefinition.track_1
+~myScoreDefinition.define_Track_1_Resps
+
+
+"Load_track_1_actions".
+Score_Definition.track_1
+
+OSCFunc.trace(true)
+OSCFunc.trace(false)
+Aris Bezas 12:05 AM Feb 28, 2013
+
+
+*/
+
+Score_Definition {
+	*initClass {
+		StartUp add: {
+			~meter=0;
+			~activateChange = false;
+			this.define_Track_1_Resps;
+			this.track_1;
+			"\n* Algorithmic Dynamic Score Definition is ready to start".postln;
+		}
+	}
+	*removeAllResps {
+		~track_1_Resp_1 = RespTags.do('/track_1', 1, nil);~track_1_Resp_2 = RespTags.do('/track_1', 2, nil);
+		~track_1_Resp_3 = RespTags.do('/track_1', 3, nil);~track_1_Resp_4 = RespTags.do('/track_1', 4, nil);
+	}
+	*define_Track_1_Resps {
+		~track_1_Resp_1 = RespTags.do('/track_1', 1, nil);
+		~track_1_Resp_2 = RespTags.do('/track_1', 2, nil);
+		~track_1_Resp_3 = RespTags.do('/track_1', 3, nil);
+		~track_1_Resp_4 = RespTags.do('/track_1', 4, nil);
+
+	}
+	*remove_Track_1_Resps {
+		//~track_1_Resp.remove;
+		~track_1_Resp_1.removeResp;
+		~track_1_Resp_2.removeResp;
+		~track_1_Resp_3.removeResp;
+		~track_1_Resp_4.removeResp;
+	}
+	*track_1{
+		~track_1_Resp = OSCresponderNode(
+			nil,
+			'Load_track_1_actions',
+			{ |t,r,msg|
+				"Load_track_1_actions...".postln;
+				~track_1_Resp_1.action = {
+					"\ntrack_1:meter: ".post; ~meter.postln;
+					"beat: 1".postln;
+					NetAddr("127.0.0.1" ,12345).sendMsg("/beat",1.0);
+					case
+					// { ~meter == 0 }  { "pop".postln}
+					// { ~meter == 1 }  { "pop".postln}
+					// { ~meter == 2 }  { Dests.addr1.sendMsg("test")}
+					// { ~meter == 2 }  { \wrong }
+					// { ~meter == 3 } { \wrong }
+					// { ~meter == 4 } { \wrong }
+					// { ~meter == 5 }   { \wrong }
+					 { ~meter == 6 }   { \true };
+					~meter = ~meter + 1;
+				};
+				~track_1_Resp_2.action = {
+					"beat: 2".postln;
+					NetAddr("127.0.0.1" ,12345).sendMsg("/beat",2.0);
+					case
+					    { ~meter == 1 }   { \no }
+					    { ~meter == 2 } { \wrong }
+					    { ~meter == 3 } { \wrong }
+					    { ~meter == 4 } { \wrong }
+					    { ~meter == 5 }   { \wrong }
+					    { ~meter == 6 }   { \true };
+				};
+				~track_1_Resp_3.action = {
+					"beat: 3".postln;
+					NetAddr("127.0.0.1" ,12345).sendMsg("/beat",3.0);
+					case
+					    { ~meter == 1 }   { \no }
+					    { ~meter == 2 } { \wrong }
+					    { ~meter == 3 } { \wrong }
+					    { ~meter == 4 } { \wrong }
+					    { ~meter == 5 }   { \wrong }
+					    { ~meter == 6 }   { \true };
+				};
+				~track_1_Resp_4.action = {
+					"beat: 4".postln;
+					NetAddr("127.0.0.1" ,12345).sendMsg("/beat",4.0);
+					case
+					    { ~meter == 1 }   { \no }
+					    { ~meter == 2 } { \wrong }
+					    { ~meter == 3 } { \wrong }
+					    { ~meter == 4 } { \wrong }
+					    { ~meter == 5 }   { \wrong }
+					    { ~meter == 6 }   { \true };
+				};
+		}).add;
+	}
+}
+
+Score_Implementation{
+	*load {
+		Dests.addr1.sendMsg('Load_track_1_actions');
+		"Load_track_1_actions".postln;
+	}
+	*goToTrack { |track|
+		~activateChange = true;
+		switch ( track,
+			1, {~nextTrack = 1},
+			2, {~nextTrack = 2},
+			3, {~nextTrack = 3},
+		);
+		//this.activateChange;
+	}
+	*activateChange {
+		switch (~nextTrack,
+			1, {
+				//Score_Definition.removeAllResps;
+				//Score_Definition.define_Track_1_Resps;
+				this.play_track_1;
+				~playTrack_2.stop;
+				~playTrack_1.loop;
+			},
+			2, {
+				//Score_Definition.removeAllResps;
+				//Score_Definition.define_Track_2_Resps;
+				~playTrack_1.stop;
+				this.play_track_2;
+				~playTrack_2.loop;
+			},
+			~activateChange = false;
+		)
+	}
+
+	*play_track_1 {
+		//Score_Definition.define_Track_1_Resps;
+		~meter = 1;
+		~playTrack_1 = Proxy_Pattern_Score.new;
+		~playTrack_1.dests = [Dests.addr1];
+		~playTrack_1.title = '/track_1';
+		~playTrack_1.tags = (1..4);
+		~playTrack_1.step = [1, 1, 1, 1]/1;
+		~playTrack_1.stop;
+	}
+}
+
+Dests { classvar <>addr1, <>addr2, <>addr3;
+	*initClass {
+		StartUp.add{
+			// Error messages to Post window when I am sending to IP that doesn't exist.
+			addr1 = NetAddr("localhost", 57120);
+			addr2 = NetAddr("localhost", 12345);
+			//addr3 = NetAddr("192.127.0.4", 57140);
+		}
+	}
+}
+
+Proxy_Pattern_Score {
+	var <>num=0, <>tags, <>step=0.25, <>title, <>stepPat, <>tagPat, task, verbose = true;
+	var  <>dests, <>tag, <>tagStream, <>stepStream, <>stp2, <>x, <>times = inf;
+	loop {
+		tagPat      = PatternProxy(Pseq([nil], inf));
+		stepPat     = PatternProxy(Pseq([nil], inf));
+		tagStream   = tagPat.asStream;
+		stepStream  = stepPat.asStream;
+		task = Task({
+			times.do{
+				tagPat.source  = Pseq(tags, inf);
+				stepPat.source = Pseq(step, inf);
+				num = tags.numChannels; // count the beats
+				num.do{
+					x = tagStream.next;
+					dests do: _.sendMsg(title.asString, x); // send to all dests (\title, 1)
+					stepStream.next.wait;
+				}
+			}
+		});
+		task.start;
+	}
+	pause {
+		task.pause;
+	}
+	resume {
+		task.resume;
+	}
+	reset {
+		task.reset;
+	}
+	stop {
+		task.stop;
+	}
+}
+
+
+RespTags { var <>title, <>tag, <>action, <>responder;
+	var addResp;
+	*do { |title, tag, action, responder|
+		^super.newCopyArgs(title, tag, action, responder).addResp;
+	}
+	addResp {
+		responder = OSCresponderNode(nil, title.asString, {arg time, resp, msg;
+			msg[1].switch( tag,
+				action
+			);
+		}).add;
+	}
+	removeResp {
+		responder.remove;
+	}
+}