Nass session: DNB / Drum-Hop

live/dnb/sans_courant.tidal

+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 "<f!16 t!16>"
+    $ "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 "<t!4 f!12 t!16>"
+    $ 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 "<t!16 f!16>"
+    $ 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 "<f!15 t>")
+    $ 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

live/hip/instru/courant_alternatif.tidal

+-- 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 <~ [~ k]>> 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 "<t!4 f!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 "<f!16 t!16>"
+    $ 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" $ "<c4'maj'6!2 c4'maj7'6 c4'maj9'6>")
+    # "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

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 <k!5 k*2 ~ [~ k]>"
-    # "[kick:5,house]"
+    -- $ whenmod 16 12 (slow 2)
+    -- $ "k k k <k!5 k*2 ~ [~ k]>"
+    -- # "[kick:5,house]"
     -- region DNB
-    -- $ "k ~ ~ ~ ~ k ~ ~"
-    -- # "kick" # note "-6"
+    $ "k ~ ~ ~ ~ k ~ ~"
+    # "kick" # note "-6"
     # gain 0.75
     -- # djf fGlob
   d2