From 6150de92a05b71b68fd04bcf516eae018f702a47 Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Tue, 25 Oct 2016 23:46:32 +0100
Subject: [PATCH] composition tweaks, add scd after upgrading to superdirt

---
 haddeo.scd   |  5 +++++
 haddeo.tidal | 14 +++++++++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100644 haddeo.scd

diff --git a/haddeo.scd b/haddeo.scd
new file mode 100644
index 0000000..4a17592
--- /dev/null
+++ b/haddeo.scd
@@ -0,0 +1,5 @@
+include("SuperDirt")
+Server.local.options.device = "Soundflower (2ch)";
+SuperDirt.start
+~dirt.loadSoundFiles("~/Documents/Music/WIP/Haddeo Remix/samples/*")
+SuperDirt.stop
diff --git a/haddeo.tidal b/haddeo.tidal
index 4764d0a..2abcb12 100644
--- a/haddeo.tidal
+++ b/haddeo.tidal
@@ -17,7 +17,7 @@ d'drum $ stack [
   n "[~ 0]" # s "kit"
   ]
 
-d'wax $ retrig $ s "icarus:1/20"
+d'wax $ retrig $ n "1" # s "[icarus]/20"
 
 -- drop 1
 d'nim $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
@@ -186,6 +186,7 @@ d'nim $ superimpose (iter 4 . nim'osc) $
   whenmod 16 12 (# vowel "[a i]/3") $
   (1 ~>) $ slow 16 . striate 256 $ n "[0 1]/2" # s "nimble"
 
+{-
 d'drum $ swing' $
   stack [
   n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
@@ -197,6 +198,17 @@ d'drum $ swing' $
   n "[~ [1 0/8 1/2 0/2]]/2" # s "sn"
   # gain "0.8"
   ]
+-}
+
+d'drum $ swing' $ stack [
+  n "[1*2, 0*8, [~!! [~!! 0] ! ~!!]]/8" # s "drum",
+  every' 16 16 (const $ s "kit:3") $
+  whenmod 3 2 (density 2) $
+  withmod 11 5 0.5 1 (density 2) $
+  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit",
+  0.5 <~ n "[~ [1/2 0/8 1 0/2]]/2" # s "sn"
+  # gain "0.8"
+  ]
 
 d'hi $
   swing' $