From daae34bc4e2877280c6061b145a1833c192ca734 Mon Sep 17 00:00:00 2001 From: PLN Date: Thu, 1 Apr 2021 23:00:41 +0200 Subject: [PATCH] live: Franken v1 --- live/hip/trapped_in_space.tidal | 9 +++++---- live/midi/break_metal.tidal | 2 +- live/midi/nova/breaks/break_90s.tidal | 8 +++----- live/midi/nova/breaks/slower.tidal | 12 +++++++----- live/midi/nova/dnb/BreakBass.tidal | 5 +++-- live/midi/nova/dnb/frankenbass.tidal | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/dnb/prepabass.tidal | 2 ++ live/midi/nova/lounge/invoque_ete.tidal | 6 +++++- live/midi/nova/lounge/top_hats.tidal | 19 +++++++++++-------- live/midi/nova/party/funk_angel_frappe.tidal | 2 +- live/midi/zelda/mashup.tidal | 6 ++++++ live/mood/tired/afternoon.tidal | 9 +++++++-- 12 files changed, 126 insertions(+), 29 deletions(-) create mode 100644 live/midi/nova/dnb/frankenbass.tidal diff --git a/live/hip/trapped_in_space.tidal b/live/hip/trapped_in_space.tidal index 4f861a4..189de98 100644 --- a/live/hip/trapped_in_space.tidal +++ b/live/hip/trapped_in_space.tidal @@ -10,11 +10,11 @@ d1 $ whenTrap (|<| "k ~ ~ k . ~") $ "k ~ ~ k . ~" # "reverbkick" - # lpf 500 + # lpf 1500 # orbit 0 # legato 2 # room 0.2 # dry 1 - # gain 0.75 + # gain 0.85 d2 $ "~ hh27:9" # lpf 1000 @@ -46,7 +46,7 @@ d4 + prog ) - 24) # "arpy" - # gain (slow 24 $ range 0.55 0.75 perlin) + # gain (slow 24 $ range 0.55 0.65 perlin) # lpf 500 # room 0.3 # orbit 4 @@ -59,12 +59,13 @@ d5 $ note (scale "aeolian" ( "0 . 0 [0 1]" + prog + + "[0,7]" ) - 24) # orbit 4 # "supersaw" # voice 0.1 # pan 0.2 - # gain (slow 16 $ range 0.35 0.55 perlin) + # gain (slow 16 $ range 0.35 0.65 perlin) d6 $ note (scale "aeolian" ( whenmod 16 9 (+ "<0 -1 -2 -4>") diff --git a/live/midi/break_metal.tidal b/live/midi/break_metal.tidal index 7682b60..95b3114 100644 --- a/live/midi/break_metal.tidal +++ b/live/midi/break_metal.tidal @@ -6,7 +6,7 @@ do setcps (70/60/4) d1 -- $ fast (slow 8 "<1 2 4 <8 [8 0]>>") - $ "[cpu,jazz]*8" + $ "[cpu,jazz]*4" # room 0.8 # sz 0.8 # dry 1.02 # lpf 2000 diff --git a/live/midi/nova/breaks/break_90s.tidal b/live/midi/nova/breaks/break_90s.tidal index 00ee7c1..10861ba 100644 --- a/live/midi/nova/breaks/break_90s.tidal +++ b/live/midi/nova/breaks/break_90s.tidal @@ -3,12 +3,10 @@ import Sound.Tidal.ParVagues.Control -- Accompagnement en ré au https://mmontag.github.io/dx7-synth-js/ --- Break90s∷ - - setcps (80/60/4) resetCycles +-- Break90s∷ :) do let gF = (whenmod 16 12 (# djf (slow 4 $ range 0 0.5 sine))) let gDJF = (midiDJF "^49" 0 10000 0 10000) @@ -68,7 +66,7 @@ d3 -- Bassline # cut 3 # crush (range 10 4 "^53") # pan 0.2 - # midiG' ("^81" + 0.125*"^53") 0 1.5 + # midiG' ("^81" + 0.125*"^53") 0 1.8 d4 -- Skank organ $ g -- $ superimpose (const $ g @@ -102,7 +100,7 @@ d5 $ g $ whenmod 16 4 (|+| note "<0!4 [0 a4]!4>") $ note "" # "superpiano" - # velocity (0.35 + perlin/8) + # velocity (0.4 + perlin/8) # room 0.6 # sz 0.8 # pan 0.6 # orbit 5 diff --git a/live/midi/nova/breaks/slower.tidal b/live/midi/nova/breaks/slower.tidal index 0a8af08..070f94a 100644 --- a/live/midi/nova/breaks/slower.tidal +++ b/live/midi/nova/breaks/slower.tidal @@ -2,6 +2,8 @@ import Sound.Tidal.ParVagues.Control setcps (80/60/4) +-- Merci :) + do let gF = (whenmod 16 12 (# djf (slow 4 $ range 0 0.5 sine))) let gDJF = (midiDJF "^49" 0 10000 0 10000) @@ -17,15 +19,15 @@ d1 $ g -- KICK $ midiOn "^42" (<| "k*4 . k k k k*<1 2>") -- Run $ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)") $ "[hh27:6,jazz]" - # midiG' "^78" 0 1.5 + # midiG' "^78" 0 1.9 # room 0.3 # sz 0.5 # dry 0.9 d2 -- Breakbeat $ g $ midiOn "^43" (fast "[1|2|0.5]" . loopAt 1) -- $ midiOn "^43" (fast 4 . often (scramble 2)) -- $ sometimesBy "0 <0.5!3 0.95>" (ply "[2|4]") - $ slice 16 "~ <0 1 2 3>" $ "break" - # midiG' "^79" 0 1.8 + $ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break" + # midiG' "^79" 0 1.75 d3 $ g $ midiOn "^44" (fast 2) $ "d ~ ~ d d ~ d <~!3 d>" @@ -61,7 +63,7 @@ d5 -- fmono $ "fmono:40" # cut 4 # crush (range 12 1.85 "^54") - # midiG' ("^82" + 0.125 * "^54") 0 1 + # midiG' ("^82" + 0.125 * "^54") 0 1.2 # orbit 5 # room 0.3 # sz 0.8 # dry 1 d9 -- Hats $ g @@ -104,7 +106,7 @@ d7 -- Arps FMRhodes1 # pan 0.3 # modIndex (range 0 100 "^34") # room 0.6 # sz 0.8 - # midiG' "^18" 0 1.2 + # midiG' "^18" 0 1.8 d10 -- Follow claps $ g $ "~ clap" diff --git a/live/midi/nova/dnb/BreakBass.tidal b/live/midi/nova/dnb/BreakBass.tidal index 665290a..1bf6f69 100644 --- a/live/midi/nova/dnb/BreakBass.tidal +++ b/live/midi/nova/dnb/BreakBass.tidal @@ -1,3 +1,5 @@ +resetCycles + do -- BreakBass: Break to DNB -- region moogBass parameters let cutoff = pF "cutoff" @@ -27,8 +29,7 @@ let gDJF = (gLPF . gHPF) -- endregion Nova Utils let g = (gDJF . gReverb) let prog = "<1 1 2 4>" -setcps (139/60/4) -resetCycles +setcps (159/60/4) d1 $ g $ mask "" $ someCyclesBy "<0!8 2 0!55>" (<| "k*12") diff --git a/live/midi/nova/dnb/frankenbass.tidal b/live/midi/nova/dnb/frankenbass.tidal new file mode 100644 index 0000000..fa2704f --- /dev/null +++ b/live/midi/nova/dnb/frankenbass.tidal @@ -0,0 +1,75 @@ +resetCycles + +import Sound.Tidal.ParVagues.Control + +setcps (159/60/4) + +-- ..... 8 Intro -> 8 Hello DNB -> 16 Arps +-- Kick RushDrop +-- S -- HELLO SNARE -- LOWER SNARE +-- B +-- C + +do + let g = id + let mel = "c" + let prog = ("") + let chorus = pF "chorus" + let mix = pF "mix" + let modIndex = pF "modIndex" -- 0.2 + d1 $ g + $ someCyclesBy "<1!8 0!24>" (<| "k*<1 1 2 2 4 4 8 16>") + $ someCyclesBy "<0!8 1!24>" (<| "k . ~ k ~ ~") + $ "reverbkick" # sus "0.25" + # gain 0.85 + d2 + $ mask "" + $ "~ s ~ s*<1 2 1 1>" + # "[snare:21,snare:22,snare:3]" + # note "<0!16 -4!16>" + d3 -- Drumroll + $ mask "" + $ mask "" + $ "drum:2*[8 <8 16 32> 8 16]" + # room 0.4 + # gain "<0.75 0.8!15>" * 1.35 + -- d3 $ g -- BASSLINE + -- $ novaOn "^41" (mask "") + -- $ loopAt 2 + -- $ note (scale "aeolian" $ mel) + -- # "bassWarsaw" + -- # pan 0.2 + -- # octave 2 + -- # cut 3 + d4 -- Rhodes base + chords + $ mask "" + $ someCyclesBy "<0!16 1!16>" ( -- ARPS <3 + (|+ note 12) + . sometimesBy "0 0.5!7" rev + . fast "1 2" + . arp "pinkyup" + . (|+ pan 0.1) + . (|* gain 1.2) + ) + $ note (( + "<0 ~> 0" + + prog + + "0 -12" + - "12" -- Octave + )) + # "FMRhodes1" + # modIndex "[0,5,10]" + # pan 0.6 + # crush (range 10 4 "^54") --TODO Drop2 + # gain 0.85 + d5 + $ mask "" + $ slice 8 (run "<8!4 4!4>") + $ (loopAt 1) + $ "breaks165" + # gain 0.95 + +once $ "macron:10" # gain 1.5 + + +-- # gM' 0 1 "^80" diff --git a/live/midi/nova/dnb/prepabass.tidal b/live/midi/nova/dnb/prepabass.tidal index 19f4d7d..3462743 100644 --- a/live/midi/nova/dnb/prepabass.tidal +++ b/live/midi/nova/dnb/prepabass.tidal @@ -5,6 +5,8 @@ once $ "methbass:3" # cut 1 # gain 0 -- Comete once $ "methbass:4" # cut 1 # gain 0 -- ALERTE +resetCycles + do -- region Nova Utils let gFactor = 1.2 diff --git a/live/midi/nova/lounge/invoque_ete.tidal b/live/midi/nova/lounge/invoque_ete.tidal index a1cccdc..33afdd1 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -1,7 +1,10 @@ import Sound.Tidal.ParVagues.Control resetCycles +setcps (115/60/4) +-- Invoque l'été +-- Il ne viendra pas tout seul ;) do let gF = 1.5 let gG a = (gain (gF * "^77" * a)) -- gain Global @@ -11,7 +14,6 @@ let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) let gDJF = (gLPF . gHPF) let g = gDJF -setcps (115/60/4) d1 $ g $ midiOn "^42" (slow 4) $ midiOn "^41" (<| "k k k ") @@ -25,6 +27,7 @@ d2 $ g -- Clave de l'été # "snare:22" # gM' 0 1.4 "^79" # speed (range 0.5 1.5 "^51") d4 $ g + $ fast 2 $ midiOn "^44" (slice 16 ("0*<1 2> 1 2 3*<2 1>") . (>| "breaks125")) $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>") $ sometimesBy "0 ^32!7" (shuffle 8) @@ -73,6 +76,7 @@ d7 $ g # gM' 0 1.3 "^83" # cut 7 d8 $ g + $ midiOn "^92" (|+ note 12) $ midiOn "^60" ( superimpose ( struct "t(5,8)" diff --git a/live/midi/nova/lounge/top_hats.tidal b/live/midi/nova/lounge/top_hats.tidal index ec7a719..caf073b 100644 --- a/live/midi/nova/lounge/top_hats.tidal +++ b/live/midi/nova/lounge/top_hats.tidal @@ -13,21 +13,24 @@ let gG a = (gain (1.2 * "^77" * a)) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux let gDJF = midiDJF "^49" 0 10000 0 7500 -let g = (gDJF) +let gFreqL = (# lpq (range 0 0.25 "^29")) +let gFreqH = (# hpq (range 0 0.25 "^30")) +let gFreqs = (gFreqH . gFreqL) +let g = (gDJF . gFreqs) setcps 0.5 d1 $ g $ midiOn "^41" ( -- KICK RUN - ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.5)) + ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.25)) ) $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>") $ "hh27" # n "[5,6]" - # gM' 0 3 "^78" + # gM' 0 4 "^78" d2 $ g -- Breathing snare contretemps $ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>") $ "hh27:2 hh27:7" # room 0.6 # sz 0.7 # dry (slow 20 $ range 0 2 perlin) # gM' 0.5 1.5 "^79" -d3 +d3 -- Runny Maracas $ g $ whenmod 16 8 (often $ fast 2) $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1") @@ -54,7 +57,7 @@ d6 $ g -- Guitar riffs # room 0.3 # sz 0.9 # gM' 0.4 1.5 "^81" -d4 +d4 -- Rhodes base + chords $ g $ midiOn "^58" (superimpose ( -- ARPS <3 (|+ note 12) @@ -74,7 +77,7 @@ d4 # modIndex "[0,5,10]" # pan 0.6 # crush (range 10 4 "^54") - # gM' 0.3 1.6 "^82" + # gM' 0.3 1.9 "^82" d5 $ g -- Choirs + arps $ juxBy "-0.7" ( arp ">" @@ -88,17 +91,17 @@ d5 $ g -- Choirs + arps # gM' 0.3 1.5 "^56" # pan 0.2 # chorus 0.6 -d8 $ g +d8 $ g -- Electrified laggy moog $ midiOn "^91" (ply 2) $ midiOn "^59" ( (# lpf 2000) - . (# crush (range 16 4.5 "^55")) . (# lpq (slow 16 $ range 0 0.15 perlin)) ) $ midiOn "^91" (segment "4 <4 <8 [8 16]>>") $ note (prog + "0 12") # "moog" # cut 8 + # crush (range 16 4 "^55") # gM' 0 1.8 "^83" # release 100 d9 $ g diff --git a/live/midi/nova/party/funk_angel_frappe.tidal b/live/midi/nova/party/funk_angel_frappe.tidal index 08adc61..947a69e 100644 --- a/live/midi/nova/party/funk_angel_frappe.tidal +++ b/live/midi/nova/party/funk_angel_frappe.tidal @@ -16,7 +16,7 @@ let novaOff ch pat = someCyclesBy (1 - ch) pat let g = (gDJF . gRes) setcps 0.5 d1 $ g - $ mask "" + -- $ mask "" $ "k k k " # "[jazz,cpu]" # room 0.8 # sz 0.8 # dry 1 diff --git a/live/midi/zelda/mashup.tidal b/live/midi/zelda/mashup.tidal index 89606cc..38d0965 100644 --- a/live/midi/zelda/mashup.tidal +++ b/live/midi/zelda/mashup.tidal @@ -2,6 +2,12 @@ setcps (120/60/4) once $ note ("a3 g3 f3 e3") #"arpy" +-- Main theme +-- https://musescore.com/static/musescore/scoredata/gen/6/4/8/4880846/ea1cf311c1390dad9144c752c6a58c4bfd11923d/score_0.png@850x1100?no-cachee=1563558543 + +-- Kass's theme +-- https://musescore.com/chromelxd/scores/3604791 + -- Meeting the Heart Fairy do resetCycles diff --git a/live/mood/tired/afternoon.tidal b/live/mood/tired/afternoon.tidal index 5291a55..24e0ce5 100644 --- a/live/mood/tired/afternoon.tidal +++ b/live/mood/tired/afternoon.tidal @@ -1,5 +1,9 @@ import Sound.Tidal.ParVagues.Control +-- Gauche si+mi/sol+re/la+fa/si+sol +-- Droite whatever autour ;) + + resetCycles do @@ -50,7 +54,8 @@ d6 $ g -- Nappes Rhodes # pan 0.2 # modIndex (range 0 100 "^54") # midiG' "^82" 0 1.8 -d7 -- Hello PWM! +d7 $ g -- Hello PWM! + $ (|* gain "<1!15 0.8>") $ midiOn "^57" (chop "<[8 <4 16>]!15 1>") $ midiOn "^89" (superimpose $ segment 16) $ note (mel - 12) @@ -60,7 +65,7 @@ d7 -- Hello PWM! # rate "<1!5 2 4 <1 4>>" # resonance (slow 32 $ range 0.2 0.6 sine) # crush (range 10 3 "^53") - # midiG' "^81" 0 1.75 + # midiG' "^81" 0 2 -- TODO MidiCloud p "midiclock" $ midicmd "midiClock*48" # s "midi" -- libgit2 0.27.0