Browse Source

add megalet

Aneurin Barker Snook 9 năm trước cách đây
mục cha
commit
a773e6559f
2 tập tin đã thay đổi với 28 bổ sung0 xóa
  1. 2 0
      README.md
  2. 26 0
      something-to-say.megalet.tidal

+ 2 - 0
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
 
 ```

+ 26 - 0
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