rename megalet file

2016-04-23 13:01:18 +01:00
parent 4b450a27aa
commit 796fb8071e
2 changed files with 1 additions and 1 deletions
@@ -0,0 +1,64 @@
+{-
+anny fm: battery 1,2,3 megalet
+see battery123.tidal for full composition
+-}
+
+cps (125/60)
+
+let 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'mosq = d4
+    d'tac = d9 -- tacscan
+    d'warb = d6 -- warbler
+    d'arpy = d7
+    d'tr = d8 -- trump
+    d'bass2 = d5 -- more bass right at the end
+    b1'bass = s "bass3 [~ bass3] ! ~"
+              # begin "0.2"
+    b1'mosq = 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'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 = s "[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 ~] ~"