once $ "nujazz_beats120"

-- It's a nuday
-- It's a new sample

resetCycles

do
setcps(120/60/4)
d1 $ gF1 $ gM1
  $ fix ((# lpf 150) . (|* gain 0.93)) "kick:5"
  $ midiOn "^41" (<| "k k k <k <k*2 [k k k ~]>>")
  $ midiOff "^41" (<| "k ~ ~ [~ <~ k>]")
  $ "[kick:5,tech:5,jazz]"
  # gain 1
d2 $ gF1 $ gM2
  $ midiOn "^42"  (<| "~ c ~ c")
  $ midiOff "^42" (<| "~ . c*<1!3 <2!3 4>> ~")
  $ "[cp:1,rampleM1:10]"
  # gain 1.2
  # lpf 2650
d3 $ gF1 $ gM2 -- Highest hats
  $ midiOn "^43" (ply 2)
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  $ midiOn "^76" (ply 2)
  -- $ (0.125 ~>) - - decalage
  -- $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
  -- $ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>")
  -- $ "d*<8 [8 [16 <8 16> 16 <8 4 <16 32>>]]>"
  $ sometimesBy "0!3 <0 0.5>"  (# n 12)
  $ sometimesBy "0!3 <0.1 0>"  (# n 13)
  $ "~ d ~ d d d d*<1 1 2 1> d"
  # "h2ogmsn:14"
  # cut 3
  # legato (range 0.28 1 sine)
  # gain (1.1 * (range 0.85 1.05 (fast 4 perlin)))
  # room 0.14 # sz 0.4 # dry 1
  # pan 0.8
d6 $ gF1 $ gM3 -- Highest hats
  $ (0.125 ~>) -- decalage
  $ whenmod 32 16 (sometimesBy "0 0.2!6 0" (ply 2))
  $ whenmod 64 8 (struct "t*<8 <4 <2 <1 [1 8]>>>>")
  $ "hh:7"
  # cut 3
  # gain (0.7 * (range 0.75 1.1 (fast 4 perlin)))
  # legato (range 1.1 0.25 (fast 4 perlin))
  # room 0.4 # sz 0.4
  # pan 0.8
d4 $ gF2 $ gM3 --
  $ midiOn "^44" ((off "0.125" (
    (|+| note "0 <7 12>") . (|- pan 0.1) . (# cut 41)
    )))
  $ midiOn "^76" (ply "<4!3 8>")
  $ note ("<[a4@4 c5 <c5 d5 c5 fs4>] a4>"
    + "[0,12]"
    - 36
    )
  # "bassWarsaw"
  # cut 4
  # gain 1.6
  # pan 0.3
  # octersub 0.5
  # octerbus 41 "^32"
  # squizbus 42 "^52"
d5 $ gF3 $ gM3 -- Piano guide premier
  $ midiOn "^57" (juxBy 0.9 ( -- Piano reflet second
      mask "<<f t> [<f t> t]>" .
      (# begin 0.5)
      . rev
      . (|+ note 12)
      . (|+ pan 0.2)
      . (|* gain 0.87)
      . (# cut 55))
  )
  $ slice 4 "<0 1 2 3 0 1 2 3 1 2 1 3 1 2 1 <~ 3>>"
  $ "nujazz_keys120"
  # n "<54!16 53!16>"
  # pan 0.8
  # freezebus 51 (range 0 0.7 "^33")
  # cut 5
  # gain 1.3
d7 $ gF2 $ gM3 -- Guitare egaree
  $ midiOn "^91" (ply 2)
  $ midiOn "^59" (ply 2)
  $ chop 4
  $ n "<0!3 1 0!3 1 3!3 4 3!3 5 6!3 7 6 6 7 7 6 7!3 7!4>"
  -- $ n "<>"
  # "nujazz_wahwah125"
  # cut 7
  # pan 0.8
  # room 0.124 # sz 0.25 # dry 0.5
  # octersubbus 71 (range 0 2 "^35")
  # octersubsubbus 72 (range 0 3 "^35")
  # gain 1.1
d8 $ gF1 $ gM2 -- JazzyBelle JazzyBreak
  $ midiOn "^92" (ply "2 <2 <4 [4 8]>>")
  $ chop 16
  $ midiOn "^36" (loopAt 0.5 . (# "jungle_breaks:24"))
  $ midiOn "^56" (# "jungle_breaks:24")
  $ loopAt 4
  $ n "<0!4 1!3 0 2!4 3!3 <2 3>>"
  # "nujazz_beats120"
  # pan 0.26
  # gain 0.9
  # octersub 1.2
  # octersubsub 2
  # cut 8
d10 $ gF3 -- Pads
  $ whenmod 64 132 ( -- ELECTRIFICATION
    # octerbus 101 (slow 32 $ range 0.1 1.9 cosine)
  )
  $ n "<47 <48!3 46>>"
  # cut 10
  # "nujazz_keys120"
  # room 0.5 # sz 0.8 # dry 0.5
  # pan 0.4
  # gain 0.75
d9 $ gM3 $ gF3 -- La chorale du jugement
  $ jux rev
  $ note ("<[a4@3 <c5 f5>] e5 [<d5!3 f5>] <a5!3 c6>>" + "<0!8 [0,12]!8>")
  # "moogBass"
  # chorus 0.2
  # gain 0.8
  # att 0.3
  # rel 2
  # room 0.8
  # sz 0.8
  # pan 0.8

once $ "jungle_vocals:28" # cut 6
