From 6d4bb5a39882e7a71877f425490d08de51f7e8ec Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Fri, 30 Apr 2021 01:35:36 +0200 Subject: [PATCH] live: jeudi incident --- live/collab/julien.tidal | 47 ----------------------------------------------- live/disco/high.tidal | 5 ++--- live/fusion/elephunk.tidal | 5 ++--- live/jam/cbow.tidal | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/FFF/pray.tidal | 2 +- live/midi/nova/breaks/break_90s.tidal | 7 +++++-- live/midi/nova/breaks/slower.tidal | 4 ++-- live/midi/nova/computer_riddim.tidal | 7 ++++--- live/midi/nova/dnb/lucy_rode.tidal | 4 +++- live/midi/nova/dnb/meurice.tidal | 21 ++++++++++++++------- live/midi/nova/lofi/new_dust.tidal | 21 +++++++++++++++++---- live/midi/nova/lounge/cbow.tidal | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/lounge/invoque_ete.tidal | 1 + live/midi/nova/lounge/michael.tidal | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/midi/nova/lounge/top_hats.tidal | 2 +- live/midi/nova/minneapolis.tidal | 17 +++++++++-------- live/midi/nova/party/dark_angel_frappe.tidal | 46 ++++++++++++++++++++++++---------------------- live/midi/nova/party/electro_blues.tidal | 23 ++++++++++++----------- live/midi/nova/party/funk_angel_frappe.tidal | 79 ------------------------------------------------------------------------------- live/midi/nova/tidal_crime.tidal | 9 +++++---- live/mood/fight/clav_clash.tidal | 6 ++++-- 21 files changed, 333 insertions(+), 200 deletions(-) delete mode 100644 live/collab/julien.tidal create mode 100644 live/jam/cbow.tidal create mode 100644 live/midi/nova/lounge/cbow.tidal create mode 100644 live/midi/nova/lounge/michael.tidal delete mode 100644 live/midi/nova/party/funk_angel_frappe.tidal diff --git a/live/collab/julien.tidal b/live/collab/julien.tidal deleted file mode 100644 index 4ddf0d5..0000000 --- a/live/collab/julien.tidal +++ /dev/null @@ -1,47 +0,0 @@ -resetCycles - - -setcps (135/60/4) - -do -let maskIntro = mask "" -d1 - $ maskIntro - $ superimpose ((# "gretsch") . (|* gain 0.8)) - $ "k . ~ k ~ ~" - # "[jazz,bd]" - # gain 0.5 -d2 - $ maskIntro - $ superimpose (const -- Tchak - $ whenmod 16 12 (fast "<2 4 4 8>" . ("q" <~) . mask "t f") - $ mask "" - $ "~ s ~ s*<1!7 2>" - # "[gretsch:2,sn:2]" # lpf 4000 - # room (slow 4 $ perlin * 0.35) - # gain 0.55) - $ whenmod 8 6 (# lpf "<4000 2000>") - $ splice 8 (run 8) $ "breaks165" - # gain (slow 16 $ range 0.2 0.55 saw) -d3 - $ someCyclesBy "<1!8 0!28>" (mask "t(<0!4 4!4>,4)") - $ whenmod 4 3 (degradeBy "0 0.5!6 0") - $ sometimesBy "0 0.1!6 0.5" (fast 2) - $ "drum:2*8" # gain 0.5 -d4 - $ note ("" - + "" - ) - # "supersaw" # voice 0.1 - # gain 0.2 # pan 0.9 # room 0.1 -d5 - $ someCyclesBy "<1!2 0!14>" (|* gain 1.2) - $ "day:1/2" - # gain (slow 16 $ range 0.45 0.5 sine) - # gain 0.65 - # hpfbus 4 (range "-50" 5000 sine) - # legato 2 - # cut 5 - - -once $ "dr" # cut 1 diff --git a/live/disco/high.tidal b/live/disco/high.tidal index e7b79c4..0449a79 100644 --- a/live/disco/high.tidal +++ b/live/disco/high.tidal @@ -17,11 +17,11 @@ setcps (125/60/4) d1 $ whenInFade $ mask "" -- Masked intro - $ mask "" + -- $ mask "" $ superimpose (# lpf 200) $ "kicklinn*4" # release 0.15 - # gain 0.8 + # gain 0.89 d2 $ whenInFade $ mask "" -- Masked intro @@ -54,7 +54,6 @@ d3 d4 -- Cymb $ whenInFade $ whenMont (fast "<[1!3 2] [1 2 1 2] 1 [1 2!3]>") - $ whenDrop ((jux rev) . (# hpf 500)) $ degradeBy (slow 16 $ "<1 0.8 0.5 0>") $ sometimesBy "0.1 0 <1 1 1 0.5> <0 0.1!2 1>" (ply 2) $ fast 4 "~ electro1:1" diff --git a/live/fusion/elephunk.tidal b/live/fusion/elephunk.tidal index a266ecf..7c281a6 100644 --- a/live/fusion/elephunk.tidal +++ b/live/fusion/elephunk.tidal @@ -1,6 +1,7 @@ do -- resetCycles -setcps (92/60/4) +-- 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)) @@ -33,8 +34,6 @@ d5 $ g # room 0.6 # sz 0.8 # gain 0.35 - - d6 $ g -- Final guitare rita $ whenmod 64 48 (# gain 0.25) $ slice 16 "0 . 1 <~ 1 2>" diff --git a/live/jam/cbow.tidal b/live/jam/cbow.tidal new file mode 100644 index 0000000..f704c2c --- /dev/null +++ b/live/jam/cbow.tidal @@ -0,0 +1,72 @@ +d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1 + +resetCycles + +-- P P T . P T +-- P T . PP P T +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 g = gF . gLeslie +setcps (100/60/4) +d1 $ gDJF $ g + $ midiOff "^41" (mask "") + $ midiOn "^41" (<| "k*4" ) + $ midiOff "^41" (<| "k [~!6 ] . k*2 ~" ) + $ "[jazz,bd]" + # midiG' "^78" 0 0.75 +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 +d3 $ g -- Bass + $ gDJF + $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8) + $ slow 4 + $ note ( + (arp "up " chord)) + # "cbow:0" + # pan 0.3 + # cut 3 + # room 0.6 + # sz 0.5 + # midiG' "^81" 0 0.56 + # crush (range 10 2 "^53") +d4 $ g + -- $ mask "" + $ whenmod 8 7 (ply "1 4") + $ slow 2 + $ whenmod 16 8 (ply 2) + $ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1))) + $ note (arp "converge" chord) + # pan 0.4 + # "cbow:2" + # cut 4 + # room 0.2 + # midiG' "^82" 0 0.4 +d5 $ g -- Breakbeat + $ midiOn "^76" (fast "<2!3 4>") + $ midiOff "^44" (slow "<4 2>") + $ sometimesBy "^32" rev + $ someCyclesBy (0.9 * "^52") (scramble "1 4") + $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>" + $ loopAt 2 + $ "fbreak100" + # cut 5 + # midiG' "^80" 0 0.8 +d8 $ g -- Angels + $ midiOff "^59" (mask "") + $ note "<[c . ~!3 <~ >] a4>" + # "cbow:3" + # cut 8 + # midiG' "^83" 0 0.56 + +d4 + $ whenmod 32 16 (jux rev) + $ "h2ogmcp(5,8,<0!3 [0 3]>)" + # gain 0.45 + +(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn ( diff --git a/live/midi/nova/FFF/pray.tidal b/live/midi/nova/FFF/pray.tidal index e66fec3..85d04a2 100644 --- a/live/midi/nova/FFF/pray.tidal +++ b/live/midi/nova/FFF/pray.tidal @@ -60,7 +60,7 @@ d5 -- Fragments of Wiley $ novaOn "^90" (segment "<2 [2 4] [4 8] [16 32]>") $ novaOn "^58" (slow 16) $ novaOff "^58" (slow 4) - $ "pray" -- TODO INTRO then /4 + $ "pray" # crush (range 10 2.5 "^54") # n "<0!4 1!8>" # cut 5 diff --git a/live/midi/nova/breaks/break_90s.tidal b/live/midi/nova/breaks/break_90s.tidal index 0b222f7..77eab72 100644 --- a/live/midi/nova/breaks/break_90s.tidal +++ b/live/midi/nova/breaks/break_90s.tidal @@ -6,6 +6,8 @@ import Sound.Tidal.ParVagues.Control setcps (80/60/4) resetCycles +once "dr" + -- Break90s∷ :) do -- let gF = (whenmod 32 28 (# djf (slow 4 $ range 0 0.5 sine))) @@ -13,8 +15,9 @@ let gDJF = (midiDJF "^49" 0 10000 0 10000) let g = (gDJF) d1 $ g - $ midiOn "^41" (superimpose (# "kick:5") - . (<| "k k k k k k k k*2") + $ midiOn "^41" (superimpose ((# "kick:5") + . (|* gain 0.9)) + . (<| "k k k k k k k [ ]") . (# room 0) . (|* gain 0.9) ) diff --git a/live/midi/nova/breaks/slower.tidal b/live/midi/nova/breaks/slower.tidal index 6757d37..244b151 100644 --- a/live/midi/nova/breaks/slower.tidal +++ b/live/midi/nova/breaks/slower.tidal @@ -5,7 +5,7 @@ setcps (80/60/4) resetCycles do -let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.1 0.5 sine))) +let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine))) let gDJF = (midiDJF "^49" 200 9800 0 200) let gFreqL = (# lpq (range 0 0.25 "^29")) let gFreqH = (# hpq (range 0 0.25 "^30")) @@ -65,7 +65,7 @@ d5 -- fmono # crush (range 12 1.85 "^54") # midiG' ("^82" + 0.125 * "^54") 0 1.2 # room 0.3 # sz 0.8 # dry 1 -d9 -- Hats +d9 -- Maracas Hats $ g $ fix ( midiOff "^60" (slow 4) diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index 96c6c89..fdce9a4 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -7,7 +7,7 @@ do -- region Nova Utils -let gFactor = 1.25 +let gFactor = 1.45 let gG a = (gain (gFactor * "^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 @@ -109,8 +109,9 @@ d8 -- Trompette lancinante $ g $ gDelayD $ degradeBy "^35" $ novaOn "^59" (mask "") - $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.85)) - $ note (" bf d ~]> " + "0 <12 0>") + $ superimpose ((|- note 12) . (# cut 81) . (|* gain 0.95)) + $ note (" bf d ~]> " + "0 <12 0>" + - 12) # "brass" # n "2" # gM' 0.2 1 "^55" # attack 0.5 diff --git a/live/midi/nova/dnb/lucy_rode.tidal b/live/midi/nova/dnb/lucy_rode.tidal index 468c876..1a91e46 100644 --- a/live/midi/nova/dnb/lucy_rode.tidal +++ b/live/midi/nova/dnb/lucy_rode.tidal @@ -1,6 +1,6 @@ import Sound.Tidal.ParVagues.Control -once "dr" +once $ "dr" # gain 0.8 resetCycles setcps (60/60/4) @@ -32,6 +32,7 @@ do $ slice 4 (run 4) $ "fbreak80:4" # midiG' "^79" 0 2 + # leslie "^51" # lrate 6.7 # cut 2 d3 $ g -- Drumroll $ midiOn "^41" ( @@ -59,6 +60,7 @@ do # 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" diff --git a/live/midi/nova/dnb/meurice.tidal b/live/midi/nova/dnb/meurice.tidal index e8c45fb..583e94a 100644 --- a/live/midi/nova/dnb/meurice.tidal +++ b/live/midi/nova/dnb/meurice.tidal @@ -24,7 +24,7 @@ d2 $ g $ g32Bridge $ whenmod 16 12 (struct "t*<4 4 8 16>") - $ whenmod 16 8 (fast 2) + $ whenmod 16 4 (fast 2) $ "~ cp" # "[snare:4,snare:22]" # pan 0.55 @@ -32,11 +32,11 @@ d2 # room 0.8 # dry 0.99 # sz 0.2 # midiG' "^79" 0 1.2 d3 -- Running Hats - $ g - $ degradeBy ("1 0 0 1!13" - "^52") - $ midiOn "^44" (fast 2) - $ "h2ogmhh*8" - # n "[0|0|0|0|1|1|3|3]*8" + -- $ g + -- $ degradeBy ("1 0 0 1!13" - "^52") + -- $ midiOn "^44" (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)) # room (slow 8 $ range 0.2 0.45 saw) # sz (slow 8 $ range 0.8 0.2 saw) @@ -81,7 +81,14 @@ d7 -- Guitar B # lsize (1 + (slow 8 perlin * 2)) # lrate 6.7 # cut 71 - +d8 $ g -- Clave de l'été + $ midiOn "^59" (fast 2) + $ midiOn ("^91"-"^59") (fast 2) + $ (|* gain "0.75 1 1 1 0.75 1 1 1") + $ "d ~ ~ d d ~ d <~!3 d>" + # "[<808lc!6 808hc!2>,<~!4 808mc!4>]" + # speed (range 0.5 2 "^55") + # midiG' "^83" 0 1.5 d6 $ "seawolf:0/4" diff --git a/live/midi/nova/lofi/new_dust.tidal b/live/midi/nova/lofi/new_dust.tidal index 1746e99..cea59b1 100644 --- a/live/midi/nova/lofi/new_dust.tidal +++ b/live/midi/nova/lofi/new_dust.tidal @@ -84,12 +84,12 @@ d5 $ g -- Infectious Bassline # legato 2 # "bassWarsaw" # width "^34" - -- # crush (range 16 2.5 "^54") -- Manual crush enabler + # crush (range 16 2.5 "^54") -- Manual crush enabler # midiG' "^82" 0 1 - # room 0 + # room 0.2 d7 -- TOYS + $ degradeBy (0.99 - "^55") $ somecyclesBy "<0!4 1 1 0 1>" (often (# speed "-1")) - $ degradeBy (slow 16 $ "<0.95 0.8 0.45 [0 0.2!3]>") $ slice 8 (stack [ "<~!8 4!4 [4 5]!4>", -- Classico "<0!4 1 0 1 [0 1]>*<4!4 8 4 8 8>", -- Toy melod @@ -100,12 +100,25 @@ d8 $ g -- Toy bogdan $ fix (|* gain 0.75) "hh" $ every' 16 15 (>| "~ ~ ~ bogdan:4") $ every' 16 9 ((>| "~ ~ ~ bogdan:2") . (|* gain 0.8)) + $ every' 16 1 (>| "~ ~ ~ bogdan:4") $ "~ ~ ~ hh" # room 0.5 # legato 2 # hpf 200 # midiG' "^84" 0.5 1.1 # leslie 0.2 # lrate 6.7 # lsize 0.7 +d9 $ g -- Toy Dusty + $ slice 24 + (cat [ + "0 0", + "~ 1 ~ 1", + "0 0 0 0", + "~ 1 ~ 1 ~ 1 2 3" + -- "2", + -- "0 1*2 2 ~ ~ ~ ~ ~" + ]) + $ "dusty" + # cut 9 # gain 0.65 + # midiG' "^56" 0.3 1.1 -once $ ""# cut 21 once $ "dr" # cut 21 # gain 0.5 diff --git a/live/midi/nova/lounge/cbow.tidal b/live/midi/nova/lounge/cbow.tidal new file mode 100644 index 0000000..f704c2c --- /dev/null +++ b/live/midi/nova/lounge/cbow.tidal @@ -0,0 +1,72 @@ +d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1 + +resetCycles + +-- P P T . P T +-- P T . PP P T +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 g = gF . gLeslie +setcps (100/60/4) +d1 $ gDJF $ g + $ midiOff "^41" (mask "") + $ midiOn "^41" (<| "k*4" ) + $ midiOff "^41" (<| "k [~!6 ] . k*2 ~" ) + $ "[jazz,bd]" + # midiG' "^78" 0 0.75 +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 +d3 $ g -- Bass + $ gDJF + $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8) + $ slow 4 + $ note ( + (arp "up " chord)) + # "cbow:0" + # pan 0.3 + # cut 3 + # room 0.6 + # sz 0.5 + # midiG' "^81" 0 0.56 + # crush (range 10 2 "^53") +d4 $ g + -- $ mask "" + $ whenmod 8 7 (ply "1 4") + $ slow 2 + $ whenmod 16 8 (ply 2) + $ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1))) + $ note (arp "converge" chord) + # pan 0.4 + # "cbow:2" + # cut 4 + # room 0.2 + # midiG' "^82" 0 0.4 +d5 $ g -- Breakbeat + $ midiOn "^76" (fast "<2!3 4>") + $ midiOff "^44" (slow "<4 2>") + $ sometimesBy "^32" rev + $ someCyclesBy (0.9 * "^52") (scramble "1 4") + $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>" + $ loopAt 2 + $ "fbreak100" + # cut 5 + # midiG' "^80" 0 0.8 +d8 $ g -- Angels + $ midiOff "^59" (mask "") + $ note "<[c . ~!3 <~ >] a4>" + # "cbow:3" + # cut 8 + # midiG' "^83" 0 0.56 + +d4 + $ whenmod 32 16 (jux rev) + $ "h2ogmcp(5,8,<0!3 [0 3]>)" + # gain 0.45 + +(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 b947fe3..fc38535 100644 --- a/live/midi/nova/lounge/invoque_ete.tidal +++ b/live/midi/nova/lounge/invoque_ete.tidal @@ -17,6 +17,7 @@ let gFreqH = (# hpq (range 0 0.25 "^30")) let gFreqs = (gFreqH . gFreqL) let gDJF = (gLPF . gHPF) let g = gDJF . gFreqs +-- let g = id d1 $ g $ midiOn ("^42" - "^41") (slow 4) $ midiOn "^41" (<| "k k k ") diff --git a/live/midi/nova/lounge/michael.tidal b/live/midi/nova/lounge/michael.tidal new file mode 100644 index 0000000..d5eeb63 --- /dev/null +++ b/live/midi/nova/lounge/michael.tidal @@ -0,0 +1,83 @@ +setcps (120/60/4) +resetCycles +-- Michael: lounge piano/brass tech/break +do +let gDJF = midiDJF "^49" 200 9800 0 1000 +let g = gDJF +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)") + $ "jazz" + # room 0.5 # sz 0.5 + # dry 1 + # midiG' "^78" 0 1.6 +d2 $ g + $ whenmod 8 6 (ply "2 <2 4>") + $ "~ s . ~ <~!7 s> <~!3 s>" # "snare:20" + # midiG "^79" +d3 + $ 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 +d4 $ g -- Synth brass choir + $ midiOn "^57" (# crush 6) + $ fix ( + (# "fsynth:3") + . (|- note 24) + . (|+ pan 0.1) + . (|* gain "^53") + ) "a" + $ fix ( + (# "fsynth:3") + . (|- note 12) + . whenmod 4 2 (often (ply 2)) + . (# pan (perlin)) + . (|* gain "^33") + ) "b" + $ fix ( + (# "fsynth:3") + . slice 8 "0 1 2*<<1 2> 1 2 1> 3*<<1 2> 4>" + . arp "pinkyup" + . (|+ pan 0.1) + . (>| note ("c'maj'3" - 7)) + . (|* gain ("^17" * 0.9)) + ) "c" + $ slice 4 "<0 1 2 3>" + $ "[a,b,c]" + # midiG' "^81" 0 1.5 + # room 0.3 + # sz 0.6 +d5 $ g -- Jumpy Piano + $ midiOff "^58" (struct "t(2,4)") + $ degradeBy ("0 0.95!7 0" - "^34") + $ juxBy 0.8 (rev . (# cut 51)) + $ mask "f !3 . t" + $ slice 8 (run ("4 <4 8>" * "<1!3 2>")) + $ "fpiano:3" # gain 1.25 + # cut 5 + # crush (range 16 3 "^54") + # room 0.5 + # sz 0.7 + # midiG' "^82" 0 1.5 +d7 $ g + $ slice 8 (run ("<2!3 4>" * "<1!4 2!4 [2 1]*4 [2 4]*4>")) + $ "forgan:17" # cut 7 + # midiG' "^83" 0 (1.2 - 0.5 * "^55") + # crush (range 16 1.5 "^55") +d8 $ g + $ loopAt 2 + $ degradeBy ("0 0.9!7 0" - "^36") + $ scramble 2 + $ slice 8 (run 8) + $ "fbreak120" + # room 0.8 + # dry (1 + (slow 8 $ perlin * "^56")) + # midiG' "^84" 0 1.5 + # cut 6 diff --git a/live/midi/nova/lounge/top_hats.tidal b/live/midi/nova/lounge/top_hats.tidal index 0088508..7f3d04b 100644 --- a/live/midi/nova/lounge/top_hats.tidal +++ b/live/midi/nova/lounge/top_hats.tidal @@ -20,7 +20,7 @@ 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.25)) + ((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.35)) ) $ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>") $ "hh27" # n "[5,6]" diff --git a/live/midi/nova/minneapolis.tidal b/live/midi/nova/minneapolis.tidal index a300e00..c5820f6 100644 --- a/live/midi/nova/minneapolis.tidal +++ b/live/midi/nova/minneapolis.tidal @@ -38,6 +38,7 @@ d1 $ g # gM' 0 1 "^78" d2 $ g $ mask " . t" + $ novaOn "^75" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")) $ sometimesBy ("^43") -- Stut (mask "t(<8!2 12!2>,16)" . stut 4 0.9 "s") $ every' 8 7 (mask "f t!3" . jux rev) @@ -51,7 +52,7 @@ d3 $ g -- Drumroll opposé hit roll / hh when TECHNO sometimesBy "0!15 <0!4 1!4>" (# silence) . sometimesBy "0!14 <1!3 1> 0" ((# "hh:1") . (|* gain 1.4)) . fast 2) . - (|* gain 0.8) . + (|* gain 0.75) . (>| "ho*8") ) $ novaOff "^44" (fast "<4!3 <2 [2 <8 [8 16]>]>>") -- Waiting roll @@ -100,12 +101,12 @@ d5 $ g -- Basse + Sirene . (-| note 12) -- 24 when crushed . (# gM' 0.2 0.8 (( "^81" -- gain bass - * (range 0.6 0.9 "^33") -- Modulated 5C + * (range 0.7 0.9 "^53") -- Modulated 5C ) - (0.125 * "^57") -- When TECHNOPHILE )) . (# crush (range 10 3 - "^53")) + "^33")) . (# room 0.5) . (# size 0.8) ) @@ -115,8 +116,8 @@ d5 $ g -- Basse + Sirene ) # s "supersaw" # voice 0.15 - # crush (range 10 2 "^53") - # gM' 0 0.8 ("^81" * (range 0.9 0.4 "^33")) -- Modulated 5C + # crush (range 10 2 "^33") + # gM' 0.2 0.8 ("^81" * (range 1 0.45 "^53")) -- Modulated 5C # pan (slow 10 $ range 0.6 0.8 sine) d7 $ g -- Claps fantome $ sometimesBy (range 0 0.25 "^55") (stut 4 0.9 "s") @@ -131,14 +132,14 @@ d7 $ g -- Claps fantome d8 $ g -- Gunfire $ sometimesBy "^20" ( superimpose (const -- pistolets - $ sometimes ( -- réplique + $ someCyclesBy 0.25 ( -- réplique off 0.5 (|+ gain 0.1) . (# room 0.25) ) - $ often (stut 2 0.85 (1/16)) -- écho + $ sometimes (stut 2 0.55 ("[s|e|h]")) -- écho $ s "~ ~ ~ snare:57" # speed (range 0.4 1 ("^36" + (slow 4 $ perlin/3))) - # gM' 0 1 ("^56") + # gM' 0 1 "^56" # cut 80 # dry 1.02 # pan (range 0.2 0.8 perlin) diff --git a/live/midi/nova/party/dark_angel_frappe.tidal b/live/midi/nova/party/dark_angel_frappe.tidal index aa12d56..230c237 100644 --- a/live/midi/nova/party/dark_angel_frappe.tidal +++ b/live/midi/nova/party/dark_angel_frappe.tidal @@ -9,33 +9,34 @@ let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux 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 gRes = (# hpq "^29") . (# lpq "^30") +let gRes = (# hpq (range 0.01 0.5 "^29")) . (# lpq (range 0.01 0.5 "^30")) let novaOn ch pat = (someCyclesBy ch pat) let novaOff ch pat = someCyclesBy (1 - ch) pat -- endregion Nova Utils let g = (gDJF . gRes) setcps 0.5 d1 $ g - -- $ mask "" - $ "k k k " - # "[jazz,cpu]" - # room 0.8 # sz 0.8 # dry 1 - # gM' 0 1.6 "^78" + $ midiOn "^42" (<| "k k k k") + $ midiOn "^41" (<| "k k k ") + $ midiNo "^42" "^41" (<| "k . k(<<3 [3 5]> 3 3 5>,8)") + $ "[jazz,cpu,bd:8]" + # room 0.2 # sz 0.8 # dry 1 + # gM' 0 1.16 "^78" d2 $ g -- Clap $ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2")) $ novaOff "^60" (# silence) $ "~ [clap,]" # lpf 2500 # room 0 # dry 0.99 - # gM' 0 1.3 "^84" + # gM' 0 1.13 "^84" d3 $ g -- Break 4/4 - -- $ sometimes (off "e" id) + $ midiOn "^43" (slow 2) $ fix (|* gain 0.8) (n 2) $ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>" # "amencutup" - # gain 1.2 - # gM' 0 1.4 "^79" + # note (range "-12" 12 "^51") # pan 0.4 + # gM' 0 1.4 "^79" d8 $ g -- Hats $ fix (|* gain 0.9) ("hh27") $ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]" @@ -44,14 +45,14 @@ d8 $ g -- Hats # gM' 0 1.45 "^80" d4 -- RESONANT BASSLINE $ g - $ novaOn "^81" (slow "2 . 2 <1!3 0.5>") + $ novaOn "^57" (slow "2 . 2 <1!3 0.5>") $ whenmod 16 12 ( degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin)) . (# legato 2) ) $ note "b2!6 > b2" # "supersaw" - # gM' 0 1 "^81" - # crush (range 10 3 "^53") + # gM' 0 1 ("^81" - 0.2 * "^53") + # crush (range 10 1 "^53") # room 0.5 # sz 0.8 d5 $ g -- Synth voices $ novaOff "^58" (# silence) @@ -59,14 +60,15 @@ d5 $ g -- Synth voices $ loopAt 2 $ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>") $ "fsynth:47" - # gM' 0 1 "^82" + # crush (range 10 2 "^54") + # gM' 0 1 ("^82" - 0.2 * "^54") # cut 5 -d7 $ g -- Fill drums - $ (|* gain (slow 10 $ range 0.9 1.2 perlin)) - -- $ loopAt 2 - $ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>" - -- $ mask "" - $ "ffills:7" +d7 $ g -- Side guitar + $ sometimesBy "^35" (scramble 16) + $ mask "" + $ loopAt 2 + $ "fguitar:61" # cut 7 - # pan 0.6 - # gM' 0 1.5 "^83" + # pan 0.2 + # crush (range 16 2 "^55") + # gM' 0 1 "^83" diff --git a/live/midi/nova/party/electro_blues.tidal b/live/midi/nova/party/electro_blues.tidal index fcd8c9c..b1f4af8 100644 --- a/live/midi/nova/party/electro_blues.tidal +++ b/live/midi/nova/party/electro_blues.tidal @@ -13,24 +13,25 @@ d1 -- Kick rarement doublé $ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>") $ "k*4" # "jazz" # room 0.1 # dry 0.99 # sz 0.6 - # midiG' "^77" 0 1.5 + # midiG' "^78" 0 1.5 d2 $ g $ "~ [jazz:4,cp]" # hpf (range 0 10000 perlin) - # midiG "^78" + # midiG "^79" d3 -- Snakes $ juxBy (slow 8 $ range 0.1 0.9 sine) rev $ fast 4 $ "s . s <~!3 s>" # "hh*6" - # gain (slow 32 $ range 0.55 1.2 saw) + # midiG "^80" d4 - $ never (superimpose ( - ply "<2 4 [4 8] 8>" . - mask "t(1,4)" . arpeggiate . (# "supermandolin") - . (|* gain 0.8) - . (# pan 0.6) - . (# crush 16) + $ midiOn "^57" (juxBy 0.2 ( + -- ply "<2 4 [4 8] 8>" . + arpeggiate + -- . (# "supermandolin") + -- . (|* gain 0.8) + -- . (# pan 0.6) + -- . (# crush 16) )) $ note ( cat blues + chord @@ -43,7 +44,7 @@ d4 # midiG' "^81" 0 1.3 d5 -- Choeurs $ juxBy 0.5 ( - (0.5 ~>) . midiOn "^59" (superimpose ( + (0.5 ~>) . midiOn "^58" (superimpose ( arpeggiate . (|+ note chordAug) . (|+ pan 0.05) @@ -56,6 +57,6 @@ d5 -- Choeurs $ note (cat blues) # "moogBass" # octave 3 - # midiG' "^83" 0 1.4 + # midiG' "^82" 0 1.4 # room 0.4 # size 0.7 # dry 1.05 diff --git a/live/midi/nova/party/funk_angel_frappe.tidal b/live/midi/nova/party/funk_angel_frappe.tidal deleted file mode 100644 index 947a69e..0000000 --- a/live/midi/nova/party/funk_angel_frappe.tidal +++ /dev/null @@ -1,79 +0,0 @@ --- FUNKY ANGEL FRAPPE --- Needs bass/more lead high? -do --- region Nova Utils -let gFactor = 1.4 -let gG a = (gain (gFactor * "^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 gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) -let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) -let gDJF = (gLPF . gHPF) -let gRes = (# hpq "^29") . (# lpq "^30") -let novaOn ch pat = (someCyclesBy ch pat) -let novaOff ch pat = someCyclesBy (1 - ch) pat --- endregion Nova Utils -let g = (gDJF . gRes) -setcps 0.5 -d1 $ g - -- $ mask "" - $ "k k k " - # "[jazz,cpu]" - # room 0.8 # sz 0.8 # dry 1 - # gM' 0 1.5 "^78" -d2 $ g -- Clap - $ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2")) - $ novaOff "^60" (# silence) - $ "~ [clap,]" - # lpf 2500 - # room 0 # dry 0.99 - # gM' 0 1.3 "^84" -d3 $ g -- Break 4/4 - -- $ sometimes (off "e" id) - $ fix (|* gain 0.8) (n 2) - $ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>" - # "amencutup" - # gain 1.2 - # gM' 0 1.2 "^79" - # pan 0.4 -d8 $ g -- Hats - $ fix (|* gain 0.9) ("hh27") - $ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]" - # "[drum:2,hh27:4]" - # pan (slow 16 $ range 0.4 0.6 saw) - # gM' 0 1.35 "^80" -d4 -- RESONANT BASSLINE - -- $ (# lpq (range 0 0.8 "^53")) - -- $ (# lpf (slow 32 $ min 10000 (range 500 15000 sine))) - $ g - $ novaOn "^81" (slow "2 . 2 <1!3 0.5>") - $ whenmod 16 12 ( - degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin)) - . (# legato 2) - ) - -- $ juxBy 0.8 (# crush (slow 16 $ range 16 5 isaw)) - $ note "b2!6 > b2" # "supersaw" - -- # accelerate ("<0!60 -0.1 -0.1 -0.2 -0.2>") - # gM' 0 1 "^81" - # crush (range 10 3 "^33") - # room 0.5 # sz 0.8 -d5 $ g -- Synth voices - $ novaOff "^58" (# silence) - $ whenmod 8 4 (juxBy 0.25 (rev . (# cut 51))) - $ loopAt 2 - $ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>") - $ "fsynth:47" - # gM' 0 1 "^82" - # cut 5 - - - -d7 $ g -- Fill drums - $ (|* gain (slow 10 $ range 0.9 1.2 perlin)) - -- $ loopAt 2 - $ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>" - -- $ mask "" - $ "ffills:7" - # cut 7 - # pan 0.6 - # gM' 0 1.5 "^83" diff --git a/live/midi/nova/tidal_crime.tidal b/live/midi/nova/tidal_crime.tidal index 38d7a9d..0def98b 100644 --- a/live/midi/nova/tidal_crime.tidal +++ b/live/midi/nova/tidal_crime.tidal @@ -8,7 +8,7 @@ once $ "dr" # gain 1.2 do -- region Nova Utils -let gFactor = 1.2 +let gFactor = 1 let gG a = (gain (gFactor * "^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 @@ -48,11 +48,12 @@ d3 $ g $ novaOn ("^76") --BOUTON NASSIM (slice 8 ("<[0 .. 7]!3 [0 1 2 ~ . 0 1 2 ~]>") . (loopAt 1) . (>| "breaks125") + . (|* gain 0.9) ) $ novaOff "^76" (|* gain (slow 16 $ range 0.7 1 saw)) $ "d d d d d d d*2 d" # "[drum:2,amencutup:5]" - # gM' 0 0.75 "^80" + # gM' 0 1.25 "^80" # pan (slow 16 $ range 0.1 0.9 sine) # room 0.2 # dry 0.99 d4 $ g $ gP -- Gauche @@ -92,7 +93,7 @@ d7 $ g # sawHarmonic 1.9 # pan 0.1 # mix 0.8 - # gM' 0 0.8 "^83" + # gM' 0 1.1 "^83" # room 0.2 d8 $ g $ novaOn "^90" (chop 16) @@ -102,7 +103,7 @@ d8 $ g # voice (range 0.1 2 "^34") # room 0.6 # sz 0.2 # gM' 0.4 1 "^82" - # crush (range 10 3.6 "^54") + # crush (range 12 3.6 "^54") d9 $ note ("gs5(3,8)") # "supergong" # gM' 0 0.8 "^83" diff --git a/live/mood/fight/clav_clash.tidal b/live/mood/fight/clav_clash.tidal index 42d6de6..a4a246b 100644 --- a/live/mood/fight/clav_clash.tidal +++ b/live/mood/fight/clav_clash.tidal @@ -1,12 +1,13 @@ do setcps (60/60/4) -resetCycles +-- resetCycles d1 -- Kick chaloupé $ mask "" $ whenmod 32 24 (# djf (slow 8 $ range 0.5 1 isaw)) $ "k . k(<5 3 5 [4 8]>,8)" # "[reverbkick,jazz]" # gain 0.6 + # room 0.2 d3 -- Drumroll léger $ sometimesBy "<0!3 1 0 1!3 0!120>" (stut "<4!3 3>" 0.5 "s") $ someCyclesBy "<0.2!3 0.5>" (fast 2) @@ -36,12 +37,13 @@ d6 -- Nappes Rhodes $ note (">") # "FMRhodes1" # pan 0.2 - # gain 0.8 + # gain 0.96 d7 -- LEAD PIANO! $ mask "" $ whenmod 64 48 ( euclid (slow 2 $ "<1 2 3 3 4 5 5 8>") 8 . (# crush "<16 14 10 9>") + . (|* gain 0.9) ) $ off ("q" + "<0!8 s!8>") ( |+ note "!16>" -- libgit2 0.27.0