initial commit with readme, 0.7-compatible source in battery123.tidal, and all samples and original source files

README.md

@@ -0,0 +1,50 @@
+# Anny FM: Battery 1,2,3
+
+Originally performed live @ The Loft, Brighton, 4th July 2014.
+
+## Recordings
+
+- [Battery 1,2,3 (Live) on Bandcamp](http://anny.audio/track/battery-123-live)
+- [Battery 1,2,3 (Live) on SoundCloud](https://soundcloud.com/anny-fm/battery-123-live)
+
+## Source files
+
+### battery123.tidal
+
+This version updated April 2016 for Tidal 0.7 (jumping three whole major patches! Amazing) to use `cps (125/60)` instead of `bps (125/60)` hence everything becoming prefixed with `slow 2` - because for some reason, cycles are twice as fast as beats. (Surely it should be the other way round.)
+
+I also felt compelled to write out the live composition in full, even though it differs significantly from my [original home recording](https://soundcloud.com/anny-fm/battery-123-original-version). I never kept notes on the original composition in `scratch11.tidal` - just the parts - so this may not match up exactly with the live recording or necessarily even sound the same in places, but I think it's roughly right. Good enough to borrow from in future gigs, anyway.
+
+This is the one you want if firing up B123 in latest versions of Tidal, and will be maintained long term for my own use.
+
+#### To-do
+
+- More `let` lines to define reusables, mainly for future gigs and to reduce copy-pasting
+- More annotations
+- Remove unused samples to improve portability
+
+### scratch11.tidal
+
+Original "full" notes on B123, last updated 2nd July 2014. These are pretty poor notes to be honest, but I'm preserving them in version control all the damn same cause before I lose them.
+
+I think this was using Tidal 0.4.6 BTW, at least according to [the latest version at that time](https://github.com/tidalcycles/Tidal/tree/c214cb1baa8259ce4514741bb8a14ca28d1139e7).
+
+### scratch12.cond.tidal
+
+Final notes-to-self made while practicing in hotel room, just hours before performing live. (Did I mention this was my first ever algorave?) Even less useful than `scratch11` because I smushed everything together without double line breaks to make it: a) possible to scroll easily & quickly refer to in one corner of the screen, and b) incomprehensible to anyone trying to understand it _before_ I actually triggered new parts.
+
+I'm much less protective of my code these days!...
+
+## Sample attributions
+
+```
+arpy bass bass3 hand jvbass peri psr rm tacscan tok trump uxay wobble
+```
+
+All of the above from [Dirt-Samples](https://github.com/tidalcycles/Dirt-Samples/tree/c2db9a0dc4ffb911febc613cdb9726cae5175223).
+
+```
+warbler
+```
+
+I didn't write down the attribution at the time, but I'm fairly certain it's sampled from [Birdsong in Tuscany.wav](http://www.freesound.org/people/evernaut/sounds/37286/) off [Freesound.org](http://www.freesound.org). You did a great job of bookmarking that, past me!

battery123.tidal

@@ -0,0 +1,460 @@
+{-
+anny fm: battery 1,2,3
+originally recorded live @ the loft, brighton, 4th july 2014
+  _____
+ /    /
+/____/
+anny.audio/track/battery-123-live
+      __
+  c|||  o_
+c||||| ___o
+soundcloud.com/anny-fm/battery-123-live
+-}
+
+cps (125/60)
+
+let preload p s = d9 $ sound (samples p s) |+| end "0.00001"
+
+let halfosc = (/2).(+0.5)
+let halfosc1 = (+1).(/2)
+let thirdosc1 = (+1).(/3)
+
+let every' n o f = when ((== (o-1)) . (`mod` n)) f
+
+{-
+[1]
+-}
+
+d3 $ slow 4 $ s "bass3 [~ bass3] ! ~"
+  # n "0 1 0 0"
+  # begin "0.2"
+
+d3 $ slow 4 $ s "bass3 [~ bass3] ! ~"
+  # n "0 1 0 0"
+  # begin "0.2"
+  # speed (thirdosc1 <$> slow 8 sinewave1)
+
+d4 $ slow 8 $ rev . striate 256 $ s "hand*8"
+  # speed "0.7"
+
+d4 $ slow 8 $ rev . striate 256 $ s "hand*8"
+  # speed "0.7"
+  # shape ((/2) <$> slow (10%4) sinewave1)
+
+d2 $ slow 4 $ s "uxay [~ uxay] [psr:8 uxay] ~"
+  # n (density 3 $ run 2)
+
+d4 $ slow 8 $ rev . striate 256 $ sound "hand*8"
+  # speed "0.7"
+  # shape ((/2) <$> slow (10%4) sinewave1)
+  # pan (halfosc <$> slow (8%3) sinewave1)
+
+d2 $ slow 4 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
+  # n (density 3 $ run 2)
+
+d2 $ slow 2 $
+  jux (0.25 <~) $
+  slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
+  # n (density 3 $ run 2)
+
+d3 $ slow 2 $
+  spread slow [1,3] $
+  striate 16 $
+  s "bass3 [~ bass3] ! ~"
+  # n "0 1 0 0"
+  # begin "0.2"
+  # speed (halfosc1 <$> slow 8 sinewave1)
+  # gain "0.9"
+
+d1 $ slow 2 $ stack [
+  slow 2 $ s "peri:1 [~ peri:1] ! ~",
+  sound "~ psr:14"
+  ]
+
+d1 $ slow 2 $ sound "~ psr:14"
+
+d1 $ slow 2 $ stack [
+  every 4 (density 1.5) $ slow 2 $ s "peri:1 [~ peri:1] ! ~",
+  sound "~ psr:14"
+  ]
+
+d1 $ slow 2 $ sound "~ psr:14"
+
+d9 $ slow 2 $
+  s "[~ tacscan:13] ! ~ ~"
+  # gain "0.8"
+  # vowel (slow 3 "e u")
+
+d9 $ slow 2 . whenmod 7 4 (density 1.5) $
+  s "[~ tacscan:13] ! ~ ~"
+  # gain "0.8"
+  # vowel (slow 3 "e u")
+
+d1 $ overlay (s "peri:1") $ slow 2 $
+  s "~ psr:14"
+
+d1 $ slow 2 $ sound "~ psr:14"
+
+d6 $ slow 4 $ striate 32 $
+  s "warbler"
+  # n (slow 7 $ run 7)
+  # gain "0.8"
+
+d2 $ slow 2 $
+  spread slow [2,1] $
+  jux (0.25 <~) $
+  slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
+  # n (density 3 $ run 2)
+
+d1 $ overlay (s "peri:1") $ slow 2 $
+  s "~ psr:14"
+
+d1 $ overlay (s "peri:1") $ slow 2 $
+  every 2 (density 3) $ s "~ psr:14"
+
+mapM_ ($ silence) [d3,d9]
+
+d1 $ overlay (s "peri:1") $ slow 2 $
+  every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "~ psr:14"
+
+d2 $ slow 2 $
+  slow 2 . spread slow [2,4,2,3] $
+  jux (0.25 <~) $
+  slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
+  # n (density 3 $ run 2)
+
+d4 silence
+
+d1 $ slow 2 $
+  every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "~ psr:14"
+
+d1 silence
+d2 silence
+
+{-
+[2]
+-}
+
+d2 $ slow 2 $ s "uxay:1*2"
+
+d2 $ slow 2 $ s "uxay*4"
+  # n "1 0 1 2"
+
+d1 $ slow 2 $
+  s "psr:8*4 psr:8*2"
+  # gain "0.6"
+
+d1 $ slow 2 $
+  s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
+  # gain "0.6"
+
+d1 $ slow 2 $
+  every 3 (0.125 <~) $
+  s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
+  # gain "0.6"
+
+d1 $ overlay (s "peri:1") $ slow 2 $
+  every 3 (0.125 <~) $
+  s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
+  # gain "0.6"
+
+d2 $ slow 2 $ brak $
+  s "uxay*4"
+  # n "1 0 1 2"
+  # gain "0.8"
+  # speed "[0.7 1 1.2]/2"
+  # shape "0.4 0.3 0.6"
+
+d1 $ slow 2 $
+  every 3 (0.125 <~) $
+  s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
+  # gain "0.6"
+
+d6 silence
+
+d8 $ slow 2 $ whenmod 5 4 rev $ s "[~ trump ! !] ~"
+  # n (slow 3.2 $ run 4)
+  # gain "0.8"
+  # speed (halfosc1 <$> slow 4 sinewave1)
+  # vowel (slow 3.2 "a e o")
+  # shape "0.6"
+
+d1 $ overlay (s "peri:1") $ slow 2 $
+  every 3 (0.125 <~) $
+  s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
+  # gain "0.6"
+
+d2 $ brak . iter 4 $
+  s "uxay*4"
+  # n "1 0 1 2"
+  # gain "0.8"
+  # speed "[0.7 1 1.2]/2"
+  # shape "0.4 0.3 0.6"
+
+d8 $ slow 2 $ whenmod 5 4 rev $ s "trump*8"
+  # n (slow 3.2 $ run 4)
+  # gain "0.8"
+  # speed (halfosc1 <$> slow 4 sinewave1)
+  # vowel (slow 3.2 "a e o")
+  # shape "0.6"
+
+d3 $ slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
+  # n (slow 2.8 "0 1 2")
+  # vowel "i"
+  # speed "0.8"
+
+d8 silence
+
+d3 $ slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
+  # n (slow 2.8 "0 1 2")
+  # vowel "i"
+  # speed "0.8"
+  # shape "0.3" -- increase 0->0.3
+
+d3 $ slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
+  # n (slow 2.8 "0 1 2")
+  # vowel "i"
+  # speed "0.8"
+  # shape (halfosc <$> saw1)
+
+d7 $ slow 2 $
+  s "arpy*8"
+  # n "4 2 7 2"
+  # gain "0.7"
+
+mapM_ ($ silence) [d2,d3]
+
+d7 $ slow 2 $
+  iter 9 $
+  s "arpy*8"
+  # n "4 2 7 2"
+  # gain "0.7"
+
+d1 $ slow 2 $
+  every 3 (0.125 <~) $
+  s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
+  # gain "0.6"
+
+d2 $ slow 2 . brak $
+  s "uxay*4"
+  # n "1 0 1 2"
+  # gain "0.8"
+  # speed "[0.7 1 1.2]/2"
+  # shape "0.4 0.3 0.6"
+
+d2 $ brak . iter 4 $
+  s "uxay*4"
+  # n "1 0 1 2"
+  # gain "0.8"
+  # speed "[0.7 1 1.2]/2"
+  # shape "0.4 0.3 0.6"
+
+d1 $ overlay (s "peri:1") $ slow 2 $
+  every 3 (0.125 <~) $
+  s "[[psr:8*4 psr:8*2] ! ! psr:8*8]/4"
+  # gain "0.6"
+
+mapM_ ($ silence) [d1,d2]
+
+{-
+[3]
+-}
+
+d7 $ slow 2 $
+  whenmod 7 4 (|+| vowel "a") $ -- this not used in brighton 2014 live rec.
+  iter 9 $
+  s "arpy*8"
+  # n "4 2 7 2"
+  # gain "0.7"
+
+d2 $ slow 2 $
+  slow 2 . spread slow [2,4,2,3] $
+  jux (0.25 <~) $
+  slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
+  # n (density 3 $ run 2)
+
+d1 $ slow 2 $ s "[tok*2 [rm tok]] [psr:14 tok*2]"
+
+d3 $ slow 2 $
+  sound (samples "bass*4" "0 1")
+  # begin "0.4"
+  # speed "1.2"
+  # shape "0.2"
+
+d1 $ slow 2 $
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+
+d3 $ slow 2 $
+  whenmod 7 6 (density 1.5) $
+  sound (samples "bass*4" "0 1")
+  # begin "0.4"
+  # speed "1.2"
+  # shape "0.2"
+
+d1 $ slow 2 $
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+
+d3 $ slow 2 $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  sound (samples "bass*4" "0 1")
+  # begin "0.4"
+  # speed "1.2"
+  # shape "0.2"
+
+d3 $ slow 2 $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  iter 4 $
+  sound (samples "bass*4" "0 1")
+  # begin "0.4"
+  # speed "1.2"
+  # shape "0.2"
+
+d9 $ slow 2 . whenmod 7 4 (density 1.5) $
+  s "[~ tacscan:13] ! ~ ~"
+  # gain "0.8"
+  # vowel (slow 3 "e u")
+
+d7 $ slow 2 $
+  iter 9 $
+  s "arpy*8"
+  # n "4 2 7 2"
+  # gain "0.7"
+
+d3 silence
+
+d1 $ slow 2 $ stack [
+  slow 2 $ s "peri:1 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+  ]
+
+d9 silence
+
+d1 $ slow 2 $ stack [
+  slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+  ]
+
+d2 $ brak . iter 4 $
+  s "uxay*4"
+  # n "1 0 1 2"
+  # gain "0.8"
+  # speed "[0.7 1 1.2]/2"
+  # shape "0.4 0.3 0.6"
+
+d3 $ slow 2 $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  iter 4 $
+  sound (samples "bass*4" "0 1")
+  # begin "0.4"
+  # speed "1.2"
+  # shape "0.2"
+
+d9 $ slow 2 . whenmod 7 4 (density 1.5) $
+  s "[~ tacscan:13] ! ~ ~"
+  # gain "0.8"
+  # vowel (slow 3 "e u")
+
+d3 $ slow 2 $
+  spread slow [2,(7%4)] $
+  whenmod 7 6 (density 1.5) $
+  iter 4 $
+  sound (samples "{bass*4, wobble*3}" "0 1")
+  # begin "0.4"
+  # speed "1.2"
+  # shape "0.2"
+
+mapM_ ($ silence) [d2,d3,d9]
+
+d1 $ slow 2 $ stack [
+  slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
+  whenmod 5 3 (density 2) $
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+  ]
+
+d1 $ slow 2 $ stack [
+  slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
+  whenmod 5 3 (density 2) $
+  iter 2 $
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+  ]
+
+d1 $ slow 2 $ stack [
+  whenmod 8 7 rev $
+  slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
+  whenmod 5 3 (density 2) $
+  iter 2 $
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+  ]
+
+d1 $ slow 2 $ stack [
+  every 3 rev $
+  whenmod 8 7 rev $
+  slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
+  whenmod 5 3 (density 2) $
+  iter 2 $
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+  ]
+
+d1 $ slow 2 $ stack [
+  whenmod 5 3 (density 2) $
+  iter 2 $
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+  ]
+
+d2 $ slow 2 $
+  slow 2 . spread slow [2,4,2,3] $
+  jux (0.25 <~) $
+  slow 2 $ s "[uxay tok*2] [~ uxay] [psr:8 uxay] ~"
+  # n (density 3 $ run 2)
+
+d1 $ slow 2 $ stack [
+  slow 2 $ s "peri:1*2 [~ ~ ~ peri:1] [~ peri:1 peri:1 ~] ~",
+  s "[tok*2 [rm tok]] [psr:14 tok*2]"
+  # n (slow 3 $ run 4)
+  ]
+
+d2 $ brak . iter 4 $
+  s "uxay*4"
+  # n "1 0 1 2"
+  # gain "0.8"
+  # speed "[0.7 1 1.2]/2"
+  # shape "0.4 0.3 0.6"
+
+d3 $ slow 8 $ s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
+  # n (slow 2.8 "0 1 2")
+  # vowel "i"
+  # speed "0.8"
+  # shape (halfosc <$> saw1)
+
+d9 $ slow 2 . whenmod 7 4 (density 1.5) $
+  s "[~ tacscan:13] ! ~ ~"
+  # gain "0.8"
+  # vowel (slow 3 "e u")
+
+d6 $ slow 4 $ striate 32 $
+  s "warbler"
+  # n (slow 7 $ run 7)
+  # gain "0.8"
+
+d7 $ slow 2 $
+  iter 9 $
+  s "arpy*8"
+  # n "4 2 7 2"
+  # gain "0.7"
+
+mapM_ ($ silence) [d2,d3,d9]
+d1 silence
+d7 silence
+hush

samples/bass3/_readme_and_license.txt

@@ -0,0 +1,53 @@
+Sound pack downloaded from Freesound.org
+----------------------------------------
+
+This pack of sounds contains sounds by zgump ( http://www.freesound.org/people/zgump/  )
+You can find this pack online at: http://www.freesound.org/people/zgump/packs/5466/
+
+
+License details
+---------------
+
+Sampling+: http://creativecommons.org/licenses/sampling+/1.0/
+Creative Commons 0: http://creativecommons.org/publicdomain/zero/1.0/
+Attribution: http://creativecommons.org/licenses/by/3.0/
+Attribution Noncommercial: http://creativecommons.org/licenses/by-nc/3.0/
+
+
+Sounds in this pack
+-------------------
+
+  * 85057__zgump__Reverse_Bass_02.wav
+    * url: http://www.freesound.org/people/zgump/sounds/85057/
+    * license: Creative Commons 0
+  * 85056__zgump__Reverse_Bass_01.wav
+    * url: http://www.freesound.org/people/zgump/sounds/85056/
+    * license: Creative Commons 0
+  * 83253__zgump__BASS_0209.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83253/
+    * license: Creative Commons 0
+  * 83252__zgump__BASS_0208.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83252/
+    * license: Creative Commons 0
+  * 83251__zgump__BASS_0207.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83251/
+    * license: Creative Commons 0
+  * 83250__zgump__BASS_0206.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83250/
+    * license: Creative Commons 0
+  * 83249__zgump__BASS_0205.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83249/
+    * license: Creative Commons 0
+  * 83248__zgump__BASS_0204.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83248/
+    * license: Creative Commons 0
+  * 83247__zgump__BASS_0203.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83247/
+    * license: Creative Commons 0
+  * 83246__zgump__BASS_0202.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83246/
+    * license: Creative Commons 0
+  * 83245__zgump__BASS_0201.wav
+    * url: http://www.freesound.org/people/zgump/sounds/83245/
+    * license: Creative Commons 0
+