setcps 1

d1
$ whenmod 32 28 (hurry 2)
$ every 4 (0.125 ~>)
$ s "hh(<2 3>,4)"
# s "reverbkick"
# gain 0.8

d2
$ whenmod 32 28 (# silence)
$ whenmod 8 5 (
-- $
  off 0.125 (# note "<4 6 9>")
  )
$ whenmod 32 4 (# gain 0.7)
$ every 4 degrade
$ s "[hh?*4] <~ hh*2>"
# s "bass3"
# note "<3 0> <0 3>"
# gain 0.5

unsolo 2

d3
$ whenmod 32 28 (# silence)
$ whenmod 32 27 (# release 1)
$ whenmod 30 20 (# gain 0.7)
$ whenmod 8 4 (rev)
$ hurry 0.5
-- $ off 0.125 (# gain 0.7)
$ s "hh(<3 5>, 8)"
# s "trump:4"
# note "0 7 12"
# cut 1
# gain 0

d4
$ whenmod 32 28 (# silence)
$ whenmod 24 16 (
  -- # note "<<0 4> <7 12>>"
  # note "<<5 7> <9 12>>"
  )
$ whenmod 24 8 (
  # note "<<0 4> <7 12>>"
)
$ whenmod 8 4 (rev)
$ chop 4
$ s "sax"
# note "<0 <7 12>>"
-- # note "<0>"
# release 2


d1 $ n "0 2 4 5 7 9 11 12"  -- gamme pentatonique