2
0
Эх сурвалжийг харах

add msil convenience fn, regenerate megalet

Aneurin Barker Snook 9 жил өмнө
parent
commit
a684aefd0f

+ 4 - 7
something-to-say.megalet.tidal

@@ -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

+ 7 - 4
something-to-say.tidal

@@ -10,6 +10,9 @@ soundcloud.com/anny-fm/something-to-say
 
 cps (106/60)
 
+-- multi-silence
+let msil = mapM_ ($ silence)
+
 -- shortfix for bps->cps
 let cf = slow 2
 
@@ -42,10 +45,10 @@ let ss'chorus = s "sitwc"
 -- channel defs
 let 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
 
 -- go
 d'gt $ cf $ ss'stab
@@ -90,7 +93,7 @@ d'bass $ cf $ striate 4 $ sound "wobble [wobble]/3"
 
 -- break down to rebuild
 d'voc silence
-mapM_ ($ silence) [d'drum, d'bass, d'gt, d'kurt]
+msil [d'drum, d'bass, d'gt, d'kurt]
 
 d'drum $ cf $ slow 2 $ ss'perc
 
@@ -138,7 +141,7 @@ d'voc $ cf $ slow 4 $ ss'chorus
   # vowel "e"
 
 -- another breakdown
-mapM_ ($ silence) [d'drum, d'gt, d'kurt]
+msil [d'drum, d'gt, d'kurt]
 
 d'drum $ cf $
   every 2 (superimpose $ iter' 3) $
@@ -194,7 +197,7 @@ d'drum $ overlay (s "house" # gain "1.5") $ cf $
 
 -- quickly
 d'voc $ slow 8 $ ss'verse # vowel "e"
-mapM_ ($ silence) [d'bass, d'gt, d'kurt, d'moog]
+msil [d'bass, d'gt, d'kurt, d'moog]
 d'drum $ cf $ slow 2 $ ss'perc
 
 hush