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

easier to read reference numbers not in brackets

Browse Source
This commit is contained in:
Aneurin Barker Snook
2017-06-09 16:01:20 +01:00
parent 91fd1e37b8
commit 6770350f5e
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
piston.tidal
+19 -19
View File
@@ -138,7 +138,7 @@ d'perc $ s "wt*2"
# vowel "[u e u a]/2" # vowel "[u e u a]/2"
# end 0.15 # end 0.15
-- p2bass @ (1) -- p2bass @ 1
-- @p2shardb -- @p2shardb
d'shard $ d'shard $
@@ -260,7 +260,7 @@ d'bz $ (0.5 <~) $ slow 16 . chop 32 $ s "bzl"
# gain 0.9 # gain 0.9
d'misc silence d'misc silence
-- p4shard @ (1) -- p4shard @ 1
d'drum $ sound "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5" d'drum $ sound "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5"
d'bass $ (0.75 ~>) $ d'bass $ (0.75 ~>) $
@@ -285,17 +285,17 @@ d'bz $ -- every 3 brak $ -- (0) off (2) 3 (4) 2
# pan (scale 0.25 0.75 $ density 4.1 sine1) # pan (scale 0.25 0.75 $ density 4.1 sine1)
d'drum $ sound "[k*2 sn [~ k] sn]/4" d'drum $ sound "[k*2 sn [~ k] sn]/4"
-- p4bz @ (1) -- p4bz @ 1
-- p4shard @ (2) -- p4shard @ 2
-- p4bz @ (2) -- p4bz @ 2
d'perc $ smash 4 [0.5,0.25] $ iter 4 $ sound "[[~ [wt wtsn]] ~ wt ~]/5" d'perc $ smash 4 [0.5,0.25] $ iter 4 $ sound "[[~ [wt wtsn]] ~ wt ~]/5"
d'drum silence d'drum silence
d'drum $ sound "[[k ~ ~ k] sn [~ k] sn]/4" d'drum $ sound "[[k ~ ~ k] sn [~ k] sn]/4"
-- p4bz @ (3) -- p4bz @ 3
msil [d'perc,d'bass,d'shard] msil [d'perc,d'bass,d'shard]
-- p4bz @ (4) -- p4bz @ 4
{- {-
@p5 @p5
@@ -345,17 +345,17 @@ d'bass $ -- within (0.5, 0.75) (# vowel "u o") $ -- (4), delete in (5)
d'fly silence d'fly silence
-- p5bass @ (1) -- p5bass @ 1
-- p5bass @ (2) -- p5bass @ 2
d'bz $ whenmod 4 3 (density 1.8) $ -- (1) d'bz $ whenmod 4 3 (density 1.8) $ -- (1)
chop 12 $ sound "[~ ~ [~ k:1] !]/4" chop 12 $ sound "[~ ~ [~ k:1] !]/4"
# speed 0.9 # speed 0.9
# shape (scale 0 (1/3) $ density 3 sine1) -- (2) # shape (scale 0 (1/3) $ density 3 sine1) -- (2)
-- p5bass2 @ (1) -- p5bass2 @ 1
-- p5bass @ (3) -- p5bass @ 3
-- p5bass2 @ (2) -- p5bass2 @ 2
-- @p5gnome -- @p5gnome
let g sm f = smash 64 sm $ s "~ gnome" # pan (f $ slow 4 sine1) let g sm f = smash 64 sm $ s "~ gnome" # pan (f $ slow 4 sine1)
@@ -368,7 +368,7 @@ let g sm f = smash 64 sm $ s "~ gnome" # pan (f $ slow 4 sine1)
# shape ((0.25 ~>) $ scale 0 0.5 $ density 3 sine1) # shape ((0.25 ~>) $ scale 0 0.5 $ density 3 sine1)
# gain 0.6 # gain 0.6
-- @p5bass @ (4) -- @p5bass @ 4
msil [d'drum, d'bass] msil [d'drum, d'bass]
d'drum $ sound "k:1" d'drum $ sound "k:1"
@@ -385,7 +385,7 @@ d'bz $ -- within (0, 0.5) rev -- (1)
# delaytime 0.2875 --(138/60)/8 # delaytime 0.2875 --(138/60)/8
-- p5fly w/ b=brak -- p5fly w/ b=brak
-- p5bass @ (5) -- p5bass @ 5
d'drum $ sound "{k, [~ ~ ~ k:1], [~ sn]/2}" d'drum $ sound "{k, [~ ~ ~ k:1], [~ sn]/2}"
msil [d'perc, d'bz] msil [d'perc, d'bz]
@@ -551,12 +551,12 @@ let bm f = scale f (0.5 + f) $ density (5/4) sine1
slowspread ($) [rev.chop 12, rev.chop 24] $ slowspread ($) [rev.chop 12, rev.chop 24] $
bassP $ n "[0 1]/2" # s "dubb" bassP $ n "[0 1]/2" # s "dubb"
-- p7shard @ (0) -- p7shard @ 0
d'drum $ s "{[k k]/2, ~ sn}" -- @p7drum2a d'drum $ s "{[k k]/2, ~ sn}" -- @p7drum2a
d'drum $ s "{[[k ~ k] k]/2, ~ sn}" -- @p7drum2b d'drum $ s "{[[k ~ k] k]/2, ~ sn}" -- @p7drum2b
-- p7shard @ (1) -- p7shard @ 1
msil [d'bass, d'shard] msil [d'bass, d'shard]
@@ -709,12 +709,12 @@ d'bz $ -- within (0.5, 1) (density 2) $ -- (1)
# vowel "e o" # vowel "e o"
# gain 0.6 # gain 0.6
-- p6gnome @ (1) -- p6gnome @ 1
-- p3shard @ (1) -- p3shard @ 1
msil [d'fly, d'shard, d'bz, d'misc, d'cymb] msil [d'fly, d'shard, d'bz, d'misc, d'cymb]
-- @p8bass @ (0) -- @p8bass @ 0
d'cymb $ (2.75 ~>) $ d'cymb $ (2.75 ~>) $
-- p2cymb -- p2cymb