From 43fd95cbd9212e07c8e8138750261301ffaa9210 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sun, 2 May 2021 03:07:08 +0200 Subject: [PATCH] live: last one --- live/midi/nova/breaks/break_90s.tidal | 2 +- live/midi/nova/dnb/lucy_rode.tidal | 34 ++++++++++++++++++---------------- live/midi/nova/dnb/meurice.tidal | 7 ++++--- live/midi/nova/lofi/new_dust.tidal | 8 +++++--- live/midi/nova/lounge/cbow.tidal | 51 +++++++++++++++++++++++++++++++++++++++++++-------- live/midi/nova/lounge/invoque_ete.tidal | 4 ++-- live/midi/nova/lounge/michael.tidal | 4 +++- live/midi/nova/party/hoover_sepia.tidal | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/party/last_one.tidal | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/party/phunk.tidal | 185 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/zelda.tidal | 70 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/mood/fight/clav_clash.tidal | 4 ++-- 12 files changed, 484 insertions(+), 36 deletions(-) create mode 100644 live/midi/nova/party/hoover_sepia.tidal create mode 100644 live/midi/nova/party/last_one.tidal create mode 100644 live/midi/nova/party/phunk.tidal diff --git a/live/midi/nova/breaks/break_90s.tidal b/live/midi/nova/breaks/break_90s.tidal index 77eab72..12696d6 100644 --- a/live/midi/nova/breaks/break_90s.tidal +++ b/live/midi/nova/breaks/break_90s.tidal @@ -11,7 +11,7 @@ once "dr" -- Break90s∷ :) do -- let gF = (whenmod 32 28 (# djf (slow 4 $ range 0 0.5 sine))) -let gDJF = (midiDJF "^49" 0 10000 0 10000) +let gDJF = (# djfbus 1 (range 0.15 0.9 "^49")) let g = (gDJF) d1 $ g diff --git a/live/midi/nova/dnb/lucy_rode.tidal b/live/midi/nova/dnb/lucy_rode.tidal index 1a91e46..9b053c9 100644 --- a/live/midi/nova/dnb/lucy_rode.tidal +++ b/live/midi/nova/dnb/lucy_rode.tidal @@ -12,9 +12,9 @@ do let mix = pF "mix" let modIndex = pF "modIndex" -- 0.2 let vibrato = pF "vibrato" - let gDJF = midiDJF "^49" 100 9900 0 1500 - let gFreqL = (# lpq (range 0 1 "^30")) - let gFreqH = (# hpq (range 0 (1/16) "^29")) + let gFreqL = (# lpqbus 2 (range 0 1 "^30")) + let gFreqH = (# hpqbus 3 (range 0 (1/16) "^29")) + let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let gFreqs = (gFreqH . gFreqL) let g = gDJF . gFreqs d1 @@ -23,7 +23,7 @@ do $ midiOn "^41" (<| "k k k k") $ midiOn "^42" (<| "k . k <~ [<~ k> ]>")-- RubADub $ midiNo "^41" "^42" (<| ">") - $ "jazz" + $ "[jazz,kick:5]" # midiG' "^78" 0 1.5 d2 $ g -- Break $ loopAt 1 @@ -44,6 +44,19 @@ do $ fast "4 8" $ "drum:2" # midiG' "^80" 0 1.8 + d4 $ g -- Bassline pompée + $ midiOn "^57" (ply 2) + $ note (scale "aeolian" ( + "0*8" + |+ (fast 4 $ arp "up" + " ds3'major7'8>") + + "<0!6 7!2>" + )) + # "bassWarsaw" + # crush (range 10 2 "^53") + # room 0.4 + # pan 0.2 + # midiG' "^81" 0 1.3 d6 $ g --Rhodes arps $ juxBy 0.8 ( (# modIndex 15) @@ -59,18 +72,6 @@ do # room 0.2 # dry 2 # sz 0.8 # crush (range 10 3.7 "^54") # modIndex (range 0 4.19 "^34") - d4 $ g -- Bassline pompée - $ midiOn "^57" (ply 2) - $ note (scale "aeolian" ( - "0*8" - |+ (fast 4 $ arp "up" - " ds3'major7'8>") - )) - # "bassWarsaw" - # crush (range 10 2 "^53") - # room 0.4 - # pan 0.2 - # midiG' "^81" 0 1.3 d7 $ g -- Hammond $ ("0.125" ~>) $ fast 2 @@ -91,6 +92,7 @@ do # pan 0.74 # sustain (range 0.125 0.5 "^55") # midiG' "^83" 0 1 + d10 $ "~ clap" # midiG' "^84" 0 1.2 diff --git a/live/midi/nova/dnb/meurice.tidal b/live/midi/nova/dnb/meurice.tidal index 583e94a..88dc891 100644 --- a/live/midi/nova/dnb/meurice.tidal +++ b/live/midi/nova/dnb/meurice.tidal @@ -4,7 +4,7 @@ import Sound.Tidal.ParVagues.Control -- do setcps (160/60/4) -let gDJF = midiDJF "^49" 200 9800 0 4000 +let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) let gFreqL = (# lpq (range 0 0.5 "^29")) let gFreqH = (# hpq (range 0 0.5 "^30")) let g32Bridge = whenmod 64 32 (|* gain (slow 16 $ range 0.85 1.1 saw)) @@ -32,9 +32,10 @@ d2 # room 0.8 # dry 0.99 # sz 0.2 # midiG' "^79" 0 1.2 d3 -- Running Hats - -- $ g + $ g -- $ degradeBy ("1 0 0 1!13" - "^52") - -- $ midiOn "^44" (fast 2) + $ midiOn "^44" (slow 2) + $ midiOn "^76" (fast 2) $ "hh*[8 . 8 <16 8 4 [4 8]>]" -- # n "[0|0|0|0|1|1|3|3]*8" # midiG' "^80" 0 (1.3 + (slow 4 $ perlin/4)) diff --git a/live/midi/nova/lofi/new_dust.tidal b/live/midi/nova/lofi/new_dust.tidal index cea59b1..206fa8c 100644 --- a/live/midi/nova/lofi/new_dust.tidal +++ b/live/midi/nova/lofi/new_dust.tidal @@ -109,10 +109,14 @@ d8 $ g -- Toy bogdan # leslie 0.2 # lrate 6.7 # lsize 0.7 d9 $ g -- Toy Dusty $ slice 24 - (cat [ + (cat [ -- TODO: Confirm/refine progression, add echoes, :) "0 0", "~ 1 ~ 1", "0 0 0 0", + "~ 1 1 1", + "~ 1 1 1", + "~ 1 1 1", + "~ 1 1 1", "~ 1 ~ 1 ~ 1 2 3" -- "2", -- "0 1*2 2 ~ ~ ~ ~ ~" @@ -120,5 +124,3 @@ d9 $ g -- Toy Dusty $ "dusty" # cut 9 # gain 0.65 # midiG' "^56" 0.3 1.1 - -once $ "dr" # cut 21 # gain 0.5 diff --git a/live/midi/nova/lounge/cbow.tidal b/live/midi/nova/lounge/cbow.tidal index f704c2c..59c0a0c 100644 --- a/live/midi/nova/lounge/cbow.tidal +++ b/live/midi/nova/lounge/cbow.tidal @@ -8,23 +8,36 @@ do let chord = "d4'min7'4" let gF = midiDJF "^49" 200 9800 0 2000 let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30")) .(# lrate 6.7)) -let gDJF = (whenmod 32 24 (# lpf (max 200 (slow 16 $ range 5000 0 sine)))) +let gDJF = (whenmod 32 28 (# lpf (max 200 (slow 16 $ range 5000 0 sine)))) let g = gF . gLeslie setcps (100/60/4) +-- d10 $ "hh*128" # gain 1.1 d1 $ gDJF $ g $ midiOff "^41" (mask "") - $ midiOn "^41" (<| "k*4" ) - $ midiOff "^41" (<| "k [~!6 ] . k*2 ~" ) + $ midiOn "^41" (<| "k k k ") + $ midiOff "^41" (<| "k [~!6 ] . k*2 ~") $ "[jazz,bd]" - # midiG' "^78" 0 0.75 + # midiG' "^78" 0 1 d2 $ gDJF $ g $ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>" $ "~ s ~ s" # "h2ogmsn:6" - # midiG' "^79" 0 0.8 + # midiG' "^79" 0 1 +d6 + $ g + $ midiOn "^44" (slow 2) + -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]") + -- $ degradeBy ("0 0.95!7 0" - "^52") + $ "~ h ~ h ~ h*2 ~ h" # "hh27:2" + # note ( + whenmod 4 3 (2 -) + "0 . 2 0" + ) + # midiG' "^80" 0 1.6 d3 $ g -- Bass $ gDJF $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8) + $ ("0.125" ~>) $ slow 4 $ note ( (arp "up " chord)) @@ -33,7 +46,7 @@ d3 $ g -- Bass # cut 3 # room 0.6 # sz 0.5 - # midiG' "^81" 0 0.56 + # midiG' "^81" 0 0.8 # crush (range 10 2 "^53") d4 $ g -- $ mask "" @@ -46,7 +59,7 @@ d4 $ g # "cbow:2" # cut 4 # room 0.2 - # midiG' "^82" 0 0.4 + # midiG' "^82" 0 0.8 d5 $ g -- Breakbeat $ midiOn "^76" (fast "<2!3 4>") $ midiOff "^44" (slow "<4 2>") @@ -62,11 +75,33 @@ d8 $ g -- Angels $ note "<[c . ~!3 <~ >] a4>" # "cbow:3" # cut 8 - # midiG' "^83" 0 0.56 + # midiG' "^83" 0 0.86 +d10 + $ (# lpf 2000) + $ g $ "~ cp" + # midiG' "^83" 0 1.6 d4 $ whenmod 32 16 (jux rev) $ "h2ogmcp(5,8,<0!3 [0 3]>)" # gain 0.45 +do +let g = (midiDJF "^41" 200 9800 0 1000) +d1 $ g $ fast 4 $ "jazz" +d2 $ g $ fast 2 $ "~ sn:7" +d3 $ g + $ note (scale "aeolian" ("<0 0 1 2>")) + # "cbow:0" + # cut 3 + # gain 0.75 +d4 $ g + $ sometimes (rev) + $ note (scale "aeolian" (run "6 12")) + # "cbow:1" + # cut 1 + # gain 0.58 + + + (5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn ( diff --git a/live/midi/nova/lounge/invoque_ete.tidal b/live/midi/nova/lounge/invoque_ete.tidal index fc38535..74127a5 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -1,11 +1,11 @@ import Sound.Tidal.ParVagues.Control resetCycles -setcps (115/60/4) -- Invoque l'été -- Il ne viendra pas tout seul ;) do +setcps (115/60/4) let gF = 1.5 let gG a = (gain (gF * "^77" * a)) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré @@ -32,7 +32,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 + $ fast 4 $ 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) diff --git a/live/midi/nova/lounge/michael.tidal b/live/midi/nova/lounge/michael.tidal index d5eeb63..771f2d6 100644 --- a/live/midi/nova/lounge/michael.tidal +++ b/live/midi/nova/lounge/michael.tidal @@ -1,9 +1,11 @@ -setcps (120/60/4) resetCycles + + -- Michael: lounge piano/brass tech/break do let gDJF = midiDJF "^49" 200 9800 0 1000 let g = gDJF +setcps (120/60/4) d1 $ g $ midiOn "^41" (struct "t t t*<2 1 1 2> t*<1 2>") $ midiOff "^41" (struct "t(<3!3 [3 <8 [5 8]>]>,8)") diff --git a/live/midi/nova/party/hoover_sepia.tidal b/live/midi/nova/party/hoover_sepia.tidal new file mode 100644 index 0000000..38e5187 --- /dev/null +++ b/live/midi/nova/party/hoover_sepia.tidal @@ -0,0 +1,59 @@ +-- TODO Try Control with busses :D +do +-- region Utils +let modIndex = pF "modIndex" +let cF5 ch = cF 0.5 ch +let gDJF = (# djfbus 1 (range 0.15 0.99 "^49")) +let gRoom = (# roombus 2 (cF5 "29")) +let gSize = (# sizebus 3 (cF5 "30")) +let g = gDJF . gRoom . gSize +let gG = 1 * "^77" +let gM' ch l h = gain (range l h (gG * ch)) +let gM ch = gM' ch 0 1 +let ampb bus pat = (ampbus bus (gG * pat)) +let midiOn ch pat = someCyclesBy ch pat +-- endregion +let prog = "" +setcps (95/60/4) +d1 -- Kick techno 1-2-4/4 + $ g + $ midiOn "^41" (fast 2) + $ midiOn "^42" (fast 2) + $ whenmod 4 3 (ply "2") + $ "[jazz]" + # gM' "^78" 0 2 +d2 $ g + $ midiOn "^43" (struct "t*[4 8 16 <8 [32 16]>]") + $ "~ ~ h ~ ~ h*2 [<~ h h ~> ] h" # "h2ogmhh" # n "<0!4 1!4 2!4 3!4>" + # gM' "^79" 0 1.25 +d3 $ g + $ loopAt 2 + $ midiOn "^76" (scramble "1 2") + $ midiOn "^44" (scramble "1 8") + $ slice 8 ("0 1 2*<1 <2 4>> 3 4 <5 4> <6!3 4> 7*<1!3 <2 4>>") + $ "fbreak100:4" + # gM' "^80" 0 1.8 +d4 $ g -- Hoover bassline + $ slow 2 + $ n ("0*[4 8]" + prog - 12) + # s "superhoover" + # squizbus 30 (range 1 1.7 "^33") + # crushbus 31 (range 16 1 "^53") + # ampb 32 (range 0 0.125 "^81") + # pan 0.2 + # legato 1.05 +d5 $ g -- Arp aigus Rhodes + $ midiOn ("^58" + 0.05) (struct "t(3,8) t(<5 <4 [2 4]>>,8)") + $ note (arp "" + $ prog + |+ "0 12" + - 24 + ) + # "FMRhodes1" + # ampbus 40 (range 0 0.82 "^82") + # crushbus 41 (range 16 1 "^54") + # modIndex "[0,5]" +d10 $ g + $ "~ [h2ogmcp,clap]" + # gM' "^84" 0 1.5 + # room 0.7 # sz 0.7 # dry 0.9 diff --git a/live/midi/nova/party/last_one.tidal b/live/midi/nova/party/last_one.tidal new file mode 100644 index 0000000..119d6ce --- /dev/null +++ b/live/midi/nova/party/last_one.tidal @@ -0,0 +1,92 @@ +do +let midiGGlobal = "^77" * 1.5 +let _gainG ch = (gain (midiGGlobal * ch)) -- gain Global +let midiG' ch l h = _gainG (range l h ch) -- midiGain control +let midiG ch = midiG' ch 0 1 -- let midiG ch val = (gGain (ch * val)) +let midiOn ch pat = someCyclesBy ch pat +let midiOff ch pat = someCyclesBy (1 - ch) pat +let midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat +let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) +let gDJFb = (# djfbus 1 (range 0.3 0.7 "^49")) +let gLPQ = (# lpqbus 4 (range 0 0.5 "^13")) +let gHPQ = (# hpqbus 5 (range 0 0.5 "^14")) +let gRoom = (# roombus 6 (range 0 0.5 "^14")) +let g = gDJF +setcps (110/60/4) +let prog = " d6'm9 >" +-- let prog = "" +let progm = "< d e >" +d1 $ g + $ midiOn "^41" (<| "k*4") + $ midiOff "^41" (<| "k k") + $ "jazz" + # midiG' "^78" 0 1.8 +d2 $ g + $ whenmod 8 4 (ply "1 <1 2 1 1> <2 1 1 2> <1 1 2 1>") + $ midiOn "^43" (fast 2) + $ "~ s ~ s" # "sn" # n "[1,10]" + # midiG' "^79" 0 1.6 +d3 $ g + $ midiOn "^76" (fast 2) + $ struct "t*[8 <<4 16> 16 <8 [8 4] 4 8> 16>]" + $ "h2ogmhh" # n "[10|11|12]*4" + # midiG' "^80" 0 1.5 +d4 $ g -- Bassline + $ midiOff "^57" (degradeBy $ "0 1!3 0 1!2 0" * 0.5) + $ note ((struct "t(3,8) t(<4 4 5 [5 8]>,8)" + $ arpeggiate prog) + + "[0,<0 12>]" + - 36) + # "bassWarsaw" + # pan 0.2 + # room 0.4 + # crushbus 40 (range 10 2.85 "^53") + # midiG' "^81" 0 1.5 +d5 $ g + $ midiOn "^58" (superimpose ( + struct "t . t(3,8)" + . arpeggiate + . (|+ note 12) + . (# cut 51) + . (|* gain 1.1) + )) + $ note (prog - 12) + # "moog:2" + # midiG' "^82" 0 1.2 + # attack 0.8 + # room 0.4 # sz 0.9 +d6 + $ midiOn "^59" (slice 4 "0 1 2 3") + $ mask "" + $ "fguitar" # n "<34!32 35!16 34!16>" + # midiG' "^83" 0 1.4 + # crushbus 60 (range 10 2.85 "^55") + # cut 6 +d7 $ g + $ midiOn "^60" (mask "t([4 <8 8 4 8>],16)") + $ superimpose ( + (>| note ( + "<0 <-1 2>>" + "0(3,8) 0" + )) + . (|+ note 24) + . (|* gain (1.1 * (range 0 1.25 "^56"))) + ) + $ note ( + progm + + "<0 0 10 0> <7 12>" + + "0 . [0!3 ~] 0*<1!7 2>" + ) + # "cbow:8" + # pan "<0.7!7 0.3>" + # midiG' "^84" 0 (1.5 * "^20") +d8 $ g + $ note ( + struct "t(5,8)" + $ arpeggiate + $ prog + -- + "<0 0 10 0> <7 12>" + -- + "0 . [0!3 ~] 0*<1!7 2>" + ) + # "cbow:10" + # pan "<0.3!7 0.7>" + # midiG' "^84" 0 1 diff --git a/live/midi/nova/party/phunk.tidal b/live/midi/nova/party/phunk.tidal new file mode 100644 index 0000000..9b4abbb --- /dev/null +++ b/live/midi/nova/party/phunk.tidal @@ -0,0 +1,185 @@ + + +do +let midiGGlobal = "^77" * 1.5 +let _gainG ch = (gain (midiGGlobal * ch)) -- gain Global +let midiG' ch l h = _gainG (range l h ch) -- midiGain control +let midiG ch = midiG' ch 0 1 -- let midiG ch val = (gGain (ch * val)) +let midiOn ch pat = someCyclesBy ch pat +let midiOff ch pat = someCyclesBy (1 - ch) pat +let midiNo c1 c2 pat = someCyclesBy (1 - c1 - c2) pat +let gDJF = (# djfbus 1 (range 0.1 0.9 "^49")) +let gDJFb = (# djfbus 1 (range 0.3 0.7 "^49")) +let gLPQ = (# lpqbus 4 (range 0 0.5 "^13")) +let gHPQ = (# hpqbus 5 (range 0 0.5 "^14")) +let gRoom = (# roombus 6 (range 0 0.5 "^14")) +let gSlow = (midiOn "^42" (slow 2)) +let g = gDJF . gSlow +setcps (92/60/4) +let patFunk = "ds gf f " +d1 $ g + $ midiOn "^73" (fast 2) -- Techno + $ midiOn "^41" (<| "k*4") -- Techno + $ midiOff "^41" (<| "k . k <~ [<~ k> ]>")-- RubADub + $ "jazz" + # midiG' "^78" 0 1.8 +d2 $ g + $ whenmod 8 4 (ply "1 <1 2 1 1> <2 1 1 2> <1 1 2 1>") + $ midiOn "^43" (fast 2) + $ "~ s ~ s" # "sn" # n "[1,10]" + # midiG' "^79" 0 1.6 +d3 $ g + $ (# midiG' "^80" 0 1.5) + $ midiOn "^76" (fast 2) + $ midiOn "^44" (const $ + slice 8 "0 1*<1!5 2!3> 2 3 . 0 .. <<3 1>!4 7!3 3>" + $ "breaks165" + # pan 0.75 + # cut 7 + # room 0.2 + # hpf 100 + ) + $ struct "t*[8 <<4 16> 16 <8 [8 4] 4 8> 16>]" + $ "h2ogmhh" # n "[10|11|12]*4" +d4 $ g -- Smells like Bass + $ mask "" + $ note patFunk + # "bass3" + # pan 0.2 + # crushbus 40 (range 10 2.85 "^53") + # midiG' "^81" 0 1.8 +d5 $ g -- Guitar + $ whenmod 8 4 (juxBy 0.75 ((|* gain 0.8) . off "e" id)) + $ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2)) + $ note patFunk + # "pluck" + # room 0.2 + # sz 0.8 + # gain 0.35 + # crushbus 50 (range 10 1.65 "^54") + # midiG' "^82" 0 1.8 +d6 $ g + $ sometimesBy "0 . 1 0" (ply 2) + $ midiOn "^91" (sometimesBy "0!3 1" (rev)) + $ midiOn "^59" (chop (slow 4 "<16 32 48 64>")) + $ "b/4" # "brass:27" + # midiG' "^83" 0 1.5 + # cut 9 +d7 $ g + $ midiOn "^60" ( -- Arps aigus + superimpose ( + (# "cbow:11") + . off "e" id + . mask "t(4,8)" + . (# cut 71) + )) + $ note ("(3,8) f([3 <3 1 1 3> 3],8)") + # "cbow:10" + # midiG' "^84" 0 1.5 + # cut 7 + + +d6 $ g + $ midiOn "^58" (superimpose ( + struct "t . t(3,8)" + . arpeggiate + . (|+ note 12) + . (# cut 51) + . (|* gain 1.1) + )) + $ note (prog - 12) + # "moog:2" + # midiG' "^82" 0 1.2 + # attack 0.8 + # room 0.4 # sz 0.9 + +d6 + $ midiOn "^59" (slice 4 "0 1 2 3") + $ mask "" + $ "fguitar" # n "<34!32 35!16 34!16>" + # midiG' "^83" 0 1.4 + # crushbus 60 (range 10 2.85 "^55") + # cut 6 +d7 $ g + $ midiOn "^60" (mask "t([4 <8 8 4 8>],16)") + $ superimpose ( + (>| note ( + "<0 <-1 2>>" + "0(3,8) 0" + )) + . (|+ note 24) + . (|* gain (1.1 * (range 0 1.25 "^56"))) + ) + $ note ( + progm + + "<0 0 10 0> <7 12>" + + "0 . [0!3 ~] 0*<1!7 2>" + ) + # "cbow:8" + # pan "<0.7!7 0.3>" + # midiG' "^84" 0 (1.5 * "^20") +d8 $ g + $ note ( + struct "t(5,8)" + $ arpeggiate + $ prog + -- + "<0 0 10 0> <7 12>" + -- + "0 . [0!3 ~] 0*<1!7 2>" + ) + # "cbow:10" + # pan "<0.3!7 0.7>" + # midiG' "^84" 0 1 + + + do + -- resetCycles + setcps (92/60/4) + let gain p = gain (1.5 * p) + let gFadeIntro = someCyclesBy "" (|* gain (slow 8 $ range 0 1 saw)) + let patFunk = "ds gf f " + let gDJF = whenmod 32 24 (# djf (slow 8 $ range 0.5 0.15 saw)) + let gPont = whenmod 64 32 (mask "") + let g = (gDJF) + d1 $ g $ gFadeIntro $ gPont + $ mask "" + $ "[bd,jazz]*4" # room 0.1 + # gain 0.45 + d2 $ g $ gFadeIntro $ gPont $ mask "" + $ "~ c ~ c" # "[clap]" # gain 0.4 + d3 $ g $ gPont + -- $ mask "" + $ ( + mask "t . t t(2,4)" + . sometimesBy "0 . <0 1>" (ply "2 . [2|1]*4")) + $ "gretsch:4*16" + # pan 0.25 + # gain (0.35 + 0.1 * (segment 8 perlin)) + d6 $ g -- Final guitare rita + $ whenmod 64 48 (# gain 0.25) + $ slice 16 "0 . 1 <~ 1 2>" + $ loopAt 6 + $ "rita:0" + # gain 0 + # cut 6 + # hpf 400 + + + d8 $ g -- Organic madness + $ mask "" + $ sometimesBy (slow 4 saw) (ply 2) + $ chop 4 + $ someCyclesBy "<0!32 1!4 0!28>" (|* gain (slow 4 $ range 0.5 1 saw)) + -- $ mask "" + $ "forgan:14" + # lpf 1000 + # gain 0.3 * "<1!7 0.95 0.9!7 0.85>" + # cut 8 + d10 -- F-U-N-K + $ mask "" + $ degradeBy "0 <0.5 0.45 0.35 0.3 0.25 0.2 0.15>!7 <1!3 0>" + $ whenmod 64 48 (swing "<6!8 [3 4]!8>") + $ someCyclesBy "<1!48 0!16>" (ply "<1 <2 [4 2]>>") + $ n "5 20 13 10" + # "alphabet" + # release 0.8 + # gain (slow 32 $ range 0.2 0.34 cosine) + # pan "<0.1!4 0.9!4>" diff --git a/live/midi/nova/zelda.tidal b/live/midi/nova/zelda.tidal index 143bc31..5667c78 100644 --- a/live/midi/nova/zelda.tidal +++ b/live/midi/nova/zelda.tidal @@ -1,5 +1,75 @@ once $ "space" # gain 0.4 + + +-- Legend of Main theme +do +-- region Utils +let modIndex = pF "modIndex" +let cF5 ch = cF 0.5 ch +let gDJF = (# djfbus 1 (range 0.15 0.99 "^49")) +let gRoom = (# roombus 2 (cF5 "51")) +let gSize = (# sizebus 3 (cF5 "52")) +let g = gDJF . gRoom . gSize +let gG = 2 * "^77" +let gM' l h ch = gain (range l h (gG * ch)) +let gM ch = gM' ch 0 1 +let ampb bus pat = (ampbus bus (gG * pat)) +let midiOn ch pat = someCyclesBy ch pat +setcps (95/60/4) +-- endregion +d1 $ g + $ midiOn "^42" (fast 2) + $ midiOn "^41" (<| "k k k [ <~ k>]") + $ midiOff "^41" (<| "k . k(<3!3 5>,8)") + $ "[jazz,cpu2]" + # gM' 0 1.2 "^78" +d2 $ g + $ midiOn "^43" (fast 2) + $ "h*8" + # "hh" + # gM' 0 1.5 "^79" +d3 $ g + $ midiOff "^41" (slow 2) + $ midiOn "^44" (slow 2) + $ midiOn "^76" (loopAt 0.5) + $ slice 8 "[0 <0 1> <0 0 2 2> <0!4 3!4>]*4" + $ "breaks165" + # gM' 0 1 "^80" +d4 $ g + $ note ("a e . a ~ ~ " + - 24) + # "bassWarsaw" + # ampb 40 (range 0 0.45 "^81") + # room 0.2 + # crushbus 41 (range 16 2.95 "^53") +d5 $ g + $ note (cat [ + "a e . [~ . a] [a b c6 d6]", + "e6 . ~ ~", + "a e . [~ . a] [a b c6 d6]", + "e6 . ~ ~", + "a e . [~ . a] [a b c6 d6]", + "e6 . ~ [e6*2]", + "f6 . ~ g6 . a6 ~", + "a6 a6 g6 f6 . g6 [~ f6] e6 ~", + "[d6 ~ d6 e6] f6 . ~ [f6 . e6 d6]", + "[c6 ~ c6 d6] e6 . ~ [e6 . d6 c6]", + "[b5 ~ b5 cs6] ds6 . ~ fs6", + "e6" + ] - 12 + ) + # "FMRhodes1" + # modIndex (range 1 15 "^54") + # ampb 50 (range 0 0.45 "^82") + + + + + + + +-- V0.1 Noel 2020 do -- region Nova Utils let gF = 1.5 diff --git a/live/mood/fight/clav_clash.tidal b/live/mood/fight/clav_clash.tidal index a4a246b..1fcd9ca 100644 --- a/live/mood/fight/clav_clash.tidal +++ b/live/mood/fight/clav_clash.tidal @@ -19,7 +19,7 @@ d4 -- Clav clash kalash! $ loopAt 2 $ "fclav" # n 10 - # gain 0.5 + # gain 0.65 # cut 4 d5 -- Cymbales noise $ sometimesBy "<1!16 0!112>" (|* gain (slow 16 $ saw)) @@ -52,6 +52,6 @@ d7 -- LEAD PIANO! $ arp "" $ note ("" + "c'majPent'4 c'minPent'4") # "superpiano" - # velocity (slow 256 $ range 0.25 0.55 cosine) + # velocity (slow 256 $ range 0.25 0.5 cosine) # pan 0.6 # legato 2 # room 0.1 -- libgit2 0.27.0