-- Dark dub base reguliere
do
resetCycles
setcps (90/4/60)
let mel = ("<c!3 <as4 ds5>>")
let gF = (whenmod 32 16 (# lpf (slow 16 $ range 0 1 sine)))
d1
  $ gF
  $ whenmod 16 8 (off "s" id)
  $ "[electro1:6,reverbkick]"
  # lpf 2000 # gain 0.8
d2
  $ gF
  $ off "e" (|* gain 0.7)
  $ fast "<4!3 [4 <[8 4] <8 16>>]>"
  $ "h2ogmhh"
  # gain 0.45
d3
  $ ("0.25" ~>)
  $ superimpose (
    (|- pan 0.1)
    . (# "bassWarsaw")
    . (|- note 24)
    . (|* gain 0.8)
    . (# legato 1)
    )
  $ note ("c [c d] c ~ ~ ~ <b4!4 f b4!2 f>")
  # "bass3:1"
  # legato 0.95
  # room 0.2
  # pan 0.8
  # gain 0.65
d4 -- Aigu contretemps
  -- $ mask "<f!4 t!8 f!4 t!16 f!8 t!8>"
  $ superimpose (
    (# "superpiano")
  . (|<| "p(<4!4 8!4 12!4 16!4>,8)")
  . (# velocity 0.45)
  )
  $ fast 2
  $ "~ p"
  # note (mel)
  # octave 7
  # "pluck"
  # gain 0.65
d5 -- Piano grave temps
  -- $ mask "<f!8 t!16 f!4 t!4>"
  $ off "e" id
  $ fast 2
  $ note mel
  # "superpiano"
  # octave 3
  # room 4 # dry 0.99 # sz 0.9
  # legato 2
  # pan 0.25
  # velocity (slow 64 $ range 0.35 0.55 sine)

resetCycles

do
d1
  $ whenmod 64 32 (
    fast "4 4 4 <4 4 2 <2 [4 8]>>"
  )
  $ "jazz"
  # lpf (slow 8 $
    "<10000 2000 [1750 1500] [1250 1000] [750 500] [400 200] 150 50>")
  # gain 0.8
d2
  $ superimpose (
    const
    $ jux rev
    $ euclid 3 8
    $ "808mt"
    # cut 21
    # gain (slow 16 $ range 0.8 0.6 perlin)
  )
  $ fast "4 . 4 4 <8 8 <6 12> 8>"
  $ "808lt"
  # gain (slow 32 $ range 0.6 0.9 perlin)
d3 -- Trompettes de la mort
  $ n "0 <5 5 6 7 5 5 6 7 8 8 9 7 8 8 9 9>"
  # "trump"
  # room 0.5
  # dry 0.9 # sz 0.8
  # pan 0.8
  # cut 1
  # gain 0.35
d4 -- Bassline elastique
  $ "b*2 ~ b . b*<1!4 2!4 [8 4]!4>"
  # "bass3" # n "0"
  # note ("<d g f d>")
  # room (slow 32 $ range 0 0.25 saw)
  # sz 0.2
  # pan 0.2
  # cut 4
  # gain (slow 16 $ range 0.4 0.68 sine)


d1 $ "hand:15" # cut 1
once $ "fbass" # note (-2)
once $ "electro1:6"
