-- The Punk Bass
do
setcps (82/60/4)
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
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 gM = gMask . gMute
let gM2 = gMask . gMute2
let lineTeng = "cs d d d cs d d d cs d d d g ~ fs ~"
d1 $ gF1 $ gM
  $ midiOn "^42" ((<| "k k k k k k <k <~ k*2>> k*<1 2 2 2>") . (# "[jazz:0]"))
  $ midiOff "^42" (<| "k . <~!4 k!4 k(3,8)!8>")
  $ "[rootsDrums:0,rootsDrums:4]"
  -- $ "[techno,jazz,kick:5]*4"
  # midiG' "^78" 0 1.5
d3 $ gF1 $ gM
  $ "[~ drum:2]*8"
  # midiG' "^80" 0 1.5
d4 $ gF2 $ gM2
  $ midiOff "^57" ((slow 2) . ( # room 0.5))
  $ note (lineTeng)
  # "rootsBass"
  # crushbus 41 (range 16 2.5 "^53")
  # end 0.35 # room 0.3
  # legato 2 # gain 1.9 # cut 1
  # midiG' "^81" 0 1.5
d8 $ gF1
  $ midiOn "^92" (ply "1 2")
  $ midiOn "^60" (slice 16 (run "<16!8 [16 8]!7 [8 16]> <16!3 <32 [8 32]>>") )
  $ chop 8
  $ (someCyclesBy "^20" (# n "21"))
  $ "jungle_breaks:33"
  # midiG' "^84" 0 1.5