kumai_nights.tidal

-- Kumai nights Techno kawai nocturne
-- Accompagne piano Do re Mib Sol Lab Do re Mib
do
-- resetCycles
setcps (60/60/4)
let gF = (whenmod 32 16 (# djf (slow 16 $ range 0 0.5 saw)))
d1 -- Kick régulier
  $ mask "<f!3 [t f!3]!2 [t f]!2 t!121>" -- Intro/128
  $ gF
  $ fast "8 <8!3 4 8 [8 4] 8 [8 4]>"
  $ "jazz"
  # gain 0.9
d2 -- Gretsch entrainée
  $ gF
  $ someCyclesBy "<t!16 f!112>" -- Intro/128
  (mask "<f t!3> <t [f t] [t f] t>"
  . degradeBy "<[0 <0.9 0.1> <0.9!3 [t f!3]!2 [t f]!2 t>]!8 0!120>"
  )
  $ fix
    ( -- HATS
      whenmod 64 48 (fast "0.5 0.25")
      . (|* gain (slow 16 $ range 0.55 1 sine))
      . (# room 0.5)
      . (# sz 0.5)
      . (# legato
        "<[1 <1!3 <0.5 0.375 0.25 0.125>>]!24 0.125!8>"
        )
    )
    (n "[4,5]")
  $ fix ( -- BD irrégulier
    # lpf (slow 10 $ range 10000 200 perlin)
    )
    (n "[0,1]")
    $ fix -- Cloches
    (|* gain 0.85)
    (n 6)
  $ fix ( -- Cymbales
    sometimesBy "f t" (swing 2) .
    (<| "h(<8!6 <2!3 16> <2!3 16>>,12)")
    . (|* gain (slow 4 $ range 0.65 0.45 (sine + perlin)))
    . (# cut 27)
    . (# pan 0.55)
  ) (n 7)
  $ n (stack [
  "[0,1](<3!3 [3 5]>,8,<0!8 3!8>)",
  "[<5!2 4!2> <4!3 5!3>](<12!4 16 [16 12] [12 16] [16 12 16]>,16)",
  "6*<1!4 2 [2 4] 4 <8 [8 1]>>",
  "7"
  ]) # "gretsch" # gain 0.8
d3 -- Rhodes gamme
  $ superimpose (
    (|* gain 0.8)
    . (|- note 12)
  )
  $ often (ply "<2!3 <4 8>>")
  $ whenmod 64 16 (superimpose (
    arp "<up [up down] down [down up]>"
    . (|+ note "[0,7]")
    . (# "FMRhodes2")
    . (# gain 0.8)
  ))
  $ slow 4
  $ note (scale
    "kumai"
  (
    run "<4!8 8!4 4!4>"
  ))
  # "FMRhodes1"
  # octave 4
  # gain (slow 16 $ range 0.9 1 perlin)
  # room 0.4
  # sz 0.5
  # voice 0.9
d10
  $ juxBy 0.25 rev
  $ arp "<up down> <down!6 pinkyup!2>"
  $ note (scale
    "kumai"
  (
    "c'maj'4 c'min'4 c'min'4 c'maj'4"
  ))
  # "glitch2:9"
  # room 0.25
  # sz 0.5
  # gain 0.5