d1 $ slow 17 $ n (run 17) # "cbow" # gain 0.8 # cut 1

resetCycles

-- P P T . P    T
-- P T   . PP P T
do
let chord = "d4'min7'4"
let gF = midiDJF "^49" 200 9800 0 2000
let gLeslie = ((# leslie "^29") . (# lsize (range 0 2.5 "^30"))  .(# lrate 6.7))
let gDJF = (whenmod 32 28 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF . gLeslie
setcps (100/60/4)
-- d10 $ "hh*128" # gain 1.1
d1 $ gDJF $ g
  $ midiOff "^41" (mask "<f f [t f] t t!28>")
  $ midiOn "^41"  (<| "k k k <k k*2 k [~ k]>")
  $ midiOff "^41" (<| "k [~!6 <k!3 ~>] . k*2 ~")
  $ "[jazz,kick:14,bd:2]"
  # midiG' "^78" 0 1.2
d2 $ gDJF $ g
  $ fast "<0!4 0 [0 1] 1 1 0 [0 1] 1 1 [1 2] 1 2 4>"
  $ "~ s ~ s"
  # "h2ogmsn:6"
  # midiG' "^79" 0 1.7
d6 --
  $ g
  $ midiOn "^44" (slow 2)
  $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
  # note (
    whenmod 4 3 (2 -)
    "0 . 2 0"
    )
  # midiG' "^80" 0 1.3
d5 $ g -- Breakbeat
  $ midiOn "^76" (fast "<2!3 4>")
  $ midiOff "^44" (slow "<4 2>")
  $ sometimesBy "^32" rev
  $ someCyclesBy (0.9 * "^52") (scramble "1 4")
  $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
  $ loopAt 2
  $ "fbreak100"
  # cut 5
  # midiG' "^80" 0 1.5
d3 $ g -- CBOW Electric Bass
  $ gDJF
  $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
  $ ("0.125" ~>)
  $ slow 4
  $ note (
    (arp "up <up!8 down!8>" chord))
  # "cbow:0"
  # pan 0.15
  # cut 3
  # room 0.6
  # sz 0.5
  # midiG' "^81" 0 0.9
  # crushbus 31 (range 10 2 "^53")
d4 $ g -- Lead aigus
  $ mask "<f!8 t!24 t!8 f!8 t!16>"
  -- $ whenmod 8 7 (ply "1 4")
  $ slow 2
  $ whenmod 16 8 (ply 2)
  $ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1)))
  $ note (arp "converge" chord)
  # pan 0.75
  # "cbow:2"
  # cut 4
  # room 0.2
  # midiG' "^82" 0 1.25
  # lesliebus 41 (range 0 2 "^54")
  # lsizebus  42 (range 0.2 6.2 "^34")
d8 $ g -- Angels
  $ juxBy 0.8 (sometimesBy "0 1" rev)
  -- $ midiOff "^59" (mask "<f!32 t!32>")
  $ note "<[d a4 a4 d . ~ <[d a4] a4*2>] <c c f c>>"
  # "cpluck"
  |>| n "7 8"
  # room 0.4
  # midiG' "^83" 0 1.0
d10
  $ (# lpf 2000)
  $ g $ "~ cp"
  # midiG' "^84" 0 1.6

d4
  $ whenmod 32 16 (jux rev)
  $ "h2ogmcp(5,8,<0!3 [0 3]>)"
  # gain 0.45

do
let g = (midiDJF "^41" 200 9800 0 1000)
d1 $ g $ fast 4 $ "jazz"
d2 $ g $ fast 2 $ "~ sn:7"
d3 $ g
  $ note (scale "aeolian" ("<0 0 1 2>"))
  # "cbow:0"
  # cut 3
  # gain 0.75
d4 $ g
  $ sometimes (rev)
  $ note (scale "aeolian" (run "6 12"))
  # "cbow:1"
  # cut 1
  # gain 0.58

once $ note (run 12) # "cpluck" # gain 0.8 # cut 5