16 lines
447 B
Haskell
16 lines
447 B
Haskell
setcps(97 / 60 / 4)
|
|
|
|
d1 $ stack [
|
|
every 2 (while "t f" $ swing 2) $ s "akailinnbd*4"
|
|
, s "akailinnht*2"
|
|
, ((0.025 * perlin) ~>) $ s "akailinnsd*2"
|
|
, s "[~ akailinnoh]/4"
|
|
]
|
|
|
|
d2 $ s "[~ cpluck:3]*6"
|
|
# krush (range 0.3 0.7 $ slow 2 sine)
|
|
# pan (slow 2 cosine)
|
|
# up (scale "dorian" ((1/4) ~> "<0!3 <1!2 -1>>"))
|
|
# crush (range 6 10 $ slow 2 perlin)
|
|
|
|
d3 $ n "[~ <d2*2!2 d2*3>]*2" |* n "[1,1.01]" # s "superfm" # legato 2 # amp 0.2
|