From 4b450a27aabfd3444472f6eb3043a07398f4aced Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Sat, 23 Apr 2016 12:51:19 +0100
Subject: [PATCH] add megalet file, more comments

---
 README.md                |  4 +++
 battery123-megalet.tidal | 64 ++++++++++++++++++++++++++++++++++++++++
 battery123.tidal         | 18 +++++++++--
 3 files changed, 83 insertions(+), 3 deletions(-)
 create mode 100644 battery123-megalet.tidal

diff --git a/README.md b/README.md
index 5baddf7..c5f2f6a 100644
--- a/README.md
+++ b/README.md
@@ -15,6 +15,10 @@ This version updated April 2016 for Tidal 0.7 (jumping three whole major patches
 
 Older versions of this composition with original notes are available on the `original-notes` tag of this repository.
 
+### battery123-megalet.tidal
+
+Contains a big `let` directive to initialize all variables used in `battery123.tidal` (where they are recorded separately). Eval the whole block with `C-c C-e` and dive in.
+
 ## Sample attributions
 
 ```
diff --git a/battery123-megalet.tidal b/battery123-megalet.tidal
new file mode 100644
index 0000000..39512ca
--- /dev/null
+++ b/battery123-megalet.tidal
@@ -0,0 +1,64 @@
+{-
+anny fm: battery 1,2,3 megalet
+see battery123.tidal for full composition
+-}
+
+cps (125/60)
+
+let cf = slow 2
+    every' n o f = when ((== (o-1)) . (`mod` n)) f
+    halfosc = (/2).(+0.5)
+    halfosc1 = (+1).(/2)
+    thirdosc1 = (+1).(/3)
+    d'drum = d1
+    d'perc = d2
+    d'bass = d3
+    d'mosq = d4
+    d'tac = d9 -- tacscan
+    d'warb = d6 -- warbler
+    d'arpy = d7
+    d'tr = d8 -- trump
+    d'bass2 = d5 -- more bass right at the end
+    b1'bass = s "bass3 [~ bass3] ! ~"
+              # begin "0.2"
+    b1'mosq = slow 8 $ rev . striate 256 $ s "hand*8"
+              # speed "0.7"
+    b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
+    b1'tac = s "[~ tacscan] ! ~ ~"
+             # gain "0.8"
+             # vowel (slow 3 "e u")
+    b1'warbler = slow 4 $ striate 32 $ s "warbler"
+                 # n (slow 7 $ run 7)
+                 # gain "0.8"
+    b2'uxp = (# gain "0.8") .
+             (# speed "[0.7 1 1.2]/2")
+    b2'psr = s "psr*4 psr*2"
+             # gain "0.6"
+    b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4"
+              # gain "0.6"
+    b2'trump p = whenmod 5 4 rev $ s p
+                 # n (slow 3.2 $ run 4)
+                 # gain "0.8"
+                 # speed (halfosc1 <$> slow 4 sinewave1)
+                 # vowel (slow 3.2 "a e o")
+                 # shape "0.6"
+    b2'bass = slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
+              # n (slow 2.8 "0 1 2")
+              # vowel "i"
+              # speed "0.8"
+    b2'arpy = s "arpy*8"
+              # n "2 1 3 1"
+              # gain "0.7"
+    b3'perc = s "[tok*2 [rm tok]] [psr:1 tok*2]"
+    b3'bass = s "bass*4"
+              # n "0 1"
+              # begin "0.4"
+              # speed "1.2"
+              # shape "0.2"
+    b3'bassf = s "{bass*4, wobble*3}"
+               # n "0 1"
+               # begin "0.4"
+               # speed "1.2"
+               # shape "0.2"
+    b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~"
+    b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"
diff --git a/battery123.tidal b/battery123.tidal
index a668be8..221d764 100644
--- a/battery123.tidal
+++ b/battery123.tidal
@@ -55,6 +55,7 @@ let b1'warbler = slow 4 $ striate 32 $ s "warbler"
                  # n (slow 7 $ run 7)
                  # gain "0.8"
 
+-- go
 d'bass $ slow 4 $ b1'bass
 
 d'bass $ slow 4 $ b1'bass
@@ -64,11 +65,13 @@ d'bass $ slow 4 $ b1'bass
   # n "0 1 0 0"
   # speed (thirdosc1 <$> slow 8 sinewave1)
 
+-- reversed snare, but so named cause someone told me it sounded like a mosquito
 d'mosq $ b1'mosq
 
 d'mosq $ b1'mosq
   # shape ((/2) <$> slow (10%4) sinewave1)
 
+-- nice drum
 d'perc $ cf $ b1'perc
 
 d'mosq $ b1'mosq
@@ -82,6 +85,7 @@ d'perc $ cf $
   jux (0.25 <~) $ b1'perc
   # n (density 3 $ run 2)
 
+-- good bass
 d'bass $ cf $
   spread slow [1,3] $
   striate 16 $
@@ -98,14 +102,15 @@ d'drum $ cf $
 
 d'drum $ cf $ s "~ psr:1"
 
+-- good drum
 d'drum $ cf $
   overlay (s "~ psr:1") $
   every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~"
 
 d'drum $ cf $ s "~ psr:1"
 
+-- bring a funk
 d'tac $ cf $ b1'tac
-
 d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
 
 d'drum $ overlay (s "peri") $ cf $
@@ -113,6 +118,7 @@ d'drum $ overlay (s "peri") $ cf $
 
 d'drum $ cf $ s "~ psr:1"
 
+-- birdsong. don't play it for too long. gets annoying
 d'warb $ b1'warbler
 
 d'perc $ cf $
@@ -128,6 +134,7 @@ d'drum $ overlay (s "peri") $ cf $
 
 mapM_ ($ silence) [d'bass, d'tac]
 
+-- drum + perc are real nice at this point
 d'drum $ overlay (s "peri") $ cf $
   every' 8 8 (density 1.5) $
   every 2 (density 3) $ s "~ psr:1"
@@ -172,6 +179,7 @@ let b2'arpy = s "arpy*8"
               # n "2 1 3 1"
               # gain "0.7"
 
+-- go
 d'perc $ cf $ s "uxay*2"
   # n "1"
 
@@ -189,13 +197,14 @@ d'drum $ cf $ every 3 (0.125 <~) $ b2'psrf
 d'drum $ overlay (s "peri") $
   cf $ every 3 (0.125 <~) $ b2'psrf
 
-d'warb silence
-
+-- this and next 3 parts real quick
 d'perc $ cf $ brak $
   b2'uxp $ s "uxay*4"
   # n "1 0 1 2"
   # shape "0.4 0.3 0.6"
 
+d'warb silence
+
 d'drum $ cf $ -- overlay (s "peri") $
   every 3 (0.125 <~) $ b2'psrf
 
@@ -269,6 +278,7 @@ let b3'bass = s "bass*4"
 let b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~"
     b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"
 
+-- go
 d'arpy $ cf $
   whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
   iter 9 $ b2'arpy
@@ -347,6 +357,7 @@ d'bass $ cf $
 
 mapM_ ($ silence) [d'perc, d'tac]
 
+-- drum solo-ish for a bit
 d'drum $ cf $
   overlay (b3'drumf) $
   whenmod 5 3 (density 2) $
@@ -388,6 +399,7 @@ d'perc $ cf $
   jux (0.25 <~) $ b1'perc
   # n (density 3 $ run 2)
 
+-- rebuild yr way out
 d'drum $ cf $
   overlay (b3'drumf) $
   (b3'perc # n (slow 3 $ run 4))