From d42ddb3724a5b6751130de8d4071d8bf40bbe19f Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Tue, 21 Jun 2022 19:39:07 +0200 Subject: [PATCH] algorythm: REPEAT --- live/boeuf/algorythm/first_jam.tidal | 113 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/boeuf/algorythm/jolene.tidal | 38 ++++++++++++++++++++++++++++++++++++++ live/boeuf/algorythm/lady.tidal | 51 +++++++++++++++++++++++++++++++++------------------ live/boeuf/algorythm/toxic.tidal | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++ live/boeuf/algorythm/what_you_wont_do_for_love.tidal | 16 ++++++++++++++++ live/boeuf/algorythms/first_jam.tidal | 128 -------------------------------------------------------------------------------------------------------------------------------- 6 files changed, 253 insertions(+), 146 deletions(-) create mode 100644 live/boeuf/algorythm/first_jam.tidal create mode 100644 live/boeuf/algorythm/jolene.tidal create mode 100644 live/boeuf/algorythm/toxic.tidal create mode 100644 live/boeuf/algorythm/what_you_wont_do_for_love.tidal delete mode 100644 live/boeuf/algorythms/first_jam.tidal diff --git a/live/boeuf/algorythm/first_jam.tidal b/live/boeuf/algorythm/first_jam.tidal new file mode 100644 index 0000000..1ff70d9 --- /dev/null +++ b/live/boeuf/algorythm/first_jam.tidal @@ -0,0 +1,113 @@ +-- Lady +do +-- resetCycles +setcps (120/60/4) +let gF = midiDJF "^49" 200 9800 0 2000 +let g = (gF) +d1 $ g + $ fix (|* gain 0.8) "jazz" + $ midiOn "^41" (struct "t t t >") + $ "[drum]" + # midiG' "^78" 0 0.7 +d2 $ g + $ midiOn "^43" (fast "<2!7 <4 8>>") + $ "~ snare:20" + # midiG' "^79" 0 0.6 +d3 $ g -- Drumroll + $ midiOn "^44" (fast 2) + $ "drum:2*<8!3 <16 [16 <8 32>]>>" + # midiG' "^80" 0 0.8 +d4 $ g -- BASS/Guitar + $ superimpose ((|* gain 0.8) . struct "t(5,8)" . arp ">") + $ note ("<[cs6, f6, c7][cs6, f6, cs7][cs6, fs6, c7][cs6, fs6, cs7][ds6, fs6, c7][ds6, fs6, cs7][cs6, f6, c7][cs6, f6, cs7]>" + - 12) + # "distortedGuitar" + # room 0.5 + # sz 0.8 + # dry 1.2 + # crushbus 2 (range 16 4.5 "^53") + # midiG' "^81" 0 0.8 +d9 $ g -- Choirs + $ midiOn "^60" (|- note 12) + $ midiOn "^92" (# cut 9) + $ note ("<[cs6, f6, c7][cs6, f6, cs7][cs6, fs6, c7][cs6, fs6, cs7][ds6, fs6, c7][ds6, fs6, cs7][cs6, f7, c7][cs6, f6, cs7]>" + - 24 + ) + # "moogBass" + # pan 0.7 + # room 0.3 # dry 1 # sz 0.5 + # midiG' "^84" 0 0.54 + + + +-- TOXIC! +do +let gF = midiDJF "^49" 200 9800 0 2000 +let g = gF +setcps (130/60/4) +d4 $ g + $ note ("<[[b4 a4]*4]!12 d5 d5 f4 [f4@3 g5]>") + # "bass3" + # gain 0.6 +d5 $ g $ "drum:2*4" + # gain 1.1 + +-- TOXIC +do +-- resetCycles +let gF = midiDJF "^49" 150 9850 0 2000 +let g = gF +setcps (120/60/4) +d1 + $ midiOn "^41" (struct "t*4") + $ "drum" + # midiG' "^78" 0 0.7 +d3 $ g $ "~ s ~ s ~ s ~ s*<1 2>" # "drum:2" + # midiG' "^79" 0 0.7 +d4 $ g $ "[~ hc:1]*4" + # midiG' "^79" 0 0.5 +d2 $ g + $ note ("<[b4 b4 b4 ]!12 d5*4 d5(5,8) f4 [f4@3 g5]>") + # "bass3:4" |- note 1 + # midiG' "^80" 0 0.8 + # room 0.3 + # crushbus 2 (range 16 2.5 "^52") +d5 $ g + $ midiOff "^60" (loopAt 2) + $ midiOn "^60" (loopAt 1) + $ midiOn "^92" (ply 4) + $ slice 4 "0 1 2 3*<1 2 4>" + $ "breaks165" + # midiG' "^84" 0 0.7 + +once $ "drum" + +once $ "" # n 20 + + +do +let gF = midiDJF "^49" 150 9850 0 2000 +let g = gF +setcps (103/60/4) +d1 $ g + $ slice 4 ("<0 1 2 3>") + $ loopAt 2 $ "algorythm:2" + # cut 1 + # midiG' "^78" 0 0.8 + + +once $ "algorythm:3" + +-- Sweetest Taboo +do +let gF = midiDJF "^49" 150 9850 0 10000 +let g = gF +setcps (90/60/4) +d1 $ g + $ midiOn "^73" (mask "[t f t f]*2") + $ midiOn "^74" (mask "[t f f f]*2") + $ midiOn "^75" (mask "[t f f t]*2") + $ midiOn "^76" (mask "[t f f f]*2") + $ chop 16 $ loopAt 4 $ "algorythm:2" + # cut 1 + # midiG' "^78" 0 0.9 diff --git a/live/boeuf/algorythm/jolene.tidal b/live/boeuf/algorythm/jolene.tidal new file mode 100644 index 0000000..fb0c123 --- /dev/null +++ b/live/boeuf/algorythm/jolene.tidal @@ -0,0 +1,38 @@ +-- JOLENE v2 +do +setcps (100/60/4) +let g = (# djfbus 1 ("^49")) +let m1 = whenmod 4 3 (mask "t!3 ") +let m2 = whenmod 16 12 (mask "t") +let m3 = midiOn "^73" (mask "f*16") +let m = m1 . m2 . m3 +d1 $ g $ m + $ chop 16 $ loopAt 4 + $ "algorythm" + # midiG' "^78" 0 1 + # pan 0.3 + # cut 1 +d2 $ g + $ midiOn "^75" (ply 2) + $ sometimesBy "<0!3 0.5> <0.125!3 0.5> 0.25 <0.125!7 0.5>" (ply 2) + $ "d(8,8)" # "[drum:2]" + # pan 0.8 + # midiG' "^79" 0 1 +d3 $ g + $ whenmod 8 7 (# n "0!3 5") + $ "~ . [ <~!3 h>] <~ h>" + # "h2ogmhh" + # n "0 1" + # pan 0.3 + # midiG' "^80" 0 1 + + +-- Jolene v1: Nice but how about we sampling proper drums? +do +setcps (105/60/4) +d1 $ "ifdrums:0*4" # gain 0.65 +d2 $ "~ snare" # gain 0.7 +d3 + $ loopAt 2 + $ "break:7" + # gain 0.65 diff --git a/live/boeuf/algorythm/lady.tidal b/live/boeuf/algorythm/lady.tidal index 444ac52..ccbb62e 100644 --- a/live/boeuf/algorythm/lady.tidal +++ b/live/boeuf/algorythm/lady.tidal @@ -1,15 +1,18 @@ -resetCycles +-- Intro 8 / Verse 16 / Chorus 16 / Verse 16 / Chorus 16 / Outro 8 do +-- resetCycles setcps (120/60/4) let manualDJF = (# djfbus 1 (range 0.05 0.95 "^49")) let g = manualDJF -let whenVerse = someCyclesBy "<1!32 0!16 1!32 0!16>" -let whenIntro = someCyclesBy "<1!8 0!24 0!16 1!8 0!24 0!16>" -let whenChorus = someCyclesBy "<0!32 1!16 0!32 1!16>" -let justAfterChorus = someCyclesBy "<<0 1> 0!31 0!16 1 0!31 0!16>" +-- let whenIntro = someCyclesBy "<1!8 0!32 0!32 1!8>" +-- let whenVerse = someCyclesBy "<0!8 1!16 0!16 1!16 0!16 0!16>" +-- let whenChorus = someCyclesBy "<0!8 0!16 1!16 0!16 1!16 0!16>" +-- Tentative: Manual verse/chorus variations +let whenVerse = midiOn "^57" +let whenChorus = midiOff "^57" +let whenIntro = midiOn "^89" d1 $ g - $ mask "" -- Cut last 4 measures before chorus $ fix (|* gain 0.85) "808bd" $ "[jazz,808bd:3]*4" # midiG' "^78" 0 1 @@ -19,24 +22,36 @@ d2 $ g $ stut "[1|2|4]" 0.5 "e" # pan 0.4 # midiG' "^79" 0 0.9 d3 $ g + $ midiOn "^76" (ply 2) -- $ mask "" $ midiOn "^44" (ply "<1 2> <2 2 [2 4] 1>") -- $ whenVerse (mask "t ") -- $ whenVerse (mask "t ") - $ "[~ h]*4" # "electro1" + $ "[~ h]*4" # "[electro1,hh]" # midiG' "^80" 0 1 d4 $ g - $ justAfterChorus (mask "f") -- Hear chorus D longer sample - $ whenVerse (# n "<0 0 1 1 2 2 0 0>") -- VERSE: AA BB CC AA - $ whenChorus (# n "<3 4 5 3 3 4 5 6>") -- CHORUS: ABCA ABCD - -- $ whenIntro (# relbus 42 (range 1 10 "^34")) - $ "algorythm" + $ midiOn "^58" (# "lady_fx") + $ whenIntro (# n "0") -- INTRO: AAAA + $ whenVerse ((# n "<0 0 0 0 1 1 2 2>")) -- VERSE: AA AA BB CC + $ whenChorus ( + (fix (mask "") (n 6)) + . (# n "<3 3 4 4 5 5 3 3 3 3 4 4 5 5 6 6>")) -- CHORUS: ABCA ABCD + $ "lady" # cut 4 # gain 0.8 # pan 0.7 - # ringbus 44 (range 0 1 "^18") # ringf 0.5 - # roombus 43 (range 0.4 0 "^34") # sz 0.6 -- Room on low release - # midiG' "^82" 0 0.8 -d10 $ g $ mask "" -- DEBUG CUE BEFORE Chorus<>VERSE - $ "~ h2ogmcy ~ ~" # n (slow 8 $ "<1 2 3 4>") - # gain 0.8 + # ringbus 44 (range 0 1 "^17") # ringf 0.5 + # relbus 42 (range 10 1 "^33") # sz 0.6 -- Room on low release + # roombus 43 (range 0 0.4 "^33") # sz 0.6 -- Room on low release + # midiG' "^81" 0 0.8 +d10 $ g + $ mask "" -- DEBUG CUE every 8 -> Chorus<>VERSE + $ "h2ogmcy ~ ~" # n (slow 8 $ "<1 2 3 4>") + # midiG' "^84" 0 0.8 # pan 0.3 +d9 -- DEBUG CUE Voice + $ ("0.125" <~) + $ off "h" ((|* 0.8) . (# pan 0.8)) + $ "numbers" + # n "<1 2 3 4 5 6 7 8>" + # pan 0.3 + # midiG' "^83" 0 0.8 diff --git a/live/boeuf/algorythm/toxic.tidal b/live/boeuf/algorythm/toxic.tidal new file mode 100644 index 0000000..978c8b7 --- /dev/null +++ b/live/boeuf/algorythm/toxic.tidal @@ -0,0 +1,53 @@ + + +do +-- resetCycles +setcps (140/60/4) +let maskFirstBar = mask "" +let modIndex = pF "modIndex" +let gDJF = (# djfbus 1 (range 0.15 0.95 "^49")) +let gCrush = (# crushbus 2 (range 16 4.5 "^29")) +let g = maskFirstBar . gDJF . gCrush +d1 $ g + -- $ mask "" + $ fix ((|* gain 0.9) . (# lpf 5000)) "kick" + $ "k ~ ~ k . ~ ~" # "[ifdrums,kick]" + # midiG' "^78" 0 1 + # pan 0.4 +d2 $ g + $ superimpose (const $ g + $ "~ ~ ~ ~ ~ <~!4 s!4> ~ <~!7 s>" # "snare:5" # pan 0.8 + # midiG' "^79" 0 1) + $ mask "" + $ "~ s ~ " + # "[snare:10,drum:2]" + # midiG' "^79" 0 1 +d3 $ g + $ midiOn "^76" (ply 2) + -- $ mask "" + $ "hh*[8 8 8 <8!3 [16 8]>]" + # att 0.01 # rel 0.5 # cut 3 # hpf 5000 + # midiG' "^80" 0 1.3 +d7 + $ midiOn "^92" (ply 2) + $ note ("0*8" + "")-- BASS Riff + # "bassWarsaw" + # legato 0.9 + # room 0.1 + # sz 0.1 + # cut 7 + # crushbus 71 (range 16 1.5 "^56") + # midiG' "^84" 0 1 +d8 $ gDJF -- CUE Toxic Theme + $ midiOff "^91" (mask "") + $ midiOn "^59" (rev) + $ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24) + # "FMRhodes1" + # legato 4 + # room "0!15 0.4" + # attack 0.05 + # modIndex "^83" + # rel 2 + # sz 0.5 + # pan 0.9 + # midiG' "^83" 0 1.1 diff --git a/live/boeuf/algorythm/what_you_wont_do_for_love.tidal b/live/boeuf/algorythm/what_you_wont_do_for_love.tidal new file mode 100644 index 0000000..34ef0ff --- /dev/null +++ b/live/boeuf/algorythm/what_you_wont_do_for_love.tidal @@ -0,0 +1,16 @@ +-- What you won't do for love +do +setcps (90/60/4) +d1 $ "drum:0" # gain 0.5 +d2 $ "d*4" # "drum:2" # gain 0.9 + + +d1 $ n "0 1 0 1" # "amencutup" # gain 0.98 + +-- FIXME : MAybe not needed just guitar+voice +do +setcps (94/60/4) +d1 $ "jazz*4" # gain 0.8 + + +once $ "dr" # gain 2 diff --git a/live/boeuf/algorythms/first_jam.tidal b/live/boeuf/algorythms/first_jam.tidal deleted file mode 100644 index cebf104..0000000 --- a/live/boeuf/algorythms/first_jam.tidal +++ /dev/null @@ -1,128 +0,0 @@ --- Lady -do --- resetCycles -setcps (120/60/4) -let gF = midiDJF "^49" 200 9800 0 2000 -let g = (gF) -d1 $ g - $ fix (|* gain 0.8) "jazz" - $ midiOn "^41" (struct "t t t >") - $ "[drum]" - # midiG' "^78" 0 0.7 -d2 $ g - $ midiOn "^43" (fast "<2!7 <4 8>>") - $ "~ snare:20" - # midiG' "^79" 0 0.6 -d3 $ g -- Drumroll - $ midiOn "^44" (fast 2) - $ "drum:2*<8!3 <16 [16 <8 32>]>>" - # midiG' "^80" 0 0.8 -d4 $ g -- BASS/Guitar - $ superimpose ((|* gain 0.8) . struct "t(5,8)" . arp ">") - $ note ("<[cs6, f6, c7][cs6, f6, cs7][cs6, fs6, c7][cs6, fs6, cs7][ds6, fs6, c7][ds6, fs6, cs7][cs6, f6, c7][cs6, f6, cs7]>" - - 12) - # "distortedGuitar" - # room 0.5 - # sz 0.8 - # dry 1.2 - # crushbus 2 (range 16 4.5 "^53") - # midiG' "^81" 0 0.8 -d9 $ g -- Choirs - $ midiOn "^60" (|- note 12) - $ midiOn "^92" (# cut 9) - $ note ("<[cs6, f6, c7][cs6, f6, cs7][cs6, fs6, c7][cs6, fs6, cs7][ds6, fs6, c7][ds6, fs6, cs7][cs6, f7, c7][cs6, f6, cs7]>" - - 24 - ) - # "moogBass" - # pan 0.7 - # room 0.3 # dry 1 # sz 0.5 - # midiG' "^84" 0 0.54 - - - --- TOXIC! -do -let gF = midiDJF "^49" 200 9800 0 2000 -let g = gF -setcps (130/60/4) -d4 $ g - $ note ("<[[b4 a4]*4]!12 d5 d5 f4 [f4@3 g5]>") - # "bass3" - # gain 0.6 -d5 $ g $ "drum:2*4" - # gain 1.1 - --- TOXIC -do --- resetCycles -let gF = midiDJF "^49" 150 9850 0 2000 -let g = gF -setcps (120/60/4) -d1 - $ midiOn "^41" (struct "t*4") - $ "drum" - # midiG' "^78" 0 0.7 -d3 $ g $ "~ s ~ s ~ s ~ s*<1 2>" # "drum:2" - # midiG' "^79" 0 0.7 -d4 $ g $ "[~ hc:1]*4" - # midiG' "^79" 0 0.5 -d2 $ g - $ note ("<[b4 b4 b4 ]!12 d5*4 d5(5,8) f4 [f4@3 g5]>") - # "bass3:4" |- note 1 - # midiG' "^80" 0 0.8 - # room 0.3 - # crushbus 2 (range 16 2.5 "^52") -d5 $ g - $ midiOff "^60" (loopAt 2) - $ midiOn "^60" (loopAt 1) - $ midiOn "^92" (ply 4) - $ slice 4 "0 1 2 3*<1 2 4>" - $ "breaks165" - # midiG' "^84" 0 0.7 - -once $ "drum" - --- JOLENE -do -setcps (105/60/4) -d1 $ "drum:0*4" # gain 0.65 -d2 $ "~ cp" # gain 0.7 -d3 - $ loopAt 2 - $ "break:6" - # gain 0.65 - - -do -let gF = midiDJF "^49" 150 9850 0 2000 -let g = gF -setcps (103/60/4) -d1 $ g - $ slice 4 ("<0 1 2 3>") - $ loopAt 2 $ "algorythm:2" - # cut 1 - # midiG' "^78" 0 0.8 - - -once $ "algorythm:3" - --- Sweetest Taboo -do -let gF = midiDJF "^49" 150 9850 0 10000 -let g = gF -setcps (90/60/4) -d1 $ g - $ midiOn "^73" (mask "[t f t f]*2") - $ midiOn "^74" (mask "[t f f f]*2") - $ midiOn "^75" (mask "[t f f t]*2") - $ midiOn "^76" (mask "[t f f f]*2") - $ chop 16 $ loopAt 4 $ "algorythm:2" - # cut 1 - # midiG' "^78" 0 0.9 - - --- What you won't do for love -do -setcps (90/60/4) -d1 $ "drum:0" # gain 0.5 -d2 $ "d*4" # "drum:2" # gain 0.9 -- libgit2 0.27.0