setcps 1

----
-- TECHNO
----
d1 $ "k"
# s "clubkick"

d2 $ s "dr*4"
# gain (slow 16 $ cosine * 0.8 + 0.4)

let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])

d3
$ every 4 (|- note 12)
$ every' 8 7 (|+ note 10)
$ superimpose (|+ note 6)
$ whenmod 8 6 (superimpose ( -- piano!
  (# s "superpiano")
. (# velocity 0.7)
. (0.125 ~>)
  ))
$ rev
$ note (scale "blues" "0 .. 3 <7 7 10 6 7> .. <8 10 7 7 7>")
|- note 12
# s "defaultB"
# gain 0.9

d4
$ note (scale "blues" "<0 [0 5]>")
# s "bassWarsaw"
|- note 24
# pan 0

d4
$ every 4 (off "<0.25 [0.25|0.125]>" id)
$ s "~ ~ cp ~"