add msil convenience fn, regenerate megalet

This commit is contained in:
Aneurin Barker Snook
2016-04-24 18:47:07 +01:00
parent bf538e3176
commit a684aefd0f
2 changed files with 11 additions and 11 deletions
+7 -4
View File
@@ -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