Browse Source

Initial commit

master
Luka Prinčič 2 years ago
commit
d05cc637f1
54 changed files with 314 additions and 0 deletions
  1. +314
    -0
      antigone.scd
  2. BIN
      smp/01 - PART I - Chorus-3.wav
  3. BIN
      smp/01 - PART I - Chorus.10.wav
  4. BIN
      smp/01 - PART I - Chorus.12.wav
  5. BIN
      smp/01 - PART I - Chorus.16.wav
  6. BIN
      smp/01 - PART I - Chorus.2.wav
  7. BIN
      smp/01 - PART I - Chorus.7.wav
  8. BIN
      smp/02 - The Argument.3.wav
  9. BIN
      smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).1.wav
  10. BIN
      smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).11.wav
  11. BIN
      smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).12.wav
  12. BIN
      smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).3.wav
  13. BIN
      smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).7.wav
  14. BIN
      smp/05 - Chorus Of The Oppressed.11.wav
  15. BIN
      smp/05 - Chorus Of The Oppressed.15.wav
  16. BIN
      smp/05 - Chorus Of The Oppressed.3.wav
  17. BIN
      smp/05 - Chorus Of The Oppressed.7.wav
  18. BIN
      smp/09 - PART II - Chorus.11.wav
  19. BIN
      smp/09 - PART II - Chorus.13.wav
  20. BIN
      smp/09 - PART II - Chorus.17.wav
  21. BIN
      smp/09 - PART II - Chorus.20.wav
  22. BIN
      smp/09 - PART II - Chorus.3.wav
  23. BIN
      smp/09 - PART II - Chorus.7.wav
  24. BIN
      smp/11 - Chorus Of The Persecutors And Persecuted.10.wav
  25. BIN
      smp/11 - Chorus Of The Persecutors And Persecuted.3.wav
  26. BIN
      smp/11 - Chorus Of The Persecutors And Persecuted.5.wav
  27. BIN
      smp/11 - Chorus Of The Persecutors And Persecuted.8.wav
  28. BIN
      smp/13 - Chorus Of The Self-Righteous.12.wav
  29. BIN
      smp/13 - Chorus Of The Self-Righteous.3.wav
  30. BIN
      smp/13 - Chorus Of The Self-Righteous.7.wav
  31. BIN
      smp/13 - Chorus Of The Self-Righteous.9.wav
  32. BIN
      smp/16 - A Spiritual (Chorus & Solo).4.wav
  33. BIN
      smp/16 - A Spiritual (Chorus & Solo).7.wav
  34. BIN
      smp/17 - Scena (Bass & Alto Soli).3.wav
  35. BIN
      smp/17 - Scena (Bass & Alto Soli).7.wav
  36. BIN
      smp/19 - The Terror.10.wav
  37. BIN
      smp/19 - The Terror.3.wav
  38. BIN
      smp/19 - The Terror.7.wav
  39. BIN
      smp/21 - A Spiritual Of Anger (Chorus & Bass Solo).1.wav
  40. BIN
      smp/21 - A Spiritual Of Anger (Chorus & Bass Solo).3.wav
  41. BIN
      smp/21 - A Spiritual Of Anger (Chorus & Bass Solo).7.wav
  42. BIN
      smp/22 - The Boy Sings In His Prison.4.wav
  43. BIN
      smp/22 - The Boy Sings In His Prison.7.wav
  44. BIN
      smp/23 - The Mother.3.wav
  45. BIN
      smp/23 - The Mother.6.wav
  46. BIN
      smp/25 - A Spiritual (Chorus & Soprano Solo).3.wav
  47. BIN
      smp/26 - Part III - Chorus.1.wav
  48. BIN
      smp/26 - Part III - Chorus.5.wav
  49. BIN
      smp/28 - Scena (Bass Solo & Chorus).3.wav
  50. BIN
      smp/28 - Scena (Bass Solo & Chorus).8.wav
  51. BIN
      smp/29 - PRELUDIUM - General Ensemble.19.wav
  52. BIN
      smp/29 - PRELUDIUM - General Ensemble.4.wav
  53. BIN
      smp/29 - PRELUDIUM - General Ensemble.7.wav
  54. BIN
      smp/30 - A Spiritual (Chorus & Soli).7.wav

+ 314
- 0
antigone.scd View File

@ -0,0 +1,314 @@
(/*
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.
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
*/
// Be nice. Say hi!
postln("\n\n
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>>> Hello. <<<
█████╗ ███╗ ██╗████████╗██╗ ██████╗ ██████╗ ███╗ ██╗███████╗
██╔══██╗████╗ ██║╚══██╔══╝██║██╔════╝ ██╔═══██╗████╗ ██║██╔════╝
███████║██╔██╗ ██║ ██║ ██║██║ ███╗██║ ██║██╔██╗ ██║█████╗
██╔══██║██║╚██╗██║ ██║ ██║██║ ██║██║ ██║██║╚██╗██║██╔══╝
██║ ██║██║ ╚████║ ██║ ██║╚██████╔╝╚██████╔╝██║ ╚████║███████╗
╚═╝ ╚═╝╚═╝ ╚═══╝ ╚═╝ ╚═╝ ╚═════╝ ╚═════╝ ╚═╝ ╚═══╝╚══════╝
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
");
Server.default.waitForBoot {
// home folder of current script
var dir = PathName(thisProcess.nowExecutingPath).pathOnly;
// load samples
~granSmp = PathName(dir +/+ "smp/").files;
~granBfrList = List();
~granBfr = List();
postln(" \n~~~ Loading samples for granular synthesis ..." );
~granSmp.do({ |item, i|
postln(" " + i + "" + item.folderName +/+ item.fileName);
~granBfrList.add(item.fileName);
~granBfr.add(Buffer.readChannel(s, item.fullPath, channels:[0])); // [0] forces mono!
});
//////////////////////////////////////////////////////////////////////////////////////
// granulator "Granny" definition
SynthDef(\Granny, {
arg bufnum,
freq = 200, fvar = 0.05,
dur = 0.3, durvar = 0.01,
pitch = 1, pitchvar = 0.001,
width = 0.4,
gain = 0.2,
reverb = 0.5,
posvar = 0.05,
lpfLFOSpeed = 0.013,
lpfLFOSpeedVar = 0.1,
lpfLFOMin = 400,
lpfLFOMax = 5000,
posLFOSpeed = 0.005,
posLFOSpeedVar = 0.1,
posLFOMin = 0,
posLFOMax = 1
;
// variables
var signal,
lpfFreq = SinOsc.kr(freq:lpfLFOSpeed * SinOsc.kr(freq:lpfLFOSpeedVar, mul:0.5, add:1)).linlin(
inMin:-1, inMax:1, outMin:lpfLFOMin, outMax:lpfLFOMax),
pos = SinOsc.kr(freq:posLFOSpeed * SinOsc.kr(freq:posLFOSpeedVar, mul:0.5, add:1)).linlin(
inMin:-1, inMax:1, outMin:posLFOMin, outMax:posLFOMax),
// envelopes
gainEnv = Env.newClear(4),
gainEnvCtl = \gainEnv.kr(gainEnv.asArray),
lpfEnv = Env.newClear(4),
lpfEnvCtl = \lpfEnv.kr(lpfEnv.asArray)
;
// main granular synthesis generator: GrainBuf uGen
signal = GrainBuf.ar(
numChannels: 2, // stereo
trigger: Impulse.kr(freq + (freq * (fvar * LFNoise2.kr(freq)))), // a UGen
dur: dur + (durvar * LFNoise2.kr(freq)), // in seconds
sndbuf: bufnum,
rate: pitch + (pitchvar * LFNoise2.kr(5)), // pitch
pos: pos + (posvar * LFNoise2.kr(freq)), // position 0-1
interp: 2, // interpolation for pitchshifting
pan: LFNoise1.kr(10).range(width.neg, width),
maxGrains: 512,
mul: gain,
add: 0
);
// low pass filter
signal = LPF.ar(
in: signal,
// prevent filter clicks by lagging low pass filter freq changes
freq: Lag.kr(lpfFreq, 0.2)
* EnvGen.kr(envelope: lpfEnvCtl, gate: 1)); // filter frequency envelope
// fade in, sustain, fade out
signal = signal * EnvGen.kr(envelope: gainEnvCtl, gate: 1, doneAction: 2);
// reverb
signal = GVerb.ar(
in: signal,
roomsize: 243,
revtime: 6,
damping: 1,
inputbw: 1,
drylevel: -6.dbamp,
earlyreflevel: reverb,
taillevel: 0.dbamp
);
Out.ar(0, signal);
postln("~~~ adding SynthDef: Granny ...");
}).add;
}
)
//////////////////////////////////////////////////////////////////////////////////////
// Synths
// ACT I
(
~act_I = Synth(\Granny,
[
\bufnum, ~granBfr.at(21), // "09 - PART II - Chorus.7.wav"
\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
\lpfEnv, Env([0.001, 1, 1, 0.001], [20,301,30], \exp),
\lpfLFOSpeed, 0.023, \lpfLFOSpeedVar, 0.041, \lpfLFOMin, 1000, \lpfLFOMax, 8000,
\posLFOSpeed, 0.020, \posLFOSpeedVar, 0.089, \posLFOMin, 0.56, \posLFOMax, 0.92
]
);
)
( // ACT II --------------------------------------------------------------------------
~act_II = Synth(\Granny,
[
\bufnum, ~granBfr.at(43), // "23 - The Mother.6.wav"
\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
\lpfEnv, Env([0.001, 1, 1, 0.001], [19,301,30], \exp),
\lpfLFOSpeed, 0.013, \lpfLFOSpeedVar, 0.041, \lpfLFOMin, 1000, \lpfLFOMax, 4000,
\posLFOSpeed, 0.020, \posLFOSpeedVar, 0.089, \posLFOMin, 0.25, \posLFOMax, 0.90 ,
]
);
)
( // ACT IIb --------------------------------------------------------------------------
~act_IIb = Synth(\Granny,
[
\bufnum, ~granBfr.at(28), // "13 - Chorus Of The Self-Righteous.7.wav"
\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
\lpfEnv, Env([0.001, 1, 1, 0.001], [19,301,30], \exp),
\lpfLFOSpeed, 0.013, \lpfLFOSpeedVar, 0.054, \lpfLFOMin, 1000, \lpfLFOMax, 2000,
\posLFOSpeed, 0.057, \posLFOSpeedVar, 0.033, \posLFOMin, 0.1, \posLFOMax, 0.6,
]
);
)
( // ACT III (and ACT VII) ------------------------------------------------------------
~act_III = Synth(\Granny,
[
\bufnum, ~granBfr.at(25), // "11 - Chorus Of The Persecutors And Persecuted.8.wav"
\pitch, 0.95,
\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
\lpfEnv, Env([0.001, 1, 1, 0.001], [19,301,30], \exp),
\lpfLFOSpeed, 0.063, \lpfLFOSpeedVar, 0.054, \lpfLFOMin, 1500, \lpfLFOMax, 6000,
\posLFOSpeed, 0.037, \posLFOSpeedVar, 0.033, \posLFOMin, 0.1, \posLFOMax, 0.8,
]
);
)
( // ACT IV --------------------------------------------------------------------------
~act_IV = Synth(\Granny,
[
\bufnum, ~granBfr.at(45), // "26 - Part III - Chorus.1.wav"
\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
\lpfEnv, Env([0.001, 1, 1, 0.001], [19,301,30], \exp),
\lpfLFOSpeed, 0.009, \lpfLFOSpeedVar, 0.054, \lpfLFOMin, 1000, \lpfLFOMax, 6000,
\posLFOSpeed, 0.037, \posLFOSpeedVar, 0.033, \posLFOMin, 0.35, \posLFOMax, 0.95,
]
);
)
( // ACT V --------------------------------------------------------------------------
~act_V = Synth(\Granny,
[
\bufnum, ~granBfr.at(51), // "29 - PRELUDIUM - General Ensemble.7.wav"
\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
\lpfEnv, Env([0.001, 1, 1, 0.001], [19,301,30], \exp),
\lpfLFOSpeed, 0.009, \lpfLFOSpeedVar, 0.054, \lpfLFOMin, 2000, \lpfLFOMax, 9000,
\posLFOSpeed, 0.037, \posLFOSpeedVar, 0.033, \posLFOMin, 0.05, \posLFOMax, 0.55,
]
);
)
( // ACT VI --------------------------------------------------------------------------
~act_VI = Synth(\Granny,
[
\bufnum, ~granBfr.at(48), // "28 - Scena (Bass Solo & Chorus).8.wav"
\gainEnv, Env([0, 1, 1, 0], [1,320,40], \lin),
\lpfEnv, Env([0.001, 1, 1, 0.001], [19,301,30], \exp),
\lpfLFOSpeed, 0.031, \lpfLFOSpeedVar, 0.054, \lpfLFOMin, 700, \lpfLFOMax, 1500,
\posLFOSpeed, 0.037, \posLFOSpeedVar, 0.033, \posLFOMin, 0.15, \posLFOMax, 0.9,
]
);
)
/////////////////////////////////////////////////////////////////////////////////////
( // --------------------------------------------------------------------------
~number38 = 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"
\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,
]
);
)

BIN
smp/01 - PART I - Chorus-3.wav View File


BIN
smp/01 - PART I - Chorus.10.wav View File


BIN
smp/01 - PART I - Chorus.12.wav View File


BIN
smp/01 - PART I - Chorus.16.wav View File


BIN
smp/01 - PART I - Chorus.2.wav View File


BIN
smp/01 - PART I - Chorus.7.wav View File


BIN
smp/02 - The Argument.3.wav View File


BIN
smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).1.wav View File


BIN
smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).11.wav View File


BIN
smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).12.wav View File


BIN
smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).3.wav View File


BIN
smp/03 - INTERLUDIUM - Scena (Chorus & Alto Solo).7.wav View File


BIN
smp/05 - Chorus Of The Oppressed.11.wav View File


BIN
smp/05 - Chorus Of The Oppressed.15.wav View File


BIN
smp/05 - Chorus Of The Oppressed.3.wav View File


BIN
smp/05 - Chorus Of The Oppressed.7.wav View File


BIN
smp/09 - PART II - Chorus.11.wav View File


BIN
smp/09 - PART II - Chorus.13.wav View File


BIN
smp/09 - PART II - Chorus.17.wav View File


BIN
smp/09 - PART II - Chorus.20.wav View File


BIN
smp/09 - PART II - Chorus.3.wav View File


BIN
smp/09 - PART II - Chorus.7.wav View File


BIN
smp/11 - Chorus Of The Persecutors And Persecuted.10.wav View File


BIN
smp/11 - Chorus Of The Persecutors And Persecuted.3.wav View File


BIN
smp/11 - Chorus Of The Persecutors And Persecuted.5.wav View File


BIN
smp/11 - Chorus Of The Persecutors And Persecuted.8.wav View File


BIN
smp/13 - Chorus Of The Self-Righteous.12.wav View File


BIN
smp/13 - Chorus Of The Self-Righteous.3.wav View File


BIN
smp/13 - Chorus Of The Self-Righteous.7.wav View File


BIN
smp/13 - Chorus Of The Self-Righteous.9.wav View File


BIN
smp/16 - A Spiritual (Chorus & Solo).4.wav View File


BIN
smp/16 - A Spiritual (Chorus & Solo).7.wav View File


BIN
smp/17 - Scena (Bass & Alto Soli).3.wav View File


BIN
smp/17 - Scena (Bass & Alto Soli).7.wav View File


BIN
smp/19 - The Terror.10.wav View File


BIN
smp/19 - The Terror.3.wav View File


BIN
smp/19 - The Terror.7.wav View File


BIN
smp/21 - A Spiritual Of Anger (Chorus & Bass Solo).1.wav View File


BIN
smp/21 - A Spiritual Of Anger (Chorus & Bass Solo).3.wav View File


BIN
smp/21 - A Spiritual Of Anger (Chorus & Bass Solo).7.wav View File


BIN
smp/22 - The Boy Sings In His Prison.4.wav View File


BIN
smp/22 - The Boy Sings In His Prison.7.wav View File


BIN
smp/23 - The Mother.3.wav View File


BIN
smp/23 - The Mother.6.wav View File


BIN
smp/25 - A Spiritual (Chorus & Soprano Solo).3.wav View File


BIN
smp/26 - Part III - Chorus.1.wav View File


BIN
smp/26 - Part III - Chorus.5.wav View File


BIN
smp/28 - Scena (Bass Solo & Chorus).3.wav View File


BIN
smp/28 - Scena (Bass Solo & Chorus).8.wav View File


BIN
smp/29 - PRELUDIUM - General Ensemble.19.wav View File


BIN
smp/29 - PRELUDIUM - General Ensemble.4.wav View File


BIN
smp/29 - PRELUDIUM - General Ensemble.7.wav View File


BIN
smp/30 - A Spiritual (Chorus & Soli).7.wav View File


Loading…
Cancel
Save