6 lines
474 B
Haskell
6 lines
474 B
Haskell
do
|
|
d1 $ slice 4 "<1*2 1> [2|2|2|3]" $ s "cbow:4" # speed "-1" # up "es"
|
|
d2 $ every 2 ( superimpose (echo 3 (1/8) 0.9 . (# up "24") . (# amp 0.1) . (# distort 0.8)) ) $ sometimes (# speed "-1") $ slice 4 "<1 1*3> 2*2" $ s "cbow:4" # up "es4" # room 0.1 # sz 0.2
|
|
d3 $ n "d" # s "supernoise" # voice 1 # ampbus 1 (range 0.05 0.1 $ degradeBy (1/9) $ segment 256 $ slow 6 sine)
|
|
d4 $ (range (1/2) 0 $ perlin) ~> s "cpluck:6" # krush 0.9
|
|
d5 $ s "akailinnbd(2,3,<0 1 2>)"
|