-- TOXIQUE
do
setcps (120/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f 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 gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gM2 $ gF1
  $ midiOn  "^42" (<| "k k k <k!3 <[~ k] [k <k ~> k ~]>>" )
  $ midiOff "^42  " (<| "<k ~>")
  $ "[jazz,techno:1]"
d2 $ gF1 $ gM1
  $ midiOn  "^43" (<| "~ s ~ s*<1!3 2>")
  $ midiOff "^43" (<| "<~ <~ sn>>")
  $ "snare:39"
d3 $ gF1 $ gM1
  $ "h h h h h h h h*<1 <2 0 [4 2] [0 2]>>"
  # "h2ogmhh:2"
  # lpf 5000 # cut 3
  |* gain (slow 16 $ range 0.75 0.9 saw)
  # room 0.3 # sz 0.01
d4 $ gF2 $ gM3
  $ superimpose ((# crushbus 41 (range 16 3 "^53")) . (# cut 41))
  $ midiOn "^89" (slice 2 1)
  $ midiOn ("^57" - "^89") (ply "<1 1 2 1 2 1 4 2 4 2 1 4 2 4 8 <4 8>>" . slice 2 "<0!4 1!4>")
  $ midiOff ("^57" + "^89") (slice 2 "<0 1>")
  $ "nujazz_bass120:16"
  # room 0
  # cut 4
d8 $ gF1 $ gM1
  $ chop 8
  $ loopAt 2
  $ midiOn "^56" ((# "jungle_breaks:30") . (# lpf 4000))
  $ midiOn "^36" (# "jungle_breaks:13")
  $ "jungle_breaks:3"
d11 $ gF3 $ gM3
  $ midiOn "^89" (>| note "cs5@2 gs4 cs5@3 gs4@2")
  $ note "<d5 cs5>@2 <a4 gs4> <d5 cs5>@3 [<[<a4 gs4> <~ <d5 cs5>>]>]@2"
  # "superfork"
  # pan 0.8

""
re-la <> do#-sol#