-- JOLENE v2
do
setcps (100/60/4)
let g = (# djfbus 1 ("^49"))
let m1 = whenmod 4 3 (mask "t!3 <f [f t]>")
-- let m2 = whenmod 16 12 (mask "t")
let m3 = midiOn "^73" (mask "f*16")
let m = m1 . m3
d1 $ g $ m
  $ chop 16 $ loopAt 4
  $ "algorythm"
  # midiG' "^78" 0 1
  # pan 0.3
  # cut 1
d2 $ g
  $ midiOn "^75" (ply 2)
  $ sometimesBy "<0!3 0.5> <0.125!3 0.5> 0.25 <0.125!7 0.5>" (ply 2)
  $ "d(8,8)" # "[drum:2]"
  # pan 0.8
  # midiG' "^79" 0 1
d3 $ g
  $ whenmod 8 7 (# n "0!3 5")
  $ "~ . [<h!3 ~> <~!3 h>] <~ h>"
  # "h2ogmhh"
  # n "0 1"
  # pan 0.3
  # midiG' "^80" 0 1


-- Jolene v1: Nice but how about we sample proper drums?
do
setcps (105/60/4)
d1 $ "ifdrums:0*4" # gain 0.65
d2 $ "~ snare" # gain 0.7
d3
  $ loopAt 2
  $ "break:7"
  # gain 0.65