do
let gMask = (midiOn "^41" (mask "t!3 <t!3 [f <t f>]>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (140/60/4)
d1 $ gM2 $ gF1
  $ superimpose ( -- Technique ine*fable : la basse du kick
    (# "vec2_bass_ob:190")
    . (# att 0.2) . (# rel 1))
  $ midiOff "^42" (mask "t f f t")
  $ fix ((|* gain 1.2) . (# lpf 300)) "clubkick:2"
  $ fix ((|* gain 1) . (# hpf 300)) "hardkick_rha"
  $ speed "1 1 1 [1,[~ -4]]"
  # s "[clubkick:2,hardkick_rha:1]"
  # gain 1
d2 $ gM1 $ gF1 $ "~ <~!8 s!8> ~ s*<1!6 <2 4> <2 <4 [4 8]>>>" 
  # "vec1_snare:3"
d3 $ gM1 $ gF1 $ "hh([4 4 4 16],8,1)" 
  # "h2ogmhh" # n "<1!8 3!8>"
d4 $ gF2 $ gM3
  $ freq "102 108 110 ~ 105 130 52 33" 
  # "bassWarsaw" 
  # gain 1.3
  # crushbus 41 (range 16 3.5 "^53")
d4 $ gF2 $ gM3 
  $ note ("<[cs ~!3 . gs] [c ~!3 . < g [g@3 c6]>]>" - 24)
  # "bassWarsaw"
  # pan 0.3
  # room 0.3 # gain 1.2
d5 $ gF3 $ gM3 
  $ note ("cs4" 
  + scale "minor" ("<[0 2 3 5] [7 10 12 10] [7 5] [3 2]>"))
  # s "moogBass"
  # legato 1.2
  # room 0.6 # size 0.6
  # pan 0.7
  # att 0.22 
  # rel 4
  # gain 0.9
d8 $ gM1 $ gF1 
  $ midiOn "^92" (ply "<1 2 4 8>")
  $ midiOff "^60" (mask "t(4,8,1)")
  $ chop 16
  $ loopAt 2 
  $ "jungle_breaks:74"
  # gain 1.3
  # hpf 500
  # crush 3.5
  # delay 0.2 # delayt "s" # delayfb 0
  # room 0.3 # sz 0.4 # dry 1.4

-- GLANES: rhadamanthe_divers:37

do
d1 $ "jazz*4"
d2 $ "~ cp ~ cp"
d3 $ "dr*16"
d4 
  $ freq "102 108 110 ~ 105 130 52 33" 
  # "bassWarsaw" 
  # gain 1.3

once $ note "g3" # "bassWarsaw" # gain 1.3
