breathe.tidal 1.84 KB
do
let modIndex = pF "modIndex"
let g =  (# djfbus 1 (range 0.1 0.9 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
setcps (83/60/4)
d1 $ g
  $ fix (|* gain 0.8) "jazz"
  $ midiOn "^42" (<| "k*<<1!3 2> 2 <1!3 2> <1 <2 1>>> k k <k [k k <~ ~ k k> <~ k>]>")
  $ midiOff "^42" (<| "k . k(<3!3 <1 3>>,8) <~!3 k>")
  $ "[808bd:4,jazz]"
  # room 0 # sz 0
  # midiG' "^78" 0 1.2
d2 $ g -- Snare contretemps
  $ mask "<t!3 <f t <f!3 t> <f t>>>"  -- Some breaks
  $ whenmod 4 3 (off (-1/16) (|- note 3)) -- Double shot
  $ "~ c"
  # "snare:42"
  # midiG' "^79" 0 1.3
d3 $ g -- Drumroll
  $ midiOn "^44" (ply 2)
  $ midiOn "^76" (ply 2)
  $ fast "1 <1 1 2 1>" $ ply "1 1 <2 1> <1 1 2 2>"
  $ "[amencutup]*8"
  # n "[3!3 <3 4> 3!3 4]"
  # midiG' "^80" 0 1.8
d4 $ g2
  -- $ superimpose (|- note 24)
  $ note (
    "0 . <0 0([<1 3> 3],8)>" |+
    -- "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
    "<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b]>"
  )
  # "FMRhodes1"
  # modIndex (range 0 32 "^54")
  # pan 0.8
  # midiG' "^82" 0 1.8
d5 $ g2 -- Programmatic bass robot
  $ midiOn "^57" (mask "t f!6 t?") -- Take a break my dear
  $ whenmod 64 32 (sometimesBy "0 1" rev) -- Run in circles
  -- $ swing "8"
  $ struct "t([16 8 <16 8 <4 32>>],16)"
  $ arp "<up!8 downup!8 updown!8 thumbupdown!8>"
  $ superimpose ((|+ note 12) . (# cut 51))
  $ note (
    "<[a,c6,e6,g6] [fs,a,c6,d6] [f,a,c6,e6] [c,e,g,b,<g6 b6>]>"
    - 36
  )
  # "bassWarsaw"
  # pan 0.2
  # crushbus 51 (range 16 4 "^53")
  # room 0.6 # dry 1 # sz 0.83
  # legato 8 # cut 5
  # midiG' "^81" 0 0.98
d8 $ g -- Nes Drumfest
  $ midiOn "^92" (ply 2)
  $ midiOn "^60" (superimpose (const $ g
    $ chop 16 $ loopAt 4 $ "drums_nes:5" # cut 81 # midiG' "^84" 0 1.2)
  )
  $ loopAt 2
  $ slice 4 (run 4)
  $ "drums_nes"
  # n ("<1!3 [1 <1 1 2 [2 3]>]>")
  # cut 8
  # midiG' "^84" 0 0.98