cafe_glace.tidal 2.43 KB
once $ "nujazz_beats120"

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

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")
  $ midiOff "^43" (<| "~ . c*<1!3 <2!3 4>> ~")
  $ "[cp]"
  # gain 0.9
  # lpf 4650
d3 $ gF1 $ gM1 -- Highest hats
  $ midiOn "^44" (ply 2)
  $ midiOn "^76" (ply 2)
  $ "drum:2*[<6!3 12> <6 [8 <12 24>]>]"
  # "h2ogmsn:12"
  # cut 3
  # legato (range 0.28 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 $ 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
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
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 0.9
d8 $ gM1 $ gF1
  -- Transforms over samples
  $ midiOn "^60" (iter "1 4") -- Split
  $ 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