Ver Fonte

add megalet

Aneurin Barker Snook há 9 anos atrás
pai
commit
a773e6559f
2 ficheiros alterados com 28 adições e 0 exclusões
  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