From a773e6559fe55b9257df5a26589a0dcc739c24aa Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Sat, 23 Apr 2016 13:00:40 +0100
Subject: [PATCH] add megalet

---
 README.md                      |  2 ++
 something-to-say.megalet.tidal | 26 ++++++++++++++++++++++++++
 2 files changed, 28 insertions(+)
 create mode 100644 something-to-say.megalet.tidal

diff --git a/README.md b/README.md
index 133bcb5..78624be 100644
--- a/README.md
+++ b/README.md
@@ -14,6 +14,8 @@ I haven't bothered retaining the original source in this repo because a) it's br
 
 `something-to-say.tidal` contains a rough reformulation of the original composition, with some tweaks reflecting how I recall wanting it to sound. This includes reusable parts and full composition notes, as well as named channels because I'm starting to get confused after my fifth beer while working on this recovery job.
 
+`something-to-say.megalet.tidal` contains a big `let` directive that can be eval'd (`C-c C-e`) all at once to init variables used in the song.
+
 ## Sample attributions
 
 ```
diff --git a/something-to-say.megalet.tidal b/something-to-say.megalet.tidal
new file mode 100644
index 0000000..2d0441e
--- /dev/null
+++ b/something-to-say.megalet.tidal
@@ -0,0 +1,26 @@
+{-
+anny fm: something to say megalet
+see something-to-say.tidal for full composition
+-}
+
+let cf = slow 2
+    iter' n p = slowcat $ map (\i -> ((fromIntegral i)%(fromIntegral n)) ~> p) [0 .. n]
+    ss'stab = s "stab"
+              # n (slow 6 "1 2 3 4 [5 6]/3")
+              # vowel "i"
+    ss'kurt = s "kurt"
+              # speed "0.6"
+              # shape "0.3"
+              # vowel "u"
+    ss'perc = s "{[bd ~ ~ bd] msg, hh*2}"
+    ss'perc' = s "{[rm ~ ~ rm] msg, hh*2}"
+    ss'verse = s "sitw"
+               # n (slow 8 $ run 8)
+    ss'chorus = s "sitwc"
+                # n (slow 4 $ run 4)
+    d'drum = d1
+    d'bass = d2
+    d'voc = d9 -- vocal
+    d'gt = d3 -- guitar [stab]
+    d'kurt = d4
+    d'moog = d5