From d1099c492176b6beff5dfe1aff8459822a8526c2 Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <noreply@anny.audio>
Date: Tue, 30 Jun 2015 12:04:09 +0100
Subject: [PATCH] changes from last night, 2.a sounding much better

---
 piston.tidal | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

diff --git a/piston.tidal b/piston.tidal
index f5ad0ce..8fba593 100644
--- a/piston.tidal
+++ b/piston.tidal
@@ -189,16 +189,18 @@ d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:
 piston 2.a
 -}
 
-d4 $ (0.25 <~) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
+solo $ d8 $ slow 8 $ chop 16 $ bassParams $ sound "[dubb dubb:1]/2"
+   |+| cut "1"
+   |+| speed "0.2"
+   |+| vowel "e"
+
+d4 $ (0.5 <~) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
    |+| speed ((+1.3) <$> density 1.7 sinewave1)
    |+| gain "0.8"
 
 d2 $ sound "[wt(5,8)]/4"
 
-d1 $ (0.5 <~) $ stack [
-   whenmod 9 2 (0.25 <~) $ sound "~ k",
-   (0.75 ~>) $ sound "[~ sn]/2"
-]
+d1 $ (0.5 <~) $ sound "k"
 
 d9 $ (0.25 ~>) $ sound "[~ ~ ~ [~ ~ [~ ~ ~ wtsn] [~ wtsn ~ wtsn]]]/16"
 
@@ -209,26 +211,23 @@ d7 $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $ striate 64 $ sound "ice"
    |+| resonance "0.001"
    |+| speed "0.7"
 
-d3 $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
+d3 $ bassParams $ (0.25 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
    |+| cut "1"
    |+| cutoff "0.01"
    |+| resonance ((/3) <$> slow 4 saw1)
 
 mapM_ ($ silence) [d7,d9]
 
-d4 $ (0.25 <~) $ whenmod 5 4 (density 2) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
+d4 $ (0.5 <~) $ whenmod 5 4 (density 2) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
    |+| speed ((+1.3) <$> density 1.7 sinewave1)
    |+| gain "0.8"
 
-d3 $ whenmod 5 3 (superimpose (0.25 ~>)) $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
+d3 $ whenmod 5 3 (superimpose (0.25 ~>)) $ bassParams $ (0.25 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
    |+| cut "1"
    |+| cutoff "0.01"
    |+| resonance ((/3) <$> slow 4 saw1)
 
-d1 $ (0.5 <~) $ stack [
-   whenmod 4 3 (density 1.5) $ whenmod 9 2 ((0.25 <~)) $ sound "~ k",
-   (0.75 ~>) $ sound "[~ sn]/2"
-]
+d1 $ whenmod 9 2 (0.25 <~) $ (0.5 <~) $ sound "k"
 
 d3 $ whenmod 5 3 (superimpose (0.25 ~>)) $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
    |+| cut "1"
@@ -245,7 +244,7 @@ d7 $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $ striate 64 $ sound "ice"
 
 d7 silence
 
-mapM_ ($ silence) [d1,d3,d9]
+mapM_ ($ silence) [d1,d4,d9]
 
 {-
 piston 2.b
@@ -253,8 +252,7 @@ piston 2.b
 
 d1 $ sound "{[~ ~ ~ k:1], [~ sn]/2}"
 
-mapM_ ($ silence) [d2,d3]
-mapM_ ($ silence) [d6,d8]
+d3 silence
 
 d2 $ sound "~ wt wt wtsn/8"
    |+| shape ((/2) <$> density 1.2 saw1)