13 lines
446 B
Haskell
13 lines
446 B
Haskell
d1 $ sometimes ( echoWith 2 (1/2) (# krush ( slow 2 sine * 0.2 )) )
|
|
$ n ( "[d3,d4](5,8,<3!3 4>)" |+ (sine * 0.1) )
|
|
# s "superfm" # legato 2
|
|
# amp 0.2
|
|
|
|
d2 $ n (scale "dorian" "[~ <~!4 4!3 2!2 0!2 ~!4 <~ 1> ~!2>]!4" + "d5")
|
|
# s "superfm" # sus 0.7 # legato 1.5
|
|
|
|
d3 $ stack [
|
|
s "[akailinnbd*2 ~]*2" # lpf "[<1000 800> ~]*2",
|
|
s "akailinnsd*2" # lpf 2000,
|
|
mask "t f" $ s "linndrumhh:1(3,8)" # lpf (range 500 700 $ slow 4 cosine)
|
|
]
|