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

fix for busted offset on new osx machine w tidal 0.6

Browse Source
This commit is contained in:
Aneurin Anny Barker Snook
2015-10-04 19:37:02 +01:00
parent 7aa1f8f794
commit 5095fc8741
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
piston.tidal
+7 -5
View File
@@ -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)