From 8d450bf88d7bc4b1c2633fde97ac547107a6246d Mon Sep 17 00:00:00 2001 From: arne Date: Mon, 9 Oct 2023 21:38:20 +0200 Subject: [PATCH] Add looptober-09.hs --- looptober-09.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 looptober-09.hs diff --git a/looptober-09.hs b/looptober-09.hs new file mode 100644 index 0000000..bdf7255 --- /dev/null +++ b/looptober-09.hs @@ -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 + ]