-- EVAL IN CASE OF EARRAPE
hush

setcps (120/60/4)

d1 $ stut 3
      (range 0.02 0.8 rand)
      (range (1/16) (3/16) square)
    $ s "sn:3"

d1 silence

d2 $ fast 2 $ s "808:7 [~ 808:7]"

d2 silence


d3 $ s "bd:5!4" # gain 1.3

d3 $ stack [
    s "bd:5!4" # gain 1.3,
    sometimes (hurry 4) $ s "bd:5!4" # gain 1.3
    ]

d3 silence


d4  $ slow 10
    $ sometimes (# speed (-1))
    $ n (run 10) +| "0*40"
    # s "numbers"
    # begin (range 0.1 0.2 rand)
    # end (range 0.3 0.4 rand)
    # room 1
    # delay 1 # delayfeedback 0.8 # delaytime (1/8)
    # lock 1

d4 silence

-- "Space for Future Expansion"

d7  $ note "<[e4!4 [f4*10]] [e5!3 g5 [f5*10]] [e5!3 g5 [f5*10],g5!3 b5 [a5*10]] [e5!3 g5 [f5*10],g5!3 b5 [a5*10]]>"
    # s "jvbass"
    # room 1
    # delay 0.5
    # delayfeedback 0.8
    # delaytime 0.5

d7 silence


d8  $ slow 4 
    $ degradeBy 0.9
    $ sometimes rev
    $ n (run 32)
    # s "industrial"
    # room 1 # size 1
    # delay 0.5 # delayfeedback 0.5 # delaytime (1/4)
    # lock 1
    # speed (-4)
    # gain 0.7
    # release 0.9

d8 silence

d9 $ slow 5 $ loopAt 5 $ s "sheffield"  # gain 0.5 # release 0.9

d9 silence

d10 $ jux ( sometimes rev ) $ loopAt 1 $ chop 4 $ s "breaks125" # delay 0.5 # delaytime (1/4)

d1 $ slow 8 $ s "tabla" <| n (run 26)

-- Something different:

d1 $ slow 2 $ s "arpy" <| up "c'maj(3,8) f'maj(3,8) ef'maj(3,8,1) bf4'maj(3,8)" # delay 0.5
d2 $ s "can" <| n (run 16) # speed "0.125 1!15"
d3 $ slow 2 $ s "speakspell" <| n (run 12) # speed "{-1 2 0.25? -0.5}%6"
d4 $ jux (# delay 0.5) $ s "808bd:3" # gain 1.5 # delaytime (1/400) # lock 1
d5 $ degradeBy 0.3 $ fast 8 $ s "[clak clak]!2" <| n (run 2) # gain "1 0.7 0.7 0.7"

hush