-- Love First

do
-- resetCycles
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 $ gF1 $ gM2
  -- $ "k k k*<1!3 [4 1] 1!2 2 1> <k!3 <[~ k] k*2>>"
  -- $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
  $ midiOn "^42" (<| "k k k k*<2 4>")
  $ midiOff "^42" (<|"k . ~ k ~ ~")
  $ "[clubkick,jazz]"
  # att 0.02
  # rel 0.5
  # lpf 4000
  -- # note "-8"
  # gain 1.3
d2 $ gF1 $ gM1 $ "~ s ~ s*<1 2>"
  # "snare:42"
  -- # lpf 2000
  -- # room 0.5 # sz 0.8 # dry 1.1
  # gain 1.2
d3 $ gF1 $ gM1 $ "dr:2*8" # "hh27:3" # cut 3 # gain 1.8
d4 $ gF2 $ gM3
  $ midiOn "^89" (ply 8)
  $ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>" - 24)
  # "bassWarsaw"
  # crushbus 41 (range 16 2.5 "^53")
  # room 0.4
  # gain 1.5
d5 $ gF3 $ gM3
  $ midiOff "^58" (mask "t f")
  $ loopAt 2
  $ midiOn "^58" (# n 14)
  $ "nujazz_keys120:13"
  # room 0.5
  # crushbus 51 (range 10 1.8 "^54")
  # sz 0.8 # dry 1.2
d7 $ gF3 $ gM3
  $ midiOn "^91" (ply "2 <2 4 4 8>")
  $ midiOn "^59" (# n 4)
  $ mask "<t f f f t f t t>"
  $ "nujazz_guitar120:3"
  # cut 7
  # room 0.4
  # delay (slow 16 $ range 0.4 "<0!32 0.8!32>" saw)
  # delayt 0.125 # delayfb 0.5
  # gain 1.4
d8 $ gF1 $ gM1 $ chop 8
  $ midiOff ("^60" + "^92") (mask "f(4,8)")
  $ midiOn ("^56" - "^92") (chop 8 . loopAt 2 . (# "jungle_breaks:45"))
  $ midiOn ("^92") ( -- Bouton Nassim <3
    slice 8 "[0 .. 3] . <[0 .. 3]!1 [0 1 . 3*2]>"
    . loopAt 1 . (# "breaks165")
    -- . (# octersub 2)
  )
  $ loopAt 1
  $ "jungle_breaks:2"
  # cut 8
  # octersub 2
  # octersubsub 2
  # gain 1.2
d9 $ gF3 $ gM3
  $ slice 4 "~ <0 1 2 3>"
  $ "nujazz_keys120:15"
  # room 0.4
  # lpf 4000
  # sz 0.8 # dry 1.2
  -- # delay 0.75 # delayfb 0.5
  -- # delayt 1
  # cut 9
  # gain 1.4
d10
  $ chop 16
  $ mask "<f!24 t!8>"
  $ loopAt 8
  $ "risers:10"
  # cut 10
  # hpf 2000
  # octer 0.5
d11
  $ whenmod 64 48 (
    (>| n "26/2")
    . (# begin 0.33)
    . (# end 0.7)
  )
  $ midiOn "^30"(
    (stutWith 4 0.5 (# begin "0.53") . (ply "<2 4 4 8>"))
    . (# "movie_cat:23")
    . (# begin "0.4")
    . (# end 0.6)
    )
  $ someCyclesBy "<1!4 0!28>" ((# "<movie_cat:23 ~ ~ ~>") . (# begin 0.15) . (# end 0.6))
  $ n "<<1!3 9 [1 9]!3 26 26 26 27> ~>" # "movie_cat"
  # cut 11
  # room 0.4
d12 $ gF3 $ gM3
  $ midiOn "^89" (ply 8)
  $ note ("<c <ef <[ef@7 g] [ef [g ef g]]>> f@2>"
    |+| "0 . <0 <0(3,8) [0 12 0 12]>>"
    + "0 <0!4 12!4>"
  )
  # "moogBass"
  # legato "<0!12 0.5!12>"
  # crushbus 41 (range 16 2.5 "^53")
  # room 0.4
  # gain 1.5



d4 $ gF2 $ gM3
  $ "jungle_bass:15"
  # cut 4
  # octersub 1.2
  # room 0.3