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