From 84bbed8ad27033edd738979db81b5628504ea818 Mon Sep 17 00:00:00 2001 From: Aneurin Barker Snook Date: Mon, 20 Apr 2015 21:17:19 +0100 Subject: [PATCH] backup 11 april 2015 --- piston.tidal | 117 ++++++++++++--------------------------------------- 1 file changed, 27 insertions(+), 90 deletions(-) diff --git a/piston.tidal b/piston.tidal index bd8bed3..0c84c5f 100644 --- a/piston.tidal +++ b/piston.tidal @@ -47,7 +47,7 @@ d1 $ sound "[k(3,8)]/2" d1 $ sound "{k(3,8), [~ sn]}/2" d1 $ sound "{k(3,8), [~ ~ sn [~ sn*3]/2]}/2" -mapM_ ($ silence) [d4,d5] +mapM_ ($ silence) [d5] d1 $ within (0.5, 1) (chop 8) $ sound "{k(3,8), [~ ~ sn [~ sn*3]/2]}/2" @@ -57,86 +57,8 @@ d1 $ every 3 (density (5%4)) $ within (0.5, 1) (chop 8) $ sound "{k(3,8), [~ ~ s mapM_ ($ silence) [d1,d2] -{- -piston ii --} - d2 $ sound "[~ wt*4 ~ wt*2 ~]/5" -d1 $ sound "[k [sn k] [wt k] sn]/4" - -d6 $ sound (samples "[[ff bz]*2 [~ bz*2]]/2" $ slow 2 $ run 5) - |+| begin "0.7" |+| end "0.85" - |+| hcutoff "0.04" |+| hresonance "0.1" - |+| shape ((/5) <$> slow (5%3) sinewave1) --- |+| gain "0.1" - -d6 $ sound (samples "[[ff bz]*2 [~ bz*2]]/2" $ slow 2 $ run 5) - |+| begin "0.7" |+| end "0.85" - |+| hcutoff "0.04" |+| hresonance "0.1" - |+| shape ((/5) <$> slow (5%3) sinewave1) - |+| vowel "o u" - -d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" - |+| cut "1" - |+| vowel "i" - -d6 $ jux (slow 1.1) $ slow 2 . brak $ sound (samples "[[ff bz]*2 [~ bz*2]]/2" $ slow 2 $ run 5) - |+| begin "0.7" |+| end "0.85" - |+| hcutoff "0.04" |+| hresonance "0.1" - |+| shape ((/5) <$> slow (5%3) sinewave1) - |+| vowel "o u" - -d9 $ within (0.5, 1) ((0.25) <~) $ brak . chop 256 $ sound "creep" - |+| shape ((/3) <$> density 2 sinewave1) - |+| vowel "o e" - |+| gain "0.6" - -d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" - |+| cut "1" - |+| vowel "o i" - -d1 $ superimpose ((1%4) <~) $ sound "[k [sn k] [wt k] sn]/4" - -d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" - |+| vowel "o i" - -mapM_ ($ silence) [d6,d9] - -d1 $ sound "[k*4 [sn ~ ~ k] k*4 sn]/4" - -{- -piston iii --} - -solo $ d3 $ within (1%3, 2%3) (|+| gain "0.5") $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" - |+| vowel "o i" - |+| cut "1" - -d1 $ slow (3%2) $ sound "[k*2 [sn ~ ~ ~ k] [~ ~ ~ ~ k] sn]/4" - -solo $ d2 $ slow (3%2) $ sound "[[wt hh] hh*2 ! !]/4" - -d4 $ slow 24 $ rev . chop 64 $ sound "fly:1" - |+| gain "0.7" --- |+| gain "0.7" - |+| pan ((+0.25).(/2) <$> density 1.1 sinewave1) - -d1 $ slow (3%2) $ sound "[k*2 [sn ~ ~ ~ k] [~ ~ ~ ~ k] sn]/4" - -d3 $ slow 12 $ ((1%4) <~) $ rev . chop 32 $ bassParams $ sound "[dubb dubb:1]/2" - |+| vowel "e" - |+| cut "1" - |+| shape ((/3) <$> density 3.1 sinewave1) - -{-fill-} - -d4 $ within (0.5, 1) (density (5%3)) $ slow 24 $ rev . chop 64 $ sound "fly:1" - |+| gain "0.7" - |+| pan ((+0.25).(/2) <$> density 1.1 sinewave1) - -mapM_ ($ silence) [d1,d2] - {- piston iv -} @@ -167,7 +89,6 @@ d4 $ chop 64 $ sound "[fly ~ [fly ~ ~ fly] ~]/4" mapM_ ($ silence) [d1,d3,d7,d8] ---d1 $ (0.5 <~) $ sound "[[k ~ wtsn k] ~]/2" d1 $ (0.5 <~) $ sound "[k [sn k]]/2" d3 $ slow 8 $ ((1%8) <~) $ chop 32 $ bassParams $ sound "[dubb dubb:1]/2" @@ -181,21 +102,28 @@ d3 $ slow 8 $ ((1%8) <~) $ chop 32 $ bassParams $ sound "[dubb dubb:1]/2" |+| cut "1" |+| vowel "u a" +d7 $ ((1%16) <~) $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" + |+| gain "0.7" + d7 $ rev $ ((1%16) <~) $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" |+| gain "0.7" |+| shape ((+0.25).(/2) <$> density 8 saw1) -d2 $ sound "~ wt*2" +d7 $ rev $ ((1%16) <~) $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" + |+| gain "0.7" + |+| shape ((+0.4).(/2) <$> density 8 saw1) -mapM_ ($ silence) [d1,d3,d4] +d7 $ every 2 (density 1.5) $ whenmod 5 3 (density 2) $ rev $ ((1%16) <~) $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" + |+| gain "0.7" + |+| shape ((+0.25).(/2) <$> density 8 saw1) {- piston v -} -d7 $ every 2 (density 1.5) $ whenmod 5 3 (density 2) $ rev $ ((1%16) <~) $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" - |+| gain "0.7" - |+| shape ((+0.25).(/2) <$> density 8 saw1) +d2 $ sound "~ wt*2" + +mapM_ ($ silence) [d1,d3,d4] d1 $ sound "k" @@ -206,8 +134,9 @@ d3 $ (0.5 <~) $ chop 32 $ bassParams $ sound "dubb [dubb:1 ~]/4" d1 silence d1 $ sound "{k*2 [~ k], ~ sn}/2" -d6 $ sound "[ff(3,8) [~ ff]]/4" - |+| end "0.2" +d6 $ sound "[ff(3,8) [~ [ff bz]]]/4" + |+| end "0.3" + |+| shape "0 0.25" d4 $ chop 64 $ sound "[fly ~ [fly ~ ~ fly] ~]/4" |+| cut "1" @@ -216,10 +145,16 @@ d4 $ chop 64 $ sound "[fly ~ [fly ~ ~ fly] ~]/4" |+| shape ((+0.25).(/2) <$> density 8 sinewave1) |+| speed ((+1) <$> density (5%4) saw1) +d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" + |+| cut "1" + |+| vowel "i" + d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" |+| cut "1" |+| vowel "o i" +d2 silence + d3 $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" |+| cut "1" |+| vowel "o i" @@ -228,7 +163,7 @@ mapM_ ($ silence) [d4,d7] {-fill-} -d1 $ sound "[k*2 [sn ~ ~ wt] k*2 sn [~ k]]/5" +d1 $ sound "[k*2 [sn k] k*2 sn [~ k]]/5" d1 $ whenmod 3 2 (slow (4%3)) $ sound "[k*2 [sn ~ ~ wt] k*2 sn [~ k]]/5" solo $ d1 $ whenmod 3 2 (slow (4%3)) $ sound "[k*2 [sn ~ ~ wt] k*2 sn [~ k]]/5" @@ -245,10 +180,10 @@ d7 $ slow 5 . chop 15 $ sound "ice" hush d1 $ sound "[k [sn ~ k] [~ ~ sn] ~]/8" -d3 $ slow 8 $ slowspread ($) [rev.chop 12, rev.chop 24] $ bassParams $ sound "[dubb dubb:1]/2" - d2 $ sound "[wt*3 ~]/2" |+| shape ((/2) <$> slow 3 saw1) +d3 $ slow 8 $ slowspread ($) [rev.chop 12, rev.chop 24] $ bassParams $ sound "[dubb dubb:1]/2" + d4 $ slow (4%3) . slowspread ($) [slow 1, density (5%4)] $ slow 12 $ slowspread striate [24,36] $ sound "fly:1" |+| gain "0.7" @@ -275,6 +210,8 @@ d7 $ slow 5 . chop 15 $ sound "ice" |+| resonance "0.4" |+| cutoff "0.2" |+| delay "0.5" |+| delayfeedback "0.2" |+| delaytime "0.76" --(138/60)/3 +d7 silence + d3 $ slow 8 $ within (0.33, 0.67) (0.25 ~>) $ slowspread ($) [rev.chop 12, rev.chop 24] $ bassParams $ sound "[dubb dubb:1]/2" |+| vowel "o"