diff --git a/piston.tidal b/piston.tidal index 0c84c5f..bf626ba 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) [d5] +d5 silence d1 $ within (0.5, 1) (chop 8) $ sound "{k(3,8), [~ ~ sn [~ sn*3]/2]}/2" @@ -60,14 +60,14 @@ mapM_ ($ silence) [d1,d2] d2 $ sound "[~ wt*4 ~ wt*2 ~]/5" {- -piston iv +piston ii -} +mapM_ ($ silence) [d3,d4] + d2 $ sound "wt*2" |+| vowel "[u e u a]/2" -mapM_ ($ silence) [d3,d4] - d1 $ sound "[k [sn k] [k sn] [~ sn] [~ k] sn [k [k wtsn]]]/7" d3 $ slow 8 $ ((1%8) <~) $ chop 32 $ bassParams $ sound "[dubb dubb:1]/2" @@ -75,6 +75,9 @@ d3 $ slow 8 $ ((1%8) <~) $ chop 32 $ bassParams $ sound "[dubb dubb:1]/2" |+| shape ((+0.25).(/2) <$> density 4 sinewave1) |+| cut "1" +d9 $ slow 2 $ smash 16 [1,2] $ sound "ant:1" + |+| cutoff "0.08" |+| resonance "0.01" + d7 $ ((1%16) <~) $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" |+| gain "0.7" @@ -87,9 +90,9 @@ d4 $ chop 64 $ sound "[fly ~ [fly ~ ~ fly] ~]/4" |+| shape ((+0.25).(/2) <$> density 8 sinewave1) |+| speed ((+1) <$> density (5%4) saw1) -mapM_ ($ silence) [d1,d3,d7,d8] +mapM_ ($ silence) [d1,d2,d3,d7,d8] -d1 $ (0.5 <~) $ sound "[k [sn k]]/2" +d1 $ (0.5 <~) $ sound "[[k k:1] [sn ~ ~ k]]/2" d3 $ slow 8 $ ((1%8) <~) $ chop 32 $ bassParams $ sound "[dubb dubb:1]/2" |+| speed "1.2" @@ -102,34 +105,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" +d7 $ rev $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" |+| gain "0.7" |+| shape ((+0.25).(/2) <$> density 8 saw1) -d7 $ rev $ ((1%16) <~) $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" - |+| gain "0.7" - |+| shape ((+0.4).(/2) <$> density 8 saw1) - -d7 $ every 2 (density 1.5) $ whenmod 5 3 (density 2) $ rev $ ((1%16) <~) $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" +d7 $ every 2 (density 1.5) $ whenmod 5 3 (density 2) $ rev $ chop 16 $ sound "[ice [~ ice] ~ ~]/4" |+| gain "0.7" |+| shape ((+0.25).(/2) <$> density 8 saw1) {- -piston v +piston iii -} d2 $ sound "~ wt*2" -mapM_ ($ silence) [d1,d3,d4] +mapM_ ($ silence) [d1,d3,d4,d9] d1 $ sound "k" d3 $ (0.5 <~) $ chop 32 $ bassParams $ sound "dubb [dubb:1 ~]/4" |+| cut "1" |+| speed "0.6" + |+| shape ((+0.25).(/2) <$> slow 4 saw1) d1 silence d1 $ sound "{k*2 [~ k], ~ sn}/2" @@ -138,13 +135,6 @@ 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" - |+| begin "0.3" - |+| end "0.35" - |+| 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" @@ -153,17 +143,57 @@ d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb: |+| cut "1" |+| vowel "o i" -d2 silence +d7 silence d3 $ every 2 (0.5 <~) $ slow 4 . brak $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2" |+| cut "1" |+| vowel "o i" -mapM_ ($ silence) [d4,d7] +d1 $ sound "{k [~ k], ~ sn}/2" + +d2 silence +d4 silence {-fill-} +{- +piston iv +-} + d1 $ sound "[k*2 [sn k] k*2 sn [~ k]]/5" + +d4 $ within (0.5, 1) (jux (slow 1.2)) $ slow 4 $ chop 128 $ sound "fly:1" + |+| gain "0.6" + |+| shape ((/2) <$> density 1.3 sinewave1) + +d3 silence + +d1 $ sound "[[k [~ k] k [~ k]] sn]/8" + +d4 silence + +let kdelay = (|+| delay "0.3").(|+| delayfeedback "0.5").(|+| delaytime "0.766") --(138/60)/3 +d1 $ within (0.5, 1.5) (kdelay) $ sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8" + +d1 $ stack [ + within (0.5, 1.5) (kdelay) $ sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8", + (0.5 <~) $ every 4 (density 2) $ sound "k" +] + +d3 $ slow 8 $ chop 16 $ bassParams $ sound "[dubb dubb:1]/2" + |+| cut "1" + |+| speed "0.2" + |+| vowel "e" + +d2 $ sound "wt*2" +|+| vowel "o i" + + + +{- ?? -} + + +d6 silence 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" @@ -248,6 +278,9 @@ d3 $ slow 16 $ rev . chop 64 $ bassParams $ sound "[dubb dubb:1]/2" d2 $ sound "{wt/2, [~ wtsn]/8}" +d9 $ slow 2 $ smash 16 [1,2] $ sound "ant:1" + |+| cutoff "0.08" |+| resonance "0.01" + d8 $ chop 64 $ sound "[fly ~ [fly ~ ~ fly] ~]/4" |+| cut "1" |+| begin "0.3" @@ -255,21 +288,19 @@ d8 $ chop 64 $ sound "[fly ~ [fly ~ ~ fly] ~]/4" |+| shape ((+0.25).(/2) <$> density 8 sinewave1) |+| speed ((+1) <$> density (5%4) saw1) +d2 $ density (4%3) $ sound "[wtsn ~ wt]" +d2 $ whenmod 5 3 rev $ density (4%3) $ sound "[wtsn ~ wt]" +d2 $ whenmod 5 3 (rev . chop 8) $ density (4%3) $ sound "[wtsn ~ wt]" + d5 $ whenmod 5 2 (|+| vowel "i o") $ whenmod 3 1 (slow 2) $ brak $ slow 16 $ jux (0.5 <~) $ rev . striate 256 $ sound "fly" |+| hcutoff "0.09" |+| hresonance "0.06" -d2 $ density (4%3) $ sound "[wtsn ~ wt]" -d2 $ whenmod 5 3 rev $ density (4%3) $ sound "[wtsn ~ wt]" +d2 $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ density (4%3) $ sound "[wtsn ~ wt]" d1 $ sound "[k [sn ~ ~ k] [~ k] sn]/4" - -d2 $ whenmod 5 3 (rev . chop 8) $ density (4%3) $ sound "[wtsn ~ wt]" - d1 $ sound "[k [sn ~ ~ k] [~ k*2] sn]/4" -d2 $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ density (4%3) $ sound "[wtsn ~ wt]" - mapM_ ($ silence) [d4,d6,d8] solo $ d2 $ within (0.5, 1) (slow (3%2) . chop 4) $ whenmod 5 3 (rev . chop 8) $ density (4%3) $ sound "[wtsn ~ wt]"