initial commit of tidied-up tidal code, samples etc

todo: add sample attributions

.gitignore

@@ -0,0 +1,5 @@
+.DS_Store
+*.swp
+*.*~
+#*#
+

README.md

@@ -0,0 +1,21 @@
+# Anny: Cuadrillion (Demo)
+
+[anny.audio](https://www.anny.audio)
+
+First played for Algorave's fith birthday, #algofive 17th March 2017
+
+Written for Fwonk release nr. 200 out in March 2017. FW200 is Fwonk's final release, at least in its current form, but its catalogue will live on. There is a lot of very good electronic music in there, so be sure to check it out some time!
+
+[fwonk.co.uk](http://fwonk.co.uk)
+
+## Files
+
+`cuadrillion.scd` is a simple SuperCollider file to initialise my audio routing and load project samples.
+
+`cuadrillion.tidal` contains the Tidal Cycles code for this project. This includes `-- @tagged` major elements and some compositional notes.
+
+`samples.csv` contains sample attributions for this project. All sample files are available in the `samples/` directory.
+
+## License
+
+Source code is [CC-BY-SA](https://creativecommons.org/licenses/by-sa/4.0/) and samples are all royalty free.

cuadrillion.scd

@@ -0,0 +1,8 @@
+include("SuperDirt")
+
+Server.local.options.device = "Soundflower (2ch)";
+SuperDirt.start
+
+~dirt.loadSoundFiles(thisProcess.nowExecutingPath.dirname +/+ "/samples/*")
+
+~dirt.stop

cuadrillion.tidal

@@ -0,0 +1,133 @@
+{-
+Anny: Cuadrillion (Demo)
+anny.audio
+
+First played for Algorave's fith birthday, #algofive 17th March 2017
+
+Written for Fwonk release nr. 200 out in March 2017. FW200 is Fwonk's
+final release, at least in its current form, but its catalogue will
+live on. There is a lot of very good electronic music in there, so be
+sure to check it out some time!
+fwonk.co.uk
+
+See README.md
+-}
+
+let bpm b = cps (b/60)
+    every' n o f = when ((== (o-1)) . (`mod` n)) f
+    d'drum = d1
+    d'perc = d2
+    d'bass = d3
+    d'bleep = d4
+    d'moog = d4
+    d'gt = d5
+    d'gt2 = d6
+    d'gt3 = d7
+
+bpm 149
+
+-- @bleep
+d'bleep $
+  -- every' 5 2 (iter 4) $ -- (2)
+  -- every 3 (rev . slow 2 . chop 4) $ -- (1)
+  n "[[~ 0] ~ 1 ~]/4" # s "bleep"
+  # gain "1.2"
+
+d'drum $
+  every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
+  1 <~ n "1/16" # s "drum"
+
+-- @drumintro
+d'drum $
+  every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
+  n "{1, [~! [~ 0]!]/4}" # s "drum"
+
+d'drum $
+  every' 16 16 (overlay $ n "~ 1!!" # s "drum") $
+  n "{1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum"
+
+d'perc $ n "[~ 1 ~ ~]/4" # s "drum2"
+
+-- @perc
+d'perc $
+  stack [
+    n "[~ 1 0 ~]/4",
+    0.5 ~> n "[3 2 ~]/3"
+    -- 0.75 ~> n "[3 2 ~ 2 3]/5", -- (1)
+    -- 0.25 ~> n "[~ 3 2 ~ 0 2 3]/7" -- (2)
+  ]
+  # s "drum2"
+
+-- @drum
+d'drum $
+  -- every' 16 16 (density 2) $ -- (1) replacing (0)
+  every' 16 16 (within (0.5, 1) $ density 2) $ -- (0)
+  n "{0, 1, [~! [~ 0]!]/4, [[~ 3] 3]/2}" # s "drum"
+
+-- @bass
+d'bass $
+  -- slowspread slow [1,1,1,2,3] $ -- (2)
+  (0.5 <~) $ rev $ gap 32 $
+  -- superimpose ((# gain "0.7") . (# speed "3")) $ -- (1)
+  every' 32 31 (overlay $ n "2" # s "drbass") $
+  every' 16 16 (overlay $ n "1 ~" # s "drbass") $
+  n "[0 0 [~ 0] !]/4" # s "drbass"
+  # gain "0.9"
+  # vowel "{a, i}"
+  # shape "0.4"
+  # orbit "1" # room "0.2" # size "0.1"
+  # resonance "0.1" # cutoff "130" -- 10 -> 130
+
+-- @gt
+d'gt $ -- every' 8 8 (const silence) $ -- (1) then (3) remove
+  -- every 3 (slow 32) $ -- (1) then (2) remove
+  every 2 rev $
+  (0.5 ~>) $
+  slow 8 $ smash 16 [1,2] $ striate 16 $
+  n "0" # s "acb"
+  # cut "7"
+  # gain "0.8" -- 0.1 -> 0.8
+  # speed (scale 0.7 1.4 $ slow 3 sine1)
+  # vowel "u"
+
+-- @gt2
+d'gt2 $ (0.5 <~) $
+  slow 8 $
+  iter 4 $
+  striate 16 $
+  sound "acg"
+  # cut "6"
+  # shape "0.4"
+  # gain "0.9"
+
+-- ~drum w/ (1)
+
+-- @gt3
+let hp = "240"
+    lp = "1200"
+    r = "0.3"
+  in d'gt3 $
+     (3 ~>) $
+     -- every' 4 2 (superimpose (3 <~)) $ -- (1) and (2) remove
+     slow 16 . gap 8 $ -- (0) and (2) remove
+     -- slow 30 . gap 15 $ -- (2)
+     sound "dg"
+     # gain "0.9"
+     # orbit "1" # room "0.2" # size "0.1"
+     # speed (scale 1 1.25 $ slow 4.1 sine1)
+     # cutoff lp # resonance r
+     # hcutoff hp # resonance r
+
+mapM_ ($ silence) [d'gt, d'gt2, d'gt3]
+
+-- ~perc w/ (1)
+-- ~perc w/ (2)
+-- ~gt w/ (1)
+-- ~bass w/ (1)
+-- ~gt2
+-- ~gt w/ (2) then (3)
+-- ~gt3 w/ (2)
+
+mapM_ ($ silence) [d'gt, d'gt2, d'gt3, d'bass]
+
+hush

samples.csv

@@ -0,0 +1,18 @@
+Sample,Index,File,Origin,URL,Notes
+acb,0,AC_BassA_128-A2.wav,,,
+acg,0,AC_GuitarsB_95-C3.wav,,,
+arpb,0,AC_ARPBassB_128-A.wav,,,
+bleep,0,000-Fx_09.wav,,,
+bleep,1,010-Fx_09.wav,,,
+dg,0,Processed_16.wav,,,
+drbass,0,000 Kick Power trunc.wav,,,
+drbass,1,001 Kick Power trunc2.wav,,,
+drbass,2,100 Kick Power.wav,,,
+drum,0,000 Kick LazerDice 6.wav,,,
+drum,1,010 Snare Party 2.wav,,,
+drum,2,011 Snare Turnt 2.wav,,,
+drum,3,020 DnBHatD-06.wav,,,
+drum2,0,Snare ElbeDock.wav,,,
+drum2,1,Snare EnaSwag 1.wav,,,
+drum2,2,Snare Youza 1.wav,,,
+drum2,3,Snare Youza 2.wav,,,