diff --git a/live/midi/nova/computer_riddim.tidal b/live/midi/nova/computer_riddim.tidal index 606f249..21dcd1f 100644 --- a/live/midi/nova/computer_riddim.tidal +++ b/live/midi/nova/computer_riddim.tidal @@ -14,7 +14,7 @@ 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 novaOn ch pat = (someCyclesBy ch pat) +let novaOn ch pat = someCyclesBy ch pat let novaOff ch pat = someCyclesBy (1 - ch) pat -- endregion Nova Utils let gDelayD = (# delay (range 0 5 "^13")) diff --git a/live/midi/nova/instruments/scratchomatic.tidal b/live/midi/nova/instruments/scratchomatic.tidal index 3c3fdaf..5816758 100644 --- a/live/midi/nova/instruments/scratchomatic.tidal +++ b/live/midi/nova/instruments/scratchomatic.tidal @@ -18,7 +18,7 @@ d10 $ gAcc -- Kick $ "k(3,8) . >" # "[jazz,hh:6]" # att 0.3 # sus 0.3 # room 0.4 # dry 1.01 # sz 0.8 - # gain 2.6 + # gain 1.6 d9 $ gAcc $ "drum:2*8" # gain 1 d1 $ g -- Main $ struct "t(3,8) [ ]" diff --git a/live/midi/nova/lounge/top_hats.tidal b/live/midi/nova/lounge/top_hats.tidal index ceeb930..9bacf49 100644 --- a/live/midi/nova/lounge/top_hats.tidal +++ b/live/midi/nova/lounge/top_hats.tidal @@ -9,11 +9,12 @@ let prog = ("") let chorus = pF "chorus" let mix = pF "mix" let modIndex = pF "modIndex" -- 0.2 -let gG a = (gain (1.3 * "^77" * a)) -- gain Global +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" 200 10000 0 7500 let g = (gDJF) +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)) @@ -87,6 +88,7 @@ d6 $ g -- Guitar riffs # sz 0.9 # gM' 0.4 1.5 "^81" d8 $ g + $ midiOn "^91" (ply 2) $ midiOn "^59" ( (# lpf 2000) . (# crush (range 16 5 "^55")) diff --git a/live/midi/nova/minneapolis.tidal b/live/midi/nova/minneapolis.tidal index c806967..5a16da3 100644 --- a/live/midi/nova/minneapolis.tidal +++ b/live/midi/nova/minneapolis.tidal @@ -12,8 +12,6 @@ -- G Kick Sn DrRoll Bass Piano CP Fire -- X TCHN Stut Wait/Run TCHN XXX XXX XXX -once $ "dr" # gain 0.8 - do -- region Nova Utils let gF = 1.3 -- gain factor @@ -106,7 +104,8 @@ d5 $ g -- Basse + Sirene ) - (0.125 * "^57") -- When TECHNOPHILE )) - . (# crush (range 10 3 "^33")) + . (# crush (range 10 3 + "^33")) . (# room 0.5) . (# size 0.8) ) @@ -115,7 +114,7 @@ d5 $ g -- Basse + Sirene + melodyFirst ) # s "supersaw" - # voice 0.02 + # voice 0.15 # crush (range 10 2 "^33") # gM' 0 0.8 ("^81" * (range 0.9 0.4 "^53")) -- Modulated 5C # pan (slow 10 $ range 0.6 0.8 sine) diff --git a/live/midi/nova/party/funk_angel_frappe.tidal b/live/midi/nova/party/funk_angel_frappe.tidal index d4a8a35..9381372 100644 --- a/live/midi/nova/party/funk_angel_frappe.tidal +++ b/live/midi/nova/party/funk_angel_frappe.tidal @@ -52,7 +52,7 @@ d4 -- RESONANT BASSLINE ) -- $ 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>") + -- # 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 diff --git a/live/midi/nova/party_hard.tidal b/live/midi/nova/party_hard.tidal index 6abf181..8317d9d 100644 --- a/live/midi/nova/party_hard.tidal +++ b/live/midi/nova/party_hard.tidal @@ -52,7 +52,7 @@ d4 mask "t(1,4)" . arpeggiate . (# "superpwm") - . (|* gain 0.5) + . (|* gain 0.8) . (# pan 0.6) . (# crush 16) . (# voice 0.2) @@ -98,7 +98,7 @@ d7 $ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8))) $ fast 2 $ "~ cp" - # gM' 0 1.1 "^83" + # gM' 0 1.5 "^83" # room 0.2 # dry 0.9 # lpf 2000 diff --git a/live/pair/be_my_punk.tidal b/live/pair/be_my_punk.tidal index 05e1fb3..6e8a7dc 100644 --- a/live/pair/be_my_punk.tidal +++ b/live/pair/be_my_punk.tidal @@ -1,7 +1,7 @@ -- if Nina was a punk -- TODO trois couplets: Husband - ??? - All of your life do --- resetCycles +resetCycles setcps (80/60/4) d1 -- grosse caisse / caisse claire poum tchak $ fix (# s "[bd,808bd]") (s "k") @@ -45,7 +45,7 @@ d4 . (|* gain 0.85) ) $ slice 2 "<0 0 1 1>" - $ "punk" + $ "punk" -- FIXME speed decalage swing seconde mesure # pan 0.8 # gain 0.8 # cut 4 @@ -58,7 +58,7 @@ d2 $ slice 8 (stack [ "0 . 1(5,8)" ]) "breaks165:2" # gain 1.25 d10 - $ g + -- $ g $ whenmod 8 4 (scramble "<2 2 4 4>") $ slice 8 (run 4) $ "nina/4"