master track working and save preset plumbing in place

supercollider/tkam_gui.scd

@@ -1,7 +1,7 @@
 (
 var clockStringFunc, metronomeStringFunc, metronomeColorFunc, updateTransport, updateSubsection,
 buildGenerator, buildMetronome, updateSection, buildTransport, buildTempoControl, buildMasterFader, buildTrackFader,
-masterView, faderView, currentSection = 1, currentSubsection = 1;
+masterView, faderView, helpView, currentSection = 1, currentSubsection = 1;
 
 // these funcs update the elements of the transport panel
 clockStringFunc = {
@@ -162,44 +162,55 @@ buildTempoControl = {arg view;
 };
 
 
-buildMasterFader = {arg view, masterVol, masterMute, masterIndicators;
-	HLayout([
+buildMasterFader = {arg view;
+	var trackIndicators, layout, volSlider, muteButton;
+
+	trackIndicators = {LevelIndicator()} ! 2;
+
+	OSCFunc.new({arg msg;
+		{trackIndicators[0].value = msg[3].ampdb.linlin(-50, 0, 0, 1)}.defer;
+		{trackIndicators[1].value = msg[4].ampdb.linlin(-50, 0, 0, 1)}.defer
+	}, '/masterLevels_' ++ ~hash, s.addr);
+
+	layout = HLayout([
 		VLayout(
 			HLayout(
-				Slider(view).value_(0.8).action_(
-					{arg v; masterVol = v.value * 1.25; ~play.set(\masterVol, masterVol)}.inEnvir),
-				masterIndicators[0],
-				masterIndicators[1]),
-			Button(view).states_([["mute", Color.black], ["mute", Color.black, Color.grey]]).action_(
-				{arg v; masterMute = (1 - v.value).abs; ~play.set(\masterMute, masterMute)}.inEnvir),
+				volSlider = Slider(view).value_(0.8).action_(
+					{arg v; var masterVol = v.value * 1.25; ~play.set(\masterVol, masterVol)}.inEnvir),
+				trackIndicators[0],
+				trackIndicators[1]),
+			muteButton = Button(view).states_([["mute", Color.black], ["mute", Color.black, Color.grey]]).action_(
+				{arg v; var masterMute = (1 - v.value).abs; ~play.set(\masterMute, masterMute)}.inEnvir),
 			StaticText(view).string_("master").align_(\center)
-	), stretch: 2], nil)
+	), stretch: 2], nil);
+	[layout, volSlider, muteButton]
 };
 
 
-buildTrackFader = {arg view, name, index, initVal;
-	var trackIndicator;
+buildTrackFader = {arg view, name, index;
+	var trackIndicator, layout, volSlider, muteButton, panKnob;
 
 	trackIndicator = LevelIndicator();
 
 	OSCFunc.new({arg msg; {trackIndicator.value = msg[3].ampdb.linlin(-50, 0, 0, 1)}.defer},
 		'/trackLevel_' ++ index ++ "_" ++ ~hash, s.addr);
 
-	HLayout(
+	layout = HLayout(
 		VLayout(
 			HLayout(
-				Slider(view).value_(0.8).action_(
+				volSlider = Slider(view).value_(0.8).action_(
 					{arg v; var vol = v.value * 1.25; ~play.set(\vol_ ++ index, vol)}.inEnvir),
 				trackIndicator),
-			Button(view).states_([["mute", Color.black], ["mute", Color.black, Color.grey]]).action_(
-				{arg v; var mute = (1 - v.value).abs; ~play.set(\mute_ ++ index, mute)}.inEnvir).value_(initVal),
+			muteButton = Button(view).states_([["mute", Color.black], ["mute", Color.black, Color.grey]]).action_(
+				{arg v; var mute = (1 - v.value).abs; ~play.set(\mute_ ++ index, mute)}.inEnvir).value_(0),
 			VLayout(
 				StaticText(view).string_("pan").align_(\center),
-				Knob(view).action_({arg v; var pan = v.value * 2 - 1; ~play.set(\pan_ ++ index, pan)}.inEnvir).value_(0.5)
+				panKnob = Knob(view).action_({arg v; var pan = v.value * 2 - 1; ~play.set(\pan_ ++ index, pan)}.inEnvir).value_(0.5)
 			),
 			StaticText(view).string_(name).align_(\center)
 		),
-		nil)
+		nil);
+	[layout, volSlider, muteButton, panKnob]
 };
 
 
@@ -231,7 +242,7 @@ masterView = {arg win, preampBusses, accompBusses, postampBusses;
 
 
 faderView = {arg win;
-	var view, masterIndicators, trackIndicators, master, tracks;
+	var view, masterIndicators, trackIndicators, master, tracks, openButton, saveButton;
 	var partAbbr = ["*", "III", "II", "I", "accomp_I", "accomp_II", "click"];
 	var trackNames = ["*", "III", "II", "I", "accomp_I", "accomp_II", "click"];
 	var partVols, partMutes, partPans;
@@ -248,11 +259,33 @@ faderView = {arg win;
 	masterIndicators = {LevelIndicator()} ! 2;
 	trackIndicators = {LevelIndicator()} ! 6;
 
-	master = buildMasterFader.value(view, masterVol, masterMute, masterIndicators);
+	master = buildMasterFader.value(view);
 	tracks = {arg part;
-		buildTrackFader.value(view, trackNames[part], part, 0);
+		buildTrackFader.value(view, trackNames[part], part);
 	} ! 7;
-	view.layout_(HLayout(master, nil, *tracks))
+
+	openButton = Button(view).states_([["open", Color.black]]).action_({
+		Dialog.openPanel({ arg path;
+			path.postln;
+		},{
+			"cancelled".postln;
+		});
+	});
+
+	saveButton = Button(view).states_([["save", Color.black]]).action_({
+		Dialog.savePanel({ arg path;
+			path.postln;
+		},{
+			"cancelled".postln;
+		});
+	});
+
+	view.layout_(HLayout(HLayout(master[0], nil, *tracks.slice(nil, 0)), VLayout(nil, openButton, saveButton)))
+};
+
+
+helpView = {arg win;
+	TextView(win).string_(File.readAllString(~dir +/+ "tkam_readme.scd")).editable_(false);
 };
 
 
@@ -274,6 +307,6 @@ faderView = {arg win;
 			helpButton = Button().states_([["help", Color.white, Color.grey], ["help", Color.black]]).action_(
 				{tabButtonReset.value; helpButton.value = 0; tabs.index = 2 }.inEnvir).value_(1)
 		),
-		tabs = StackLayout(masterView.value(win, preampBusses, accompBusses, postampBusses), faderView.value(win)/*, helpView.value*/));
+		tabs = StackLayout(masterView.value(win, preampBusses, accompBusses, postampBusses), faderView.value(win), helpView.value(win)));
 };
 )

supercollider/tkam_musical_data_generator.scd

@@ -429,7 +429,7 @@ genAmpCurve = {arg temporalData1, temporalData2, offset1, offset2, type;
 
 	thisThread.randSeed = seed.postln;
 
-	# totalDur, section1Dur, dUnit, curLen, cadence, ultimate = [6 * 60, 2 * 60, 8.reciprocal, 0, false, false];
+	# totalDur, section1Dur, dUnit, curLen, cadence, ultimate = [2 * 60, 1 * 60, 8.reciprocal, 0, false, false];
 	# totalLen, section1Len = [(totalDur / dUnit).round(16), (section1Dur / dUnit).round(16)];
 	# modeState, temporalState, partStates = [initModeState.value, initTemporalState.value, initPartStates.value];
 	# lastCadenceTemporalData, lastCadenceState, lastSectionPoint = [nil, modeState.deepCopy, 0];

supercollider/tkam_readme.scd

@@ -0,0 +1,20 @@
+/*
+~~~~execute
+Excecute tkam_main.scd to run.
+
+
+~~~~transport tab
+The play button will always start from the beginning of the current section.
+
+The transport buttons allow you to advance by subsection (<,>) and section (<<,>>).
+
+Tempo change will only go into effect once "set tempo" button is pressed.
+
+Setting the address:port will create a pipe to recieve a message to advance the subsection externally with an OSC message '/nextSubsection. This could be used to set up a foot pedal / controller for the guitarist to advance the subsections manually.
+
+The default seed given in the application and reseeded when the "reset seed" button is pressed will generate the default music and score (as provided). Changing the seed will generate a new version with that seed once the "generate" button is pressed. After the new version is generated, new Lilypond files can be generated by pressing the "transcribe" button. This will create a cicc_score.ly file in a folder labeled "seed_[number]" which can be rendered by Lilypond. Note that the file must be rendered from that location as it dependes in files in that folder and the "includes" subfolder.
+
+
+~~~~mixer tab
+This allow invidual control of each of the sonic elements. The synthesized guitar part is automatically muted is at should only be used for audition and practice. The low accompaniment has two separate tracks in case a performer cannot play both the notes. The sonification will go to outputs 1 and 2 while the click will go to outputs 3 and 4.
+*/

supercollider/tkam_sonifier.scd

@@ -18,8 +18,8 @@ var formatPatternData;
 		var sigs, sigsPanned, masterSig, imp;
 
 		sigs = postampBusses.collect({arg bus, i; In.ar(bus) * NamedControl.kr(\vol_ ++ i, 1, 0.1)});
-		sigsPanned = sigs.collect({arg sig, i; Pan2.ar(sig * NamedControl.kr(\mute_ ++ i, 1, 0.1), NamedControl.kr(\pan_ ++ i, 0.5, 0.1))});
-		masterSig = Mix.ar(sigsPanned.drop(-1)) * NamedControl.kr("vol_master" ++ i, 1, 0.1) * NamedControl.kr("mute_master" ++ i, 1, 0.1);
+		sigsPanned = sigs.collect({arg sig, i; Pan2.ar(sig * NamedControl.kr(\mute_ ++ i, 1, 0.1), NamedControl.kr(\pan_ ++ i, 0, 0.1))});
+		masterSig = Mix.ar(sigsPanned.drop(-1)) * NamedControl.kr(\masterVol, 1, 0.1) * NamedControl.kr(\masterMute, 1, 0.1);
 
 		Out.ar(0, masterSig);
 		Out.ar(2, sigsPanned.last); //change this if you want the click to go somewhere else