update mosq->hand, add msil convenience fn, regen megalet

battery123.megalet.tidal

@@ -1,11 +1,6 @@
-{-
+-- megalet for battery123.tidal
-anny fm: battery 1,2,3 megalet
+let msil = mapM_ ($ silence)
-see battery123.tidal for full composition
+    cf = slow 2
--}
-
-cps (125/60)
-
-let cf = slow 2
     every' n o f = when ((== (o-1)) . (`mod` n)) f
     halfosc = (/2).(+0.5)
     halfosc1 = (+1).(/2)
@@ -13,15 +8,15 @@ let cf = slow 2
     d'drum = d1
     d'perc = d2
     d'bass = d3
-    d'mosq = d4
+    d'hand = d4
-    d'tac = d9 -- tacscan
+    d'warb = d5 -- warbler
-    d'warb = d6 -- warbler
+    d'bass2 = d6 -- more bass right at the end
     d'arpy = d7
     d'tr = d8 -- trump
-    d'bass2 = d5 -- more bass right at the end
+    d'tac = d9 -- tacscan
     b1'bass = s "bass3 [~ bass3] ! ~"
               # begin "0.2"
-    b1'mosq = slow 8 $ rev . striate 256 $ s "hand*8"
+    b1'hand = slow 8 $ rev . striate 256 $ s "hand*8"
               # speed "0.7"
     b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
     b1'tac = s "[~ tacscan] ! ~ ~"

battery123.tidal

@@ -13,13 +13,16 @@ soundcloud.com/anny-fm/battery-123-live
 
 cps (125/60)
 
+-- multi-silence
+let msil = mapM_ ($ silence)
+
 -- shortfix for bps->cps
 let cf = slow 2
 
 -- alternative every
 let every' n o f = when ((== (o-1)) . (`mod` n)) f
 
--- oscillations
+-- osc patterns
 let halfosc = (/2).(+0.5)
     halfosc1 = (+1).(/2)
     thirdosc1 = (+1).(/3)
@@ -28,12 +31,12 @@ let halfosc = (/2).(+0.5)
 let d'drum = d1
     d'perc = d2
     d'bass = d3
-    d'mosq = d4
+    d'hand = d4
-    d'tac = d9 -- tacscan
+    d'warb = d5 -- warbler
-    d'warb = d6 -- warbler
+    d'bass2 = d6 -- more bass right at the end
     d'arpy = d7
     d'tr = d8 -- trump
-    d'bass2 = d5 -- more bass right at the end
+    d'tac = d9 -- tacscan
 
 {-
 [1]
@@ -42,7 +45,7 @@ let d'drum = d1
 let b1'bass = s "bass3 [~ bass3] ! ~"
               # begin "0.2"
 
-let b1'mosq = slow 8 $ rev . striate 256 $ s "hand*8"
+let b1'hand = slow 8 $ rev . striate 256 $ s "hand*8"
               # speed "0.7"
 
 let b1'perc = slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
@@ -65,16 +68,15 @@ d'bass $ slow 4 $ b1'bass
   # n "0 1 0 0"
   # speed (thirdosc1 <$> slow 8 sinewave1)
 
--- reversed snare, but so named cause someone told me it sounded like a mosquito
+d'hand $ b1'hand
-d'mosq $ b1'mosq
 
-d'mosq $ b1'mosq
+d'hand $ b1'hand
   # shape ((/2) <$> slow (10%4) sinewave1)
 
 -- nice drum
 d'perc $ cf $ b1'perc
 
-d'mosq $ b1'mosq
+d'hand $ b1'hand
   # shape ((/2) <$> slow (10%4) sinewave1)
   # pan (halfosc <$> slow (8%3) sinewave1)
 
@@ -132,7 +134,7 @@ d'drum $ overlay (s "peri") $ cf $
 d'drum $ overlay (s "peri") $ cf $
   every 2 (density 3) $ s "~ psr:1"
 
-mapM_ ($ silence) [d'bass, d'tac]
+msil [d'bass, d'tac]
 
 -- drum + perc are real nice at this point
 d'drum $ overlay (s "peri") $ cf $
@@ -144,7 +146,7 @@ d'perc $ cf $
   jux (0.25 <~) $ b1'perc
   # n (density 3 $ run 2)
 
-d'mosq silence
+d'hand silence
 
 d'drum $ cf $
   every' 8 8 (density 1.5) $ every 2 (density 3) $ s "~ psr:1"
@@ -236,7 +238,7 @@ d'bass $ b2'bass
 
 d'arpy $ cf $ b2'arpy
 
-mapM_ ($ silence) [d'perc, d'bass]
+msil [d'perc, d'bass]
 
 d'arpy $ cf $ iter 9 $ b2'arpy
 
@@ -256,7 +258,7 @@ d'perc $ brak . iter 4 $
 d'drum $ overlay (s "peri") $
   cf $ every 3 (0.125 <~) $ b2'psrf
 
-mapM_ ($ silence) [d'drum, d'perc]
+msil [d'drum, d'perc]
 
 {-
 [3]
@@ -311,14 +313,14 @@ d'bass $ cf $
 
 d'tac $ cf . whenmod 7 4 (density 1.5) $ b1'tac
 
-d'mosq $ b1'mosq
+d'hand $ b1'hand
   # shape ((/2) <$> slow (10%4) sinewave1)
   # pan (halfosc <$> slow (8%3) sinewave1)
 
 d'arpy $ cf $ iter 9 $ b2'arpy
 
 -- quickly
-mapM_ ($ silence) [d'bass, d'mosq]
+msil [d'bass, d'hand]
 
 d'drum $ cf $
   overlay (b3'drum) $
@@ -330,7 +332,7 @@ d'drum $ cf $
   overlay (b3'drumf) $
   (b3'perc # n (slow 3 $ run 4))
 
-d'mosq $ b1'mosq
+d'hand $ b1'hand
   # shape ((/2) <$> slow (10%4) sinewave1)
   # pan (halfosc <$> slow (8%3) sinewave1)
 
@@ -355,7 +357,7 @@ d'bass $ cf $
   iter 4 $
   b3'bassf
 
-mapM_ ($ silence) [d'perc, d'tac]
+msil [d'perc, d'tac]
 
 -- drum solo-ish for a bit
 d'drum $ cf $
@@ -384,7 +386,7 @@ d'drum $ cf $
   iter 2 $
   (b3'perc # n (slow 3 $ run 4))
 
-mapM_ ($ silence) [d'bass, d'arpy]
+msil [d'bass, d'arpy]
 
 -- remove kick
 d'drum $ cf $
@@ -392,7 +394,7 @@ d'drum $ cf $
   iter 2 $
   (b3'perc # n (slow 3 $ run 4))
 
-d'mosq silence
+d'hand silence
 
 d'perc $ cf $
   slow 2 . spread slow [2,4,2,3] $
@@ -423,11 +425,11 @@ d'bass2 $ slow 4 $ b1'bass
 d'arpy $ cf $ iter 9 $ b2'arpy
 d'warb $ b1'warbler
 
-d'mosq $ b1'mosq
+d'hand $ b1'hand
   # shape ((/2) <$> slow (10%4) sinewave1)
   # pan (halfosc <$> slow (8%3) sinewave1)
 
-mapM_ ($ silence) [d'perc, d'bass, d'tac, d'bass2, d'mosq]
+msil [d'perc, d'bass, d'tac, d'bass2, d'hand]
 d'drum silence
 d'arpy silence