From bc6f43024bde544c973e4125d2dca5947c60e28b Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Sun, 29 Jan 2017 12:58:33 +0000
Subject: [PATCH] add megalet

---
 haddeo.megalet.tidal | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 haddeo.megalet.tidal

diff --git a/haddeo.megalet.tidal b/haddeo.megalet.tidal
new file mode 100644
index 0000000..0150bf9
--- /dev/null
+++ b/haddeo.megalet.tidal
@@ -0,0 +1,24 @@
+-- megalet for haddeo.tidal
+let bpm b = cps (b/60)
+    withmod a b c d = (whenmod a b . within (c, d))
+    every' n o f = when ((== (o-1)) . (`mod` n)) f
+    msil = mapM_ ($ silence)
+    tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
+    swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
+    swing' = swing 0.14 --0.05
+    d'drum = d1
+    d'bass = d3
+    d'bass2 = d2
+    d'wax = d4
+    d'nim = d5
+    d'hi = d6
+    d'fx1 = d8
+    d'fx2 = d9
+    d'fx3 = d10
+    nim'osc = (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
+    nim'del = (# orbit "1") .
+              (# delay "0.5") .
+              (# delayfeedback "0.6") .
+              (# delaytime "0.25")
+    tmod' s e = tmod (s*(1/(105/60))) e
+    mt s d i = slow s $ tmod' 0.5 3 $ density d $ i