From 7ad23cb4bc2143814a208b1fc0c3bf31ef2984eb Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Wed, 29 Jun 2016 16:25:35 +0100
Subject: [PATCH] tweaks for single release, based on live sets

---
 juliese.tidal | 29 +++++++++++------------------
 1 file changed, 11 insertions(+), 18 deletions(-)

diff --git a/juliese.tidal b/juliese.tidal
index d7c8704..36e66de 100644
--- a/juliese.tidal
+++ b/juliese.tidal
@@ -66,22 +66,23 @@ here goes i guess
 
 hush
 
+d'drum $ s "k"
 d'bass $ bassbass
 d'perc $ hhb False
 d'bass $ bassbass'
-d'drum $ s "k"
 
 d'drum $ morek $ s "k"
-d'perc $ whenmod 16 15 (density 3) $ hhb False
+d'perc $ hhb True
+d'perc $ whenmod 16 15 (density 3) $ hhb True
 
 d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
-d'bass $ whenmod 3 2 (slow 2) $ bassbass'
-d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
 
 d'drum $ overlay ((1 ~>) $ s "cy/8") $
   overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
 
-d'perc $ whenmod 16 15 (density 3) $ hhb True
+d'bass $ whenmod 3 2 (slow 2) $ bassbass'
+d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
+
 d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
 
 d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
@@ -92,13 +93,13 @@ d'udu $ ududu
 d'wbass $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
 d'wbass $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
 
+d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
+
 d'eg $ density 0.25 $ eg
   # gain "0.8"
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
-
-d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.25 $ eg
+d'eg $
+  slowspread density [1, 2, 0.5, 2] $ eg
   # gain "0.8"
 
 d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
@@ -114,9 +115,6 @@ d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
   slowspread density [1, 2, 0.5, 2] $ eg
   # gain "0.8"
 
-d'drum $ overlay ((1 ~>) $ s "cy/8") $
-  overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
-
 mapM_ ($ silence) [d'perc, d'bass]
 
 -- fuck yeah. const rules
@@ -126,7 +124,6 @@ d'eg $ (0.18 <~) $ every 2 (const silence) $
   slowspread density [1, 2, 0.5, 2] $ eg
   # gain "0.8"
 
-d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
 d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
 d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ every' 12 2 (density 3) $ s "k"
 
@@ -160,8 +157,6 @@ d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
 
 d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
 
-d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
-
 -- funkier bassline w slowspread lambda, thanks yaxu. thaxu
 d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
   whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
@@ -181,13 +176,12 @@ d'gt $ density 0.98 $ gt
   # gain "0.87"
   # speed ((+1).(/4) <$> slow 1.95 sinewave1)
 
-mapM_ ($ silence) [d'eg, d'wbass]
-
 let ju'drum2 = stack [
                every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
                every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
                ]
 
+mapM_ ($ silence) [d'eg, d'wbass]
 d'drum $ ju'drum2
 
 d'pcl $ slow 16 . gap 64 $ s "pclow"
@@ -205,5 +199,4 @@ mapM_ ($ silence) [d'bass, d'udu, d'pc]
 d'pcl $ slow 16 . gap 64 $ s "pclow"
   # gain "0.8"
 
-mapM_ ($ silence) [d'perc, d'gt]
 hush