From 3345d6f47f354b1626cd06ca1d61273433b060e9 Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Thu, 17 Mar 2016 22:56:46 +0000
Subject: [PATCH] some tweaks, tighten up formatting a bit

---
 for-mix2.tidal | 38 ++++++++++++++++++++++++--------------
 1 file changed, 24 insertions(+), 14 deletions(-)

diff --git a/for-mix2.tidal b/for-mix2.tidal
index a4092a5..7ce880d 100644
--- a/for-mix2.tidal
+++ b/for-mix2.tidal
@@ -90,16 +90,14 @@ d3 $
 
 d4 $
   density 0.25 $
-  gap 128 $
-  s "eg*2"
-  # gain "0.7" -- fade up to 0.8
+  gap 128 $ s "eg*2"
+  # gain "0.7" -- fade up to 0.7
   # cut "4"
 
 d4 $
   (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
   density 0.25 $
-  gap 128 $
-  s "eg*2"
+  gap 128 $ s "eg*2"
   # gain "0.7"
   # cut "4"
 
@@ -107,6 +105,14 @@ d4 $
   (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
   density 0.25 $
   slowspread density [1, 2, 0.5, 2] $
+  gap 128 $ s "eg*2"
+  # gain "0.7"
+  # cut "4"
+
+d4 $
+  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+  density 0.245 $
+  slowspread density [1, 2, 0.5, 2] $
   gap 128 $
   s "eg*2"
   # gain "0.7"
@@ -119,8 +125,7 @@ d4 $
   (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
   density 0.245 $
   slowspread density [1, 2, 0.5, 2] $
-  gap 128 $
-  s "eg*2"
+  gap 128 $ s "eg*2"
   # gain "0.8"
   # cut "4"
 
@@ -132,23 +137,28 @@ d1 $ stack [
   ]
 
 d5 $
-  chop 128 $
-  s "[gt [~ gt] ! ~]/2"
+  chop 128 $ s "[gt [~ gt] ! ~]/2"
   # gain "0.7"
   # cut "4"
 
 d5 $
   density 0.98 $
-  chop 128 $
-  s "[gt [~ gt] ! ~]/2"
+  chop 128 $ s "[gt [~ gt] ! ~]/2"
   # gain "0.7"
   # cut "4"
 
 d5 $
   (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
   density 0.98 $
-  chop 128 $
-  s "[gt [~ gt] ! ~]/2"
+  chop 128 $ s "[gt [~ gt] ! ~]/2"
+  # gain "0.7"
+  # cut "4"
+
+d4 $
+  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+  density 0.245 $
+  slowspread density [1, 2, 0.5, 2] $
+  gap 128 $ s "eg*2"
   # gain "0.7"
   # cut "4"
 
@@ -159,7 +169,7 @@ d1 $ stack [
   (1 ~>) $ s "sn/2"
   ]
 
-d4 silence
+mapM_ ($ silence) [d4,d5]
 
 -- fast!
 d1 $ stack [