diff --git a/something-to-say.megalet.tidal b/something-to-say.megalet.tidal index 2d0441e..37b4d96 100644 --- a/something-to-say.megalet.tidal +++ b/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 diff --git a/something-to-say.tidal b/something-to-say.tidal index cabb17e..bd8165c 100644 --- a/something-to-say.tidal +++ b/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