removed some recipes, added instructions, comments, ascii art

master
Luka Prinčič 2018-06-30 01:03:21 +02:00
parent da99b30ae8
commit 71939cf3c7
1 changed files with 97 additions and 46 deletions

View File

@ -4,6 +4,38 @@ Copyright (c) 2018 Luka Prinčič, All rights reserved.
This program is free software distributed under This program is free software distributed under
GNU General Public Licence. See COPYING for more info. 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! // Be nice. Say hi!
postln("\n\n postln("\n\n
@ -12,15 +44,15 @@ postln("\n\n
>>> Hello. <<< >>> Hello. <<<
_ _ _ _____ ___ ___ ___ _ _ ___ _____ _ _ ___ _ ___ _ _ _ _____ ___ ___ ___ _ _ ___ _____ _ _ ___ _ ___
/_\ | \| |_ _|_ _/ __|/ _ \| \| | __| / / __| || |_ _| | | \ /_\\ | \\| |_ _|_ _/ __|/ _ \\| \\| | __| / / __| || |_ _| | | \
/ _ \| .` | | | | | (_ | (_) | .` | _| / / (__| __ || || |__| |) | / _ \\| .` | | | | | (_ | (_) | .` | _| / / (__| __ || || |__| |) |
/_/ \_\_|\_| |_| |___\___|\___/|_|\_|___/_/ \___|_||_|___|____|___/ /_/ \\_\\_|\\_| |_| |___\\___|\\___/|_|\\_|___/_/ \\___|_||_|___|____|___/
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
"); ");
Server.default.waitForBoot { Server.default.waitForBoot { // if the SC server is not yet booted, boot it
// home folder of current script // 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, { SynthDef(\Granny, {
@ -124,15 +156,17 @@ Server.default.waitForBoot {
postln("~~~ adding SynthDef: Granny ..."); postln("~~~ adding SynthDef: Granny ...");
}).add; }).add; // add to server
} }
) )
////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////
// cooking Synths // cooking Synths
// run each one separately one after the other.
@ -140,11 +174,14 @@ Server.default.waitForBoot {
( (
~act_I = Synth(\Granny, ~act_I = Synth(\Granny,
[ [
// which sample should we use?
\bufnum, ~granBfr.at(21), // "09 - PART II - Chorus.7.wav" \bufnum, ~granBfr.at(21), // "09 - PART II - Chorus.7.wav"
// fade-in, fade-out
\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin), \gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
\lpfEnv, Env([0.001, 1, 1, 0.001], [20,301,30], \exp), \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, \lpfLFOSpeed, 0.023, \lpfLFOSpeedVar, 0.041, \lpfLFOMin, 1000, \lpfLFOMax, 8000,
\posLFOSpeed, 0.020, \posLFOSpeedVar, 0.089, \posLFOMin, 0.56, \posLFOMax, 0.92 \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, ~act_III = Synth(\Granny,
[ [
\bufnum, ~granBfr.at(25), // "11 - Chorus Of The Persecutors And Persecuted.8.wav" \bufnum, ~granBfr.at(25), // "11 - Chorus Of The Persecutors And Persecuted.8.wav"
@ -251,47 +288,13 @@ Server.default.waitForBoot {
///////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////
(
// --------------------------------------------------------------------------
// Track 02 from the album - "Chorus 1 (SC)"
( // -------------------------------------------------------------------------- ~chorus1 = Synth(\Granny,
~number38 = Synth(\Granny,
[ [
\bufnum, ~granBfr.at(38), // "21 - A Spiritual Of Anger (Chorus & Bass Solo).3.wav" \bufnum, ~granBfr.at(3), // "01 - PART I - Chorus.12.wav"
\lpfLFOSpeed, 0.041, \lpfLFOMin, 700, \lpfLFOMax, 6500,
\posLFOSpeed, 0.037, \posLFOMin, 0.15, \posLFOMax, 0.9,
// 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),
\lpfLFOSpeedVar, 0.054, \posLFOSpeedVar, 0.033,
]
);
)
( // --------------------------------------------------------------------------
~number0 = Synth(\Granny,
[
\bufnum, ~granBfr.at(0), // "01 - PART I - Chorus.10.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),
\lpfEnv, Env([0.001, 1, 1, 0.001], [19,301,30], \exp),
\lpfLFOSpeedVar, 0.054, \posLFOSpeedVar, 0.033,
]
);
)
( // --------------------------------------------------------------------------
~number1 = Synth(\Granny,
[
\bufnum, ~granBfr.at(1), // "01 - PART I - Chorus.12.wav"
\lpfLFOSpeed, 0.021, \lpfLFOMin, 700, \lpfLFOMax, 6500, \lpfLFOSpeed, 0.021, \lpfLFOMin, 700, \lpfLFOMax, 6500,
\posLFOSpeed, 0.017, \posLFOMin, 0.09, \posLFOMax, 0.91, \posLFOSpeed, 0.017, \posLFOMin, 0.09, \posLFOMax, 0.91,
\gain, 0.15, \gain, 0.15,
@ -308,6 +311,54 @@ Server.default.waitForBoot {
(
// --------------------------------------------------------------------------
// Track 08 from the album - "Chorus 2 (SC)"
~number4 = Synth(\Granny,
[
\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,
// 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),
\lpfLFOSpeedVar, 0.054, \posLFOSpeedVar, 0.033,
]
);
)
(
// --------------------------------------------------------------------------
// Track 10 from the album - "The Oppressed 2 (SC)"
~number12 = Synth(\Granny,
[
\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], [15,301,30], \exp),
\lpfLFOSpeedVar, 0.054, \posLFOSpeedVar, 0.033,
]
);
)