resetCycles


do
setcps(125/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
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"))
d1 $ gF1 $ gM2
  $ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
  $ midiOn "^42" (<| "k k k <k <k*2 [k <k ~> k ~]>>")
  $ midiOff "^42" (<| "k ~ ~ [~ <~ k>]")
  $ "[kick:5,tech:5,jazz]"
  # gain 1
d2 $ gF1 $ gM1
  $ midiOn "^43"  (<| "~ c ~ c*<1!3 2>")
  $ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
  -- $ fix ((|* gain 0.8) . (# room 0)) "cp"
  $ "[h2ogmcp]"
  # att 0
  # rel 0.0385
  # gain 1.4
  -- # lpf 4650
d3 $ gF1 $ gM1 -- Highest hats
  $ midiOn "^44" (ply 2)
  -- $ midiOn "^76" ((ply 2) . (# pan "0.2 0.8 0.2 0.8"))
  $ "drum:2*[<6!3 12> <6 [8 <12 24>]>]"
  # "h2ogmsn:12"
  # cut 3
  # legato (range 0.48 1 sine)
  # gain (0.7 * (range 0.85 1.05 (fast 4 perlin)))
  # room 0.14 # sz 0.4 # dry 1
  -- # pan "<0.7!16 0.3!16>"
  -- # pan 0.8
d4 $ gM3 $ gF2
  $ midiOn "^57" (slice 4 "<0 1 2 3>*4")
  $ midiOn "^89" (ply "2 <4 8>")
  $ chop 8 $ loopAt 4
  $ "nujazz_bass125:1"
  # cut 4
  # pan 0.55
  # room 0.3
  # crushbus 41 (range 12 4.5 "^53")
d5 $ gM3 $ gF3
  $ chop 8
  $ loopAt 2
  $ "nujazz_keys125" # n "<56 56 57 56 58!4 59 59 56 59>"
  # cut 5
  # pan 0.6
d7 $ gM3 $ gF3
  $ chop 8
  $ loopAt 2
  $ "nujazz_keys125" # n "<66!4 67!4>"
  # cut 7
  # octerbus 71 (range 0 0.5 "^55")
  # pan 0.1
d11 $ gM3 $ gF3
  -- $ (0.5 <~)
  $ loopAt 2
  $ "nujazz_keys125"
  # n "<4!3 5>"
  # cut 5
  # roombus  110 (slow 16 $ range 0 0.9 saw)
  # lpfbus 112 (slow 32 $ range 12000 500 sine)
  # att 0.02
  # rel 7
  # gain 1.1
d12 $ gM3 $ gF3
  $ slice 4 "<<[0 1 2 3] [0 1 0 1 2 3 2 3]> [0 1 2 3]>"
  $ chop 8
  $ loopAt 2 $ "nujazz_keys125:44"
  # cut 5
  # gain 0.8
  # pan 0.7
  # room 0.2
d8 $ gM1 $ gF1
  -- Transforms over samples
  $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
  $ midiOn "^92" (fast 2) -- Multi
  $ chop 16
  $ loopAt 2
  -- Sample selection
  $ midiOn "^36" (# n 33)
  $ midiOn "^56" (loopAt 1 . (# "break:7"))
  $ "jungle_breaks:20"
  # cut 8
  # pan "<0.3!16 0.7!16>"
  # gain 0.78
d10 $ gM3 $ gF3
  $ superimpose (
    mask "<f!16 t!16>"
    . arp "<up [up down]>"
    . (|+ note "c'maj'4") . (|* gain 0.75))
  $ note ("<c5 g4 <ef4!2 bf4!2> <c4 f4>>" + "0(3,8) 0(3,8)"
  -- - 12
  )
  # "[FMRhodes1]"
  # modIndex 1
  # room 0.2
  # pan 0.45
  # gain 1.2