2
0
Aneurin Barker Snook 10 жил өмнө
parent
commit
f2af1582e0
1 өөрчлөгдсөн 44 нэмэгдсэн , 15 устгасан
  1. 44 15
      piston.tidal

+ 44 - 15
piston.tidal

@@ -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,36 +205,67 @@ 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"))
-   |+| cut "1"
+d6 $ 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"
 
-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"
-   |+| speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
+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) $ 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) $ 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 $ (|+| 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"))
+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)
 
+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)