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

Add looptober-32.hs

Browse source
This commit is contained in:
arne 2023-10-31 19:12:31 +01:00
commit 2a8ca66a6c
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
looptober-32.hs Normal file
View file

@ -0,0 +1,6 @@
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>)"