diff --git a/battery123.megalet.tidal b/battery123.megalet.tidal deleted file mode 100644 index 1185e6b..0000000 --- a/battery123.megalet.tidal +++ /dev/null @@ -1,65 +0,0 @@ --- megalet for battery123.tidal -let msil = mapM_ ($ silence) - cf = slow 2 - every' n o f = when ((== (o-1)) . (`mod` n)) f - halfosc = (/2).(+0.5) - halfosc1 = (+1).(/2) - thirdosc1 = (+1).(/3) - d'drum = d1 - d'perc = d2 - d'bass = d3 - d'hand = d4 - d'warb = d5 -- warbler - d'bass2 = d6 -- more bass right at the end - d'arpy = d7 - d'tr = d8 -- trump - d'tac = d9 -- tacscan - b1'bass = s "bass3 [~ bass3] ! ~" - # begin "0.2" - 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] ! ~ ~" - # gain "0.8" - # vowel (slow 3 "e u") - b1'warbler = slow 4 $ striate 32 $ s "warbler" - # n (slow 7 $ run 7) - # gain "0.8" - b2'uxp = (# gain "0.8") . - (# speed "[0.7 1 1.2]/2") - b2'ux = cf $ s "uxay*4" - # n "1 0 1 2" - b2'ux2 i = (if i then brak . iter 4 else cf . brak) $ - b2'uxp $ s "uxay*4" - # n "1 0 1 2" - # shape "0.4 0.3 0.6" - b2'psr = s "psr*4 psr*2" - # gain "0.6" - b2'psrf = s "[[psr*4 psr*2] ! ! psr*8]/4" - # gain "0.6" - b2'trump p = whenmod 5 4 rev $ s p - # n (slow 3.2 $ run 4) - # gain "0.8" - # speed (halfosc1 <$> slow 4 sinewave1) - # vowel (slow 3.2 "a e o") - # shape "0.6" - b2'bass = slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]" - # n (slow 2.8 "0 1 2") - # vowel "i" - # speed "0.8" - b2'arpy = s "arpy*8" - # n "2 1 3 1" - # gain "0.7" - b3'perc = sound "[tok*2 [rm tok]] [psr:1 tok*2]" - b3'bass = s "bass*4" - # n "0 1" - # begin "0.4" - # speed "1.2" - # shape "0.2" - b3'bassf = s "{bass*4, wobble*3}" - # n "0 1" - # begin "0.4" - # speed "1.2" - # shape "0.2" - b3'drum = slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~" - b3'drumf = slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~"