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

changes from june 16

Browse Source 
been playing a lot of videogames since i bought a projector
and haven't been giving this much love, giving it another
go now
This commit is contained in:
Aneurin Barker Snook
2015-06-29 19:51:20 +01:00
parent e5439efe43
commit fac1945285
1 changed files with 72 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files
piston.tidal
+72 -62
View File
@@ -189,6 +189,68 @@ d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:
piston 2.a
-}
d4 $ (0.25 <~) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
|+| speed ((+1.3) <$> density 1.7 sinewave1)
|+| gain "0.8"
d2 $ sound "[wt(5,8)]/4"
d1 $ (0.5 <~) $ stack [
whenmod 9 2 (0.25 <~) $ sound "~ k",
(0.75 ~>) $ sound "[~ sn]/2"
]
d9 $ (0.25 ~>) $ sound "[~ ~ ~ [~ ~ [~ ~ ~ wtsn] [~ wtsn ~ wtsn]]]/16"
mapM_ ($ silence) [d3,d4,d8]
d7 $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $ striate 64 $ sound "ice"
|+| cutoff "0.02"
|+| resonance "0.001"
|+| speed "0.7"
d3 $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
|+| cut "1"
|+| cutoff "0.01"
|+| resonance ((/3) <$> slow 4 saw1)
mapM_ ($ silence) [d7,d9]
d4 $ (0.25 <~) $ whenmod 5 4 (density 2) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
|+| speed ((+1.3) <$> density 1.7 sinewave1)
|+| gain "0.8"
d3 $ whenmod 5 3 (superimpose (0.25 ~>)) $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
|+| cut "1"
|+| cutoff "0.01"
|+| resonance ((/3) <$> slow 4 saw1)
d1 $ (0.5 <~) $ stack [
whenmod 4 3 (density 1.5) $ whenmod 9 2 ((0.25 <~)) $ sound "~ k",
(0.75 ~>) $ sound "[~ sn]/2"
]
d3 $ whenmod 5 3 (superimpose (0.25 ~>)) $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
|+| cut "1"
|+| cutoff "0.01"
|+| resonance ((/3) <$> slow 4 saw1)
|+| shape ((+0.25).(/2) <$> density 1.5 saw1)
mapM_ ($ silence) [d1,d2]
d7 $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $ striate 64 $ sound "ice"
|+| cutoff "0.02"
|+| resonance "0.001"
|+| speed "0.7"
d7 silence
mapM_ ($ silence) [d1,d3,d9]
{-
piston 2.b
-}
d1 $ sound "{[~ ~ ~ k:1], [~ sn]/2}"
mapM_ ($ silence) [d2,d3]
@@ -281,68 +343,6 @@ d3 $ (|+| gain ((*0.7) <$> saw1)) $ every 2 (density 2) $ whenmod 3 2 (density 1
mapM_ ($ silence) [d1,d5]
{-
piston 2.b
-}
d4 $ (0.25 <~) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
|+| speed ((+1.3) <$> density 1.7 sinewave1)
|+| gain "0.8"
d2 $ sound "[wt(5,8)]/4"
d1 $ (0.5 <~) $ stack [
whenmod 9 2 (0.25 <~) $ sound "~ k",
(0.75 ~>) $ sound "[~ sn]/2"
]
d9 $ (0.25 ~>) $ sound "[~ ~ ~ [~ ~ [~ ~ ~ wtsn] [~ wtsn ~ wtsn]]]/16"
mapM_ ($ silence) [d3,d4,d8]
d7 $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $ striate 64 $ sound "ice"
|+| cutoff "0.02"
|+| resonance "0.001"
|+| speed "0.7"
d3 $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
|+| cut "1"
|+| cutoff "0.01"
|+| resonance ((/3) <$> slow 4 saw1)
d3 $ whenmod 5 3 (superimpose (0.25 ~>)) $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
|+| cut "1"
|+| cutoff "0.01"
|+| resonance ((/3) <$> slow 4 saw1)
d4 $ (0.25 <~) $ whenmod 5 4 (density 2) $ slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
|+| speed ((+1.3) <$> density 1.7 sinewave1)
|+| gain "0.8"
mapM_ ($ silence) [d7,d9]
d1 $ (0.5 <~) $ stack [
whenmod 4 3 (density 1.5) $ whenmod 9 2 ((0.25 <~)) $ sound "~ k",
(0.75 ~>) $ sound "[~ sn]/2"
]
d3 $ whenmod 5 3 (superimpose (0.25 ~>)) $ bassParams $ (0.5 ~>) $ chop 8 $ sound "[dubb dubb:1]/2"
|+| cut "1"
|+| cutoff "0.01"
|+| resonance ((/3) <$> slow 4 saw1)
|+| shape ((+0.25).(/2) <$> density 1.5 saw1)
mapM_ ($ silence) [d1,d2]
d7 $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $ striate 64 $ sound "ice"
|+| cutoff "0.02"
|+| resonance "0.001"
|+| speed "0.7"
d7 silence
mapM_ ($ silence) [d1,d3,d9]
{-
piston 2.c
-}
@@ -475,6 +475,16 @@ d7 $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ so
d2 $ sound "{wt/2, [~ wtsn]/8}"
{- ???
d9 $ stack [
slow 2 $ smash 16 [1,2] $ sound "ant:1"
|+| cutoff "0.08" |+| resonance "0.01",
slow 16 . chop 32 $ sound (samples "bzl" (density 1.5 "0 1"))
|+| speed ((+1.3) <$> density 1.7 sinewave1)
|+| gain "0.8"
]
-}
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]"