near/gists
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add looptober-12.hs

Browse source
This commit is contained in:
arne 2023-10-12 23:16:28 +02:00
commit a14f807a07
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
looptober-12.hs Normal file
View file

@ -0,0 +1,13 @@
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)
]