12 lines
327 B
Haskell
12 lines
327 B
Haskell
setcps(100/60/4)
|
|
|
|
d1 $ rarely (# speed "1")
|
|
$ rarely ( superimpose ( echo 2 (1/4) 0.8 . (# up "<5.1 7.2>") . (# amp 0.2) . (# distort 0.05) ))
|
|
$ echo 2 (1/3) 0.8
|
|
$ slice 8 "2*4"
|
|
$ s "cbow:2"
|
|
# speed "-1" # up (scale "minPent" "<0!3 -1>" + "d4") # room 0.1 # sz 0.2
|
|
|
|
d2 $ stack [
|
|
s "akailinnbd*2" # amp 0.2
|
|
]
|