setcps 1

hush

once
$ slow 1.2
$ hurry 1.2
$ s "superhammond" # release 1.7

d1
$ every 4 (fast 2)
$ s "[lt,hardkick]*2"
# gain 0.8

d2 -- impro au blip
$ whenmod 16 4 (# gain 1)
$ whenmod 16 0 (# gain 0)
$ degrade
$ off (1/8) (|+ 7)
-- $ off (1/8) (|+ 5)
-- $ always (off (1/4) (degradeBy 0.8)) -- accompagnement intense
-- $ rarely (off 0.5) -- accompagnement intense
$ every 4 (rev)
$ s "blip*8"
# note (choose [0, 2, 4, 5, 7, 9, 11, 12])

d3 -- cor de chasse numérique
$ whenmod 16 10 (# gain 0)
$ every 4 (off 0.25 rev)
$ slow 2
$ every "<2,4>" (off 0.125 (|+ 7))
$ every 2 (off 0.125 (|+ 7))
$ s "superhammond"
# gain 0.6

d4 -- ulgab!
$ sometimes (# gain 0)
$ every 8 rev
$ every' 4 3 (fast 4)
-- $ fast "<1 1 1 2>"
$ s "ulgab"
# n "<0 2 4 1>"

d1 $ n "0 2 4 5 7 9 11 12"  -- gamme pentatonique
d1 $ n "0 2 3 4 5 6 7 9 10 11 12"  -- gamme du blues

d4
$ s "[bd]*3 <cp,sn>/2"

d5
$ every 4 (off (0.125 (|+ 5)))
$ off (0 (|+ 7))
$ every 4 (rev)
$ s "superpiano*8"
# up (run 8)