From a14f807a07cc4fe5d8cc8c3acbfb870304cac509 Mon Sep 17 00:00:00 2001 From: arne Date: Thu, 12 Oct 2023 23:16:28 +0200 Subject: [PATCH] Add looptober-12.hs --- looptober-12.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 looptober-12.hs diff --git a/looptober-12.hs b/looptober-12.hs new file mode 100644 index 0000000..3ebd70c --- /dev/null +++ b/looptober-12.hs @@ -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) + ]