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