add msil convenience fn, regenerate megalet

2016-04-24 18:47:07 +01:00
parent bf538e3176
commit a684aefd0f
2 changed files with 11 additions and 11 deletions
@@ -1,9 +1,6 @@
-{-
-anny fm: something to say megalet
-see something-to-say.tidal for full composition
-}
-
-let cf = slow 2
+-- megalet for something-to-say.tidal
+let msil = mapM_ ($ silence)
+    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")
@@ -20,7 +17,7 @@ let cf = slow 2
                # 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
+    d'voc = d9 -- vocal