removed some recipes, added instructions, comments, ascii art

antigone.scd

@@ -4,6 +4,38 @@ Copyright (c) 2018 Luka Prinčič, All rights reserved.
 This program is free software distributed under
 GNU General Public Licence. See COPYING for more info.
 - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+This is source code to Antigone/Child music release and
+soundtrack to the stage piece by Matija Ferlin "Staging
+a Play: Antigone" by Luka Prinčič. It replicates 6
+tracks from the album and 6 tracks from the stage show.
+
+If you openned this file in SuperCollider IDE, there are
+two steps you have to do:
+
+PART I:
+Place the cursos anywhere between top parenthesis
+and the closing one, which is the one above the line
+that sais "Cooking Synths". In fact your cursor might
+already at the begining of this file, which means you can
+press CTRL+RETURN to run this part of code - booting and
+preparing server. The code will flash, there is no sound
+yet.)
+
+PART II:
+Scroll down to "Cooking Synths" and place the cursor inside
+the first block (ACT I), and press CTRL+RETURN again. The
+code will flash and slowly the sound should come in. If not,
+check with CTRL+M to see meters and SC output visualy.
+The piece will run out in about 5 minutes. Or you can
+always stop it with CTRL+<PERIOD>. And run the next block.
+
+Then play with parameters, break the code, start again.
+Make music!
+
+
+
+
 */
 // Be nice. Say hi!
 postln("\n\n
@@ -12,15 +44,15 @@ postln("\n\n
 >>> Hello.                                                        <<<
 
     _   _  _ _____ ___ ___  ___  _  _ ___   _____ _  _ ___ _    ___
-   /_\ | \| |_   _|_ _/ __|/ _ \| \| | __| / / __| || |_ _| |  |   \
-  / _ \| .` | | |  | | (_ | (_) | .` | _| / / (__| __ || || |__| |) |
- /_/ \_\_|\_| |_| |___\___|\___/|_|\_|___/_/ \___|_||_|___|____|___/
+   /_\\ | \\| |_   _|_ _/ __|/ _ \\| \\| | __| / / __| || |_ _| |  |   \
+  / _ \\| .` | | |  | | (_ | (_) | .` | _| / / (__| __ || || |__| |) |
+ /_/ \\_\\_|\\_| |_| |___\\___|\\___/|_|\\_|___/_/ \\___|_||_|___|____|___/
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 
 ");
 
-Server.default.waitForBoot {
+Server.default.waitForBoot { // if the SC server is not yet booted, boot it
 
 
 	// home folder of current script
@@ -41,7 +73,7 @@ Server.default.waitForBoot {
 
 
 	//////////////////////////////////////////////////////////////////////////////////////
-	// granulator "Granny" definition - basic recipe for the cake
+	// granulator "Granny" synth definition - basic recipe for the cake
 
 	SynthDef(\Granny, {
 
@@ -124,15 +156,17 @@ Server.default.waitForBoot {
 
 		postln("~~~ adding SynthDef: Granny ...");
 
-	}).add;
+	}).add; // add to server
 
 
 }
+
 )
 
 
 //////////////////////////////////////////////////////////////////////////////////////
 // cooking Synths
+// run each one separately one after the other.
 
 
 
@@ -140,11 +174,14 @@ Server.default.waitForBoot {
 (
 ~act_I = Synth(\Granny,
 	[
+		// which sample should we use?
 		\bufnum, ~granBfr.at(21), // "09 - PART II - Chorus.7.wav"
 
+		// fade-in, fade-out
 		\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
 		\lpfEnv,  Env([0.001, 1, 1, 0.001], [20,301,30], \exp),
 
+		// LFOSpeed is the frequency of LF oscilator, then variation and min/max points
 		\lpfLFOSpeed, 0.023, \lpfLFOSpeedVar, 0.041, \lpfLFOMin, 1000, \lpfLFOMax, 8000,
 		\posLFOSpeed, 0.020, \posLFOSpeedVar, 0.089, \posLFOMin, 0.56, \posLFOMax, 0.92
 	]
@@ -183,7 +220,7 @@ Server.default.waitForBoot {
 );
 )
 
-( //  ACT III (and ACT VII)  ------------------------------------------------------------
+( //  ACT III (and ACT VII!)  ------------------------------------------------------------
 ~act_III = Synth(\Granny,
 	[
 		\bufnum, ~granBfr.at(25), // "11 - Chorus Of The Persecutors And Persecuted.8.wav"
@@ -251,13 +288,16 @@ Server.default.waitForBoot {
 /////////////////////////////////////////////////////////////////////////////////////
 
 
+(
+// --------------------------------------------------------------------------
+// Track 02 from the album - "Chorus 1 (SC)"
 
-( //  --------------------------------------------------------------------------
-~number38 = Synth(\Granny,
+~chorus1 = Synth(\Granny,
 	[
-		\bufnum, ~granBfr.at(38), // "21 - A Spiritual Of Anger (Chorus & Bass Solo).3.wav"
-		\lpfLFOSpeed, 0.041, \lpfLFOMin, 700,  \lpfLFOMax, 6500,
-		\posLFOSpeed, 0.037, \posLFOMin, 0.15, \posLFOMax, 0.9,
+		\bufnum, ~granBfr.at(3), // "01 - PART I - Chorus.12.wav"
+		\lpfLFOSpeed, 0.021, \lpfLFOMin, 700,  \lpfLFOMax, 6500,
+		\posLFOSpeed, 0.017, \posLFOMin, 0.09, \posLFOMax, 0.91,
+		\gain, 0.15,
 
 		// fade-in, fade-out
 		\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
@@ -270,10 +310,14 @@ Server.default.waitForBoot {
 
 
 
-( //  --------------------------------------------------------------------------
-~number0 = Synth(\Granny,
+
+(
+//  --------------------------------------------------------------------------
+// Track 08 from the album - "Chorus 2 (SC)"
+
+~number4 = Synth(\Granny,
 	[
-		\bufnum, ~granBfr.at(0), // "01 - PART I - Chorus.10.wav"
+		\bufnum, ~granBfr.at(4), // "01 - PART I - Chorus.3.wav"
 		\lpfLFOSpeed, 0.021, \lpfLFOMin, 700,  \lpfLFOMax, 6500,
 		\posLFOSpeed, 0.017, \posLFOMin, 0.09, \posLFOMax, 0.91,
 		\gain, 0.15,
@@ -288,17 +332,22 @@ Server.default.waitForBoot {
 )
 
 
-( //  --------------------------------------------------------------------------
-~number1 = Synth(\Granny,
+
+
+(
+//  --------------------------------------------------------------------------
+// Track 10 from the album - "The Oppressed 2 (SC)"
+
+~number12 = Synth(\Granny,
 	[
-		\bufnum, ~granBfr.at(1), // "01 - PART I - Chorus.12.wav"
-		\lpfLFOSpeed, 0.021, \lpfLFOMin, 700,  \lpfLFOMax, 6500,
-		\posLFOSpeed, 0.017, \posLFOMin, 0.09, \posLFOMax, 0.91,
-		\gain, 0.15,
+		\bufnum, ~granBfr.at(12), //  "05 - Chorus Of The Oppressed.11.wav"
+		\lpfLFOSpeed, 0.015, \lpfLFOMin, 700,  \lpfLFOMax, 5000,
+		\posLFOSpeed, 0.01, \posLFOMin, 0.05, \posLFOMax, 0.95,
+		\gain, 0.15, \pitch, 0.80,
 
 		// fade-in, fade-out
 		\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
-		\lpfEnv,  Env([0.001, 1, 1, 0.001], [19,301,30], \exp),
+		\lpfEnv,  Env([0.001, 1, 1, 0.001], [15,301,30], \exp),
 
 		\lpfLFOSpeedVar, 0.054, \posLFOSpeedVar, 0.033,
 	]
@@ -313,3 +362,5 @@ Server.default.waitForBoot {
 
 
 
+
+