diff --git a/live/boeuf/algorythms/first_jam.tidal b/live/boeuf/algorythm/first_jam.tidal similarity index 92% rename from live/boeuf/algorythms/first_jam.tidal rename to live/boeuf/algorythm/first_jam.tidal index cebf104..1ff70d9 100644 --- a/live/boeuf/algorythms/first_jam.tidal +++ b/live/boeuf/algorythm/first_jam.tidal @@ -82,22 +82,14 @@ d5 $ g 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 +once $ "" # n 20 do let gF = midiDJF "^49" 150 9850 0 2000 let g = gF setcps (103/60/4) -d1 $ g +d1 $ g $ slice 4 ("<0 1 2 3>") $ loopAt 2 $ "algorythm:2" # cut 1 @@ -119,10 +111,3 @@ d1 $ g $ 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 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