-- Kumai darling Techno kawai nocturne
-- Accompagne piano Do re Mib Sol Lab Do re Mib
do
setcps (60/60/4)
let gF = (whenmod 32 16 (# djf (slow 16 $ range 0 0.5 saw)))
d1 -- Kick régulier
  $ gF
  $ fast "8 <8!3 4 8 [8 4] 8 [8 4]>"
  $ "jazz"
  # gain 0.9
d3 -- Rhodes gamme
  $ superimpose (
    (|* gain 0.8)
    . (|- note 12)
  )
  $ often (ply "<2!3 <4 8>>")
  $ arp "<up [up down] down [down up]>"
  $ 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
d2 -- Gretsch entrainée
  $ gF
  $ fix
    ( -- HATS
      whenmod 64 48 (fast "0.5 0.25")
      . (|* gain (slow 16 $ range 0.55 1.25 cosine))
      . (# 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

once $ "superreese"