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

Add looptober-09.hs

Browse source
This commit is contained in:
arne 2023-10-09 21:38:20 +02:00
commit 8d450bf88d
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
looptober-09.hs Normal file
View file

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