From 71939cf3c7b338f47d6e1ee47e3d70e846aba600 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luka=20Prin=C4=8Di=C4=8D?= Date: Sat, 30 Jun 2018 01:03:21 +0200 Subject: [PATCH] removed some recipes, added instructions, comments, ascii art --- antigone.scd | 143 ++++++++++++++++++++++++++++++++++----------------- 1 file changed, 97 insertions(+), 46 deletions(-) diff --git a/antigone.scd b/antigone.scd index a2a0fba..315fb60 100644 --- a/antigone.scd +++ b/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+. 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,47 +288,13 @@ 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, - - // 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" + \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, @@ -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, + ] +); +) + + + + + +