From bed82f80eec9ea99393127efeb5f5761a942c258 Mon Sep 17 00:00:00 2001 From: Paul-Louis NECH Date: Sun, 5 Jul 2020 15:40:56 +0200 Subject: [PATCH] Nass session: DNB / Drum-Hop --- live/dnb/sans_courant.tidal | 103 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/hip/instru/courant_alternatif.tidal | 93 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ live/techno/funk/funk_n_bass.tidal | 14 +++++++------- 3 files changed, 203 insertions(+), 7 deletions(-) create mode 100644 live/dnb/sans_courant.tidal create mode 100644 live/hip/instru/courant_alternatif.tidal diff --git a/live/dnb/sans_courant.tidal b/live/dnb/sans_courant.tidal new file mode 100644 index 0000000..2ae21df --- /dev/null +++ b/live/dnb/sans_courant.tidal @@ -0,0 +1,103 @@ +resetCycles + +do + setcps (170/60/4) + solo 1 + solo 2 + solo 4 + solo 5 + solo 6 + solo 8 -- Nappes graves + d1 -- Kick DNB + $ whenmod 32 24 (mask "t" . (|* gain (slow 8 $ range 0.65 0.9 saw))) + $ whenmod 32 16 (mask "f") + -- $ whenmod 8 4 (slow 2) + -- $ mask "" + $ "k ~ ~ ~ ~ k ~ ~" + # "[jazz,kick:7]" + # gain 0.65 + # legato 0.9 + d2 -- Snare DNB + $ whenmod 32 16 (# djf (slow 16 $ range 0.15 0.9 saw)) + -- $ whenmod 32 16 (# lpf (slow 16 $ range 10000 200 isaw)) + $ "~ s . ~ s*<1!3 2>" # "[snare:2,cp]" + # gain 0.65 + d4 -- Hats run + $ whenmod 8 4 (degradeBy "0 0.5!7") + $ note "<0!4 4 2 -2 -4>(<3!3 5>,8)" # "snare:1" + # gain (slow 64 $ range 0.35 0.65 sine) + d5 -- Guitar + $ whenmod 32 16 (# silence) + $ jux (fast 2 . (# room 0.6) . (# cut 51)) + $ fast 2 + $ loopAt 4 + $ slice 4 "<0!2 2!2 3!3 [3 4] [5 6] [3 .. 6] [4 .. 7] [0 .. 7]>" + $ "fguitar:0" + # gain 0.65 + -- (slow 16 $ range 0.5 0.5 saw) + # cut 5 + # hpf (slow 16 $ 2500) + d6 -- Epiano + $ mask "" + $ slice 4 (run 4) + $ loopAt 4 + $ sometimes (# begin 0.5) + $ "~ fepiano:1" + # gain (slow 32 $ range 0.5 0.65 saw) + # room (slow 32 $ range 0.1 0.7 saw) + d8 -- Nappes "Bassline" + $ mask "" + $ note (scale "major" ( + "<0!4 -2!2 0!2>" + -- "0" + )) # "methbass:3" # gain 0.6 + # begin 0.7 # end 0.8 # legato 2 + # cut 8 # lpf 200 + + d2 + $ fast "<1!8 2!4 4 8>" $ "~ s" # "snare:21" # gain 0.6 + d3 $ s "drum:8*<1 2 4 8>" # pan (slow 16 $ sine) # gain 0.75 + +d8 -- Ominous bass +$ silence + + +-- TECHNOBASS + +do + setcps 0.5 + d1 + -- $ whenmod 32 16 (mask "") + $ s "kick:5*4" # gain 0.6 + d2 + $ whenmod 32 28 (|* gain 1.1) + $ mask "t(<1!4 3!4 5!4 7!4>,8,1)" + $ fast 4 $ "~ clap:0" + # gain 0.55 + # lpf (slow 16 $ range 200 2000 saw) + d3 -- Bass + $ whenmod 32 26 (# silence) + $ slice 8 ( + "<[0 1 2 3]!8 [0 1 3 2]!2 [0 1]!2 1*2 1*4 1*8 1*[8 4]>" + ) + $ loopAt 2 + $ note (-2) + # "fbass" + # n (slow 32 $ "<18!3 19!4>") + # gain 0.75 # cut 3 + d4 + $ jux rev + $ fast "<4!3 8> <8!2 16 [8 16]>" + $ "hh" + # note ("<0!24 -2!4 0!4>") + # gain 0.75 + # pan (slow 4 $ perlin) + d6 $ s "drum:8" # gain 0.7 + + + d5 + $ slice 8 "8 1" + $ loopAt 2 + $ s "fpiano:4" + # cut 5 + # gain 0.55 diff --git a/live/hip/instru/courant_alternatif.tidal b/live/hip/instru/courant_alternatif.tidal new file mode 100644 index 0000000..0a6f628 --- /dev/null +++ b/live/hip/instru/courant_alternatif.tidal @@ -0,0 +1,93 @@ +-- Courant alternatif: drum-instrumental-hop +resetCycles + +do + setcps (90/60/4) + d1 + $ whenmod 8 7 (# silence) -- mini-Break + $ degradeBy "0 <0!8 0.5!4 0.75!4 0.875!3 0>" + $ "k k*<1 2 1 4> > k*2" + # "jazz" + # gain 0.85 + # lpf 3000 + d2 + -- $ every' 4 3 (# n "0") + -- $ whenmod 32 16 (# lpf (slow 16 $ range 200 20000 saw)) + $ slow "<2!6 4 8>" $ slice 8 (cat [ + "1*16" + ]) + $ loopAt 2 + $ "fbonus:3" # cut 1 + # gain 0.9 + # pan "0.45 0.55" + d3 + $ whenmod 8 7 (degradeBy "1 0") -- mini-Break + $ whenmod 8 6 (jux (# room "<0.05 0.1>")) + $ fast "<4 [8 4] 8 <4 [8 4]>>" + $ "drum:8" # gain 0.75 + -- # room (slow 8 $ "<0!3 0.3>") # sz 0.9 + d4 -- Hand-Sewn hats + $ whenmod 8 7 (# silence) + $ whenmod 32 28 (degradeBy "<0 0.25 0.5!2> <0.5>!3") + $ whenmod 32 16 ( + # lpf (slow 16 $ range 2000 10000 saw) + ) + $ sew (iter 4 "(<3 5 7 12>,16)") + ("ho*16" # note (scale "major" "<1!8 -1 -2!6 -1>")) + "hc*[<8!3 16> <16!3 8>]" + # gain 0.45 # pan (slow 16 $ range 0.2 0.8 sine) + # cut 4 + d5 -- LEAD Downclav! + $ whenmod 64 56 (# n 4) + $ whenmod 64 48 (# n 2) + $ whenmod 32 30 (# hpf 5000) + $ whenmod 32 24 (# squiz "<2!4 4 6 8 16>") + $ whenmod 32 12 (# gain 0.85) + $ whenmod 16 12 (mask "t(<1 2 4 16>,32)" . discretise 32) + $ loopAt 2 $ s "fclav:3" + # pan 0.35 + # cut 5 + # gain 0 + d6 -- Laggy gratte + $ mask "" + $ loopAt 4 $ "fguitar" + # n "<17!6 18!2>" + # gain (slow 128 $ range 0.45 0.65 sine) + # cut 6 + +-- region SANDBOX + + do + setcps (90/60/4) + d1 + $ whenmod 32 16 (# lpf (slow 32 $ range 200 2000 saw)) + $ "k . k(<3 5 3 1>,8)" # "reverbkick" + # gain 0.5 + d2 + $ fast "<1!8 2!2 4!2 [4 . 8 4] [4 . 2 4]>" + $ n ("~ . 1 2(<1!3 3>,8)") + # "gretsch" + # gain 0.75 + + + d7 -- Gongs balancés + $ often (juxBy 0.5 (fast "<1 2>" . rev)) + $ whenmod 128 64 (# gain (slow 64 $ range 0.65 0.45 isaw)) + $ swing 4 + $ note (arp "up" $ "") + # "supergong" + # gain 0.65 + + once $ s "fguitar:17" # gain 0.65 # cut 21 + + do + setcps (90/60/4) + d1 + $ whenmod 32 16 (# lpf (slow 32 $ range 200 2000 saw)) + $ "k . k(<3 5 3 1>,8)" # "reverbkick" + # gain 0.5 + d2 + $ fast "<1!8 2!2 4!2 [4 . 8 4] [4 . 2 4]>" + $ n ("~ . 1 2(<1!3 3>,8)") + # "gretsch" + # gain 0.75 diff --git a/live/techno/funk/funk_n_bass.tidal b/live/techno/funk/funk_n_bass.tidal index a689125..e5f6f7d 100644 --- a/live/techno/funk/funk_n_bass.tidal +++ b/live/techno/funk/funk_n_bass.tidal @@ -10,8 +10,8 @@ do let mPiano = "t f" solo 1 -- Kick DNB/TECHNO solo 2 -- Drums DNB-compatibles - solo 3 -- Drumroll masqué - solo 4 -- Basse électrique + unsolo 3 -- Drumroll masqué + unsolo 4 -- Basse électrique unsolo 5 -- Piano FIXME Too noisy unsolo 6 -- Comete unsolo 8 -- Un bon sandwich @@ -20,12 +20,12 @@ do $ mask mKick -- region TECHNOOO -- $ fast 2 - $ whenmod 16 12 (slow 2) - $ "k k k " - # "[kick:5,house]" + -- $ whenmod 16 12 (slow 2) + -- $ "k k k " + -- # "[kick:5,house]" -- region DNB - -- $ "k ~ ~ ~ ~ k ~ ~" - -- # "kick" # note "-6" + $ "k ~ ~ ~ ~ k ~ ~" + # "kick" # note "-6" # gain 0.75 -- # djf fGlob d2 -- libgit2 0.27.0