music-2010s/piston-lp
Archived
1
0
Fork 0
Code Pull Requests Activity

backup 20 april 2015

Browse Source
This commit is contained in:
Aneurin Barker Snook
2015-04-20 21:21:22 +01:00
parent 5a492c98f1
commit f2af1582e0
1 changed files with 44 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
piston.tidal
+44 -15
View File
@@ -171,8 +171,6 @@ 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 silence
d1 $ sound "{k*2 [~ k], ~ sn}/2"
d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:1]/2"
@@ -207,35 +205,66 @@ d3 $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
d3 $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
|+| cut "1"
d4 silence
mapM_ ($ silence) [d4,d9]
d3 $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
d3 $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
|+| cut "1"
d3 $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
d3 $ every 2 (density 2) $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
|+| cut "1"
d3 $ every 2 (density 2) $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
d6 $ chop 16 $ sound "[~ ~ [~ plode] !]/4"
|+| speed "0.9"
|+| vowel "u"
d3 $ within (0.5, 0.75) (|+| vowel "u o") $ every 2 (density 2) $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
|+| cut "1"
d3 $ within (0.5, 0.75) (|+| vowel "o u") $ every 2 (density 2) $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
|+| cut "1"
d6 $ whenmod 4 3 (density 1.8) $ chop 16 $ sound "[~ ~ [~ plode] !]/4"
|+| speed "0.9"
|+| vowel "u"
d3 $ within (0.5, 0.75) (|+| vowel "o u") $ every 2 (density 2) $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
d3 $ within (0.5, 0.75) (|+| vowel "u o") $ every 2 (density 2) $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
|+| cut "1"
|+| speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
d3 $ within (0.5, 0.75) (|+| vowel "o u") $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
d3 $ within (0.5, 0.75) (|+| vowel "u o") $ 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)
d3 $ within (0.5, 0.75) (|+| vowel "o u") $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
d6 $ whenmod 4 3 (density 1.8) $ chop 16 $ sound "[~ ~ [~ plode] !]/4"
|+| speed "0.9"
|+| vowel "u"
|+| shape ((/3) <$> density 3 sinewave1)
d7 $ rev $ chop 64 $ sound "[~ gnome]"
|+| speed "1.2"
|+| shape ((/2) <$> ((0.25 ~>) . density 3) sinewave1)
|+| gain "0.6"
d4 $ whenmod 5 3 rev $ brak $ slow 16 $ jux ((1.5 ~>).rev) $ chop 64 $ bassParams $ sound "fly:1"
|+| speed "0.7"
|+| shape ((/2) <$> density 2.1 saw1)
d6 $ whenmod 4 3 (density 1.8) $ chop 16 $ sound "[~ ~ [~ plode] !]/4"
|+| speed "0.9"
|+| vowel "u"
|+| shape ((/3) <$> density 3 sinewave1)
|+| delay "0.3" |+| delayfeedback "0.2" |+| delaytime "0.2875" --(138/60)/8
d6 $ within (0, 0.5) (rev) $ whenmod 4 3 (density 1.8) $ chop 16 $ sound "[~ ~ [~ plode] !]/4"
|+| speed "0.9"
|+| vowel "u"
|+| shape ((/3) <$> density 3 sinewave1)
|+| delay "0.3" |+| delayfeedback "0.2" |+| delaytime "0.2875" --(138/60)/8
mapM_ ($ silence) [d2,d6]
d3 $ (|+| gain ((*0.7) <$> saw1)) $ within (0.5, 0.75) (|+| vowel "u o") $ 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)
d3 $ (|+| gain (saw1)) $ within (0.5, 0.75) (|+| vowel "o u") $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
|+| cut "1"
|+| speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
mapM_ ($ silence) [d3,d4,d9]
{-
piston vi
@@ -329,7 +358,7 @@ d8 $ chop 64 $ sound "[fly ~ [fly ~ ~ fly] ~]/4"
|+| shape ((+0.25).(/2) <$> density 8 sinewave1)
|+| speed ((+1) <$> density (5%4) saw1)
d7 $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ {dubb, wtsn*2}]" (slow 4 "0 1"))
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)