-- Nu: jazzy improvised instrumental
-- Tags: Hip-Hop, Melancholic, Piano
-- Ready:
do
setcps (90/60/4)
d1
  $ whenmod 16 10 (# silence)
  $ n "0 [1 ~ ~ <~!8 1!8>]" # "cpu2"
  # gain 0.65
  # lpf 3000
d2
  $ mask "<f!4 t!8 f!2 t!6 f!4>"
  $ someCycles (degradeBy "0 0.5!7" . fast 2)
  $ someCycles (ply 2)
  $ "~ ~ ~ sn" # "cpu:2" # gain 0.8
d3
  $ mask "<f!8 t!16 f!8>"
  $ whenmod 8 4 (# n "<3 4 [4 2] 2>")
  $ "808mt(3,8,1)"
  # n "<0 2>"
  # gain (slow 8 $ range 0.45 0.65 sine)
d4
  $ whenmod 16 8 (juxBy 0.25 id)
  $ fast "<1!2 4 1 4!2 [4 8] 8 [16 . 8 16] [16 . 4 8]>"
  $ "cpu:4"
  # gain (slow 32 $ range 0.4 0.7 sine)
d5
  $ note (scale "major" "<0!2 2 4 -2>")
  # "supergong"
  # accelerate (slow 32 $ "<1 -1>")
  # octave 2
  # gain 0.5
d6
  $ note ("<f e d <d!2 e f>>")
  # octave 3
  # pan 0.4
  # s "superpiano"
  # velocity 0.45
d7
  $ swing (slow 8 $ "<<2 4> 1>")
  $ whenmod 32 16 (mask "t(<10 11 12 13 14 15 16!7 12 10>,16)")
  $ ply 2
  $ segment (slow 8 "<1 <2 4>>") -- Light to tornado
  -- $ sometimesBy "<0.75!3 0.1>" (arp "updown")
  $ note ("<f e d <d!2 e f>>" + "c'maj'5")
  # octave 5
  # pan 0.55
  # pan 0.4
  # s "superpiano"
  -- # velocity (slow 8 ("<0.8 <0.75 0.65>>" + 0.45)) -- TODO: Electric velocity
  # gain (slow 8 ("<1 <0.9 0.8>>" * 0.35))


-- SANDBOX

once $ note "e"
# s "superpiano"
# velocity 0.8


d8 -- Cuivre Lancinant
  $ note "~ <<c5 e5> c5'min'2>/2"
  # "brass:12"
  # legato 2
  # pan 0.7
  # gain (slow 4 $ range 0.15 0.35 perlin)