From 5095fc8741b32b8401e23aeff19efffe6c72712e Mon Sep 17 00:00:00 2001 From: Aneurin Anny Barker Snook Date: Sun, 4 Oct 2015 19:37:02 +0100 Subject: [PATCH] fix for busted offset on new osx machine w tidal 0.6 --- piston.tidal | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/piston.tidal b/piston.tidal index 2121b8f..8bc2695 100644 --- a/piston.tidal +++ b/piston.tidal @@ -145,20 +145,20 @@ d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb: |+| cut "1" |+| vowel "i" -d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" +d3 $ (4 <~) $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" |+| cut "1" |+| vowel "o i" -d3 $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" +d3 $ (4 <~) $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" |+| cut "1" |+| vowel "o i" -d3 $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" +d3 $ (4 <~) $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" |+| vowel "o i" mapM_ ($ silence) [d1,d2,d7] -d3 $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" +d3 $ (4 <~) $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" |+| cut "1" |+| vowel "o i" @@ -184,7 +184,7 @@ d2 $ whenmod 3 2 rev $ chop 16 $ within (0.5, 1.5) (kdelay) $ sound "[[k:1 [~ k: d2 $ within (0, 0.5) (|+| vowel "o") $ whenmod 3 2 rev $ chop 16 $ within (0.5, 1.5) (kdelay) $ sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8" -d3 $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" +d3 $ (4 <~) $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" |+| vowel "o i" d3 silence @@ -533,6 +533,8 @@ d8 $ chop 64 $ sound "[fly ~ [fly ~ ~ fly] ~]/4" |+| shape ((+0.25).(/2) <$> density 8 sinewave1) |+| speed ((+1) <$> density (5%4) saw1) +--d10 $ sound "dubb/4" + d7 $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1")) |+| cut "1" |+| speed ((+0.75).(/2) <$> slow 1.3 sinewave1)