setcps 0.62

do
  let bars = 4
      key = "8"
      rightHand = "[4 -3]      [0 . ~ [0 -3]] . [~ -8]       [7 5 4 0]"
      leftHand =  "[0 9 12 16] [4 12 16 19]   . [5 12 17 19] [2 12 17 16]"
      cutPreEnd = "1!4 1 <1!7 0> <1!3 0> 0"
      cutPostBegin = "[0 <1!3 0>] 1!7"
  d1 -- Piano, with cutting progression
     $ slow bars
     $ degradeBy (slowcat [
       "1",
       cutPreEnd, cutPreEnd,
       cutPostBegin,
       "0.75", "0.5", "0.25", "0",
       "0", "0"
       ])
     $ stack [
      degradeBy (slow 4 $ "<1 0 [0 1] 1>") $
      n (rightHand + key+ "<24 36>/2"),
      degradeBy (slow 4 $ "<0 [1 0.5] 0 0>") $
      n (leftHand + key)
      ]
     # "superpiano"
     # velocity 0.35
     # octave "3"
     # sustain "[2 0.7]*4"
  d2  -- Beat slowly varying
    $ slow (bars / (slow 16 $ "<1 2>"))
    $ s "d(<[5 4] [3 8] 5 [4 16]>,8)"
    # s "jazz"
    # lpf (slow 16 $ range 500 15000 sine)
    # gain 0.8
  d3 -- Drumroll
    $ fast "16 <2!3 8> <4!3 8> <1!3 <4, 8>>"
    $ s "drum:2"
    # gain (slow 8 $ range 0.65 0.8 sine)
  d4 -- Bass
    $ slow bars
    $ rarely rev
    $ bite 4 (
      "[0, ~ ~ <3 [3|2|1]>*4 1]"
    )
    $ note (leftHand + key)
    |- note 36
    # s "bassWarsaw"
    # gain 0.7
  d5 -- Choir
    $ whenmod 4 2 (superimpose (|+ note 12) . (|- gain 0.1))
    $ slow (bars * 2)
    $ bite 4 "0"
    $ note (leftHand + key)
    |- note 36
    # s "moogBass"
    # gain (slow 32 $ range 0.7 0.9 saw)


---- # Initial

setcps 0.62
solo 2


do
  let bars = 4
      key = "8"
      rightHand = "[4 -3]      [0 . ~ [0 -3]] . [~ -8]       [7 5 4 0]"
      leftHand =  "[0 9 12 16] [4 12 16 19]   . [5 12 17 19] [2 12 17 16]"
  d1
     $ slow bars
     $ stack [
      n (rightHand + key+ "<24 36>/2")
      # sustain 1, -- TODO find right value
      n (leftHand + key)
     ]
     # "superpiano"
     # velocity 0.5
     # octave "3"
     # sustain "[2 0.7]*4"