123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250 |
- {-
- piston lp
- by aneurin "anny" barker snook
- http://anny.audio
- a summary document to aid live performance,
- see piston.tidal for full composition notes
- -}
- cps (138/60)
- -- [1]
- d'fly $ whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $ -- takeoff
- fly'1 # gain "1" -- intro
- d'perc $ sound "{wt/2, [~ wtsn]/8}" -- start wt/2 only
- d'bass $ slow 8 $ (0.25 <~) $
- bass' 16
- d'perc $ within (0.5, 1) (slow 1.5 . chop 4) $
- whenmod 5 3 (rev . chop 8) $ -- only rev 1st
- snare43'1
- d'gnome $ gnome'1
- d'drum $ within (0.5, 1) (chop 8) $ -- briefly, after bass'1'm
- overlay shnare'1 $ kick38'1 -- overlay sn 1st
- d'bass $ bass'1'm $
- slow 8 $ bass' 16
- d'drum $ overlay ((3.75 ~>) $ sound "wtsn/4") $ -- for transition to 2
- overlay sn $ kick38'1
- -- [2]
- -- silence fly, gnome
- d'perc $ sound "[~ wt*4 ~ wt*2 ~]/5"
- d'drum $ sound "[k [sn k] [k sn] [~ sn] [~ k] sn [k [k wtsn]]]/7"
- d'perc $ wt'2
- d'bass $ bass'2
- d'ant $ ant'2
- d'shard $ ((1%16) <~) $ shard'2
- d'fly $ fly'2
- d'drum $ (0.5 <~) $ sound "[[k k:1] [sn ~ ~ k]]/2"
- d'cymb $ whenmod 5 3 (density 3) $
- (0.25 ~>) $ cymb'2 "0.65"
- d'shard $ every 2 (density 1.5) $ whenmod 5 3 (density 2) $
- rev $ shard'2
- # shape ((+0.25).(/2) <$> density 8 saw1)
- d'drum $ sound "[[k sn] [~ k:1 k:1 ~]]/2"
- d'drum $ sound "[k [sn k:1 k:1 ~]]/2"
- d'perc $ sound "~ wt*2"
- -- [3]
- -- silence bass, cymb
- d'drum $ k
- d'bz $ bz'3
- d'drum $ sound "[k k sn k]/2"
- d'drum $ drum'3
- d'bass $ bass'3 "o i" "1" True
- d'perc $ within (0, 0.5) (# vowel "o") $
- whenmod 3 2 rev $ chop 16 $
- within (0.5, 1.5) (perc'3'delay) $
- overlay (sound "~ wt*2") $
- perc'3
- d'misc $ bass2'3
- d'shard $ iter 4 . density 2 $ -- last bit that makes it greatsome
- (0.5 <~) $ ((1%16) <~) $ shard'2
- # vowel "e o"
- # gain "0.6"
- d'gnome $ gnome'1
- -- [4]
- -- solo misc
- d'perc $ smash 4 [0.5,0.25] $ iter 3 $
- drum5'4
- d'shard $ whenmod 7 3 (density (5%4)) $
- plox'4 "[ice plode]*2"
- d'drum $ sound "[k sn k*2 [~ sn] [~ k]]/5"
- d'drum $ sound "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5"
- d'bz $ bz'4
- d'bass $ (0.75 ~>) $ bass'4
- d'bz $ every 3 brak $ -- every 2 @ end
- bzox'4 "bz bzl" -- bz, bz*2, bz bzl
- d'drum $ sound "[k*2 sn [~ k] sn]/4"
- d'shard $ whenmod 7 3 (density (5%4)) $
- plox'4 "[ice wtsn]*2"
- # vowel "u e"
- -- [5]
- d'perc $ perc'5
- d'drum $ overlay (sound "[[k ~ ~ k] ~ [~ k] ~]/4") $ drum'5
- d'ant $ ant'2
- -- rapidly
- d'drum $ drum'5
- msil [d'bz,d'ant]
- d'drum $ overlay k $ drum'5
- d'bass $ within (0.5, 0.75) (# vowel "u o") $
- every 2 (density 2) $
- whenmod 3 2 (density 1.6) $ -- restore whenmod before within ^
- bass'5
- # speed ((+0.75).(/2) <$> slow 1.3 sinewave1) -- b4 d'bz speed
- d'fly $ fly'5 False
- d'bz $ within (0, 0.5) rev $
- whenmod 4 3 (density 1.8) $
- bass2'5
- # shape ((/3) <$> density 3 sinewave1)
- d'shard $ whenmod 5 3 (slow 1.5) $ rev $ stack [
- gnome'5 [0.5,1] id,
- gnome'5 [(1/2.5),1] (0.5 <~)
- ]
- -- [6]
- solo $ d'bass $ bass'6
- d'bz $ bass2'6
- d'fly $ plode'6
- d'cymb $ density (5%4) $ whenmod 9 4 (density 1.5) $
- cymb'6
- d'perc $ wt'2
- d'drum $ overlay sn'6 $
- drum'6
- d'misc $ slow 16 $ bass' 64
- d'gnome $ wtsn'6
- d'bass $ (0.6 ~>) $ bass'4
- d'gnome $ gnome'6 3 -- 5 then 3
- d'drum $ sound "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8"
- d'fly $ fly'5 False
- d'cymb $ (0.5 <~) $ cymb'2 "0.7"
- -- [7]
- solo $ d'drum $ whenmod 3 2 (slow (4%3)) $
- sound "[k*2 [sn ~ ~ wt] k*2 sn [~ k]]/5"
- d'drum $ every 3 (density 2) $
- within (0, 0.5) (jux ((1%3) ~>)) $
- sound "[k [sn ~ k] [~ ~ sn] ~]/8"
- d'shard $ shard'7 "0.02" -- later, 0.76
- hush
- d'drum $ sound "[k [sn ~ k] [~ ~ sn] ~]/8"
- d'perc $ sound "[wt*3 ~]/2"
- # shape ((/2) <$> slow 3 saw1)
- d'bass $
- (# begin (bass'7'm id)) $
- (# end (bass'7'm (+0.05))) $
- bass'7 id
- d'fly $ fly'7
- # delay "0.6"
- # delayfeedback "0.4"
- # delaytime "0.62"
- d'bz $ rev . chop 12 $ sound "bz/4"
- # vowel "o"
- d'drum $ sound "{[[k ~ k] k]/2, ~ sn}"
- d'bass $ bass'7 (within (0.33, 0.67) (0.25 ~>))
- # vowel "o"
- d'drum $ within (0, 0.5) (jux ((1%3) ~>)) $ -- jux -> superimpose, in 8
- sound "[k [sn ~ k] [~ ~ sn] ~]/8"
- -- [8]
- -- silence bass, bz
- d'bass $ slow 16 $ bass' 32 -- then 64
- d'bz $ bz'8 # gain "0.8"
- d'drum $ sound "[k*2 [sn ~ ~ wt] [~ k] sn [~ k]]/5"
- d'drum $ sound "[k [sn ~ ~ wt] [~ k] sn]/4" -- swap wt for k
- d'ant $ ant'2
- d'misc $ fly'2
- d'shard $ bass'5f
- d'perc $ sound "{wt/2, [~ wtsn]/8}"
- d'cymb $ cymb'6f
- d'perc $ overlay fly'1f $ -- 2nd last
- within (0.5, 1) (slow (3%2) . chop 4) $ -- last
- whenmod 5 3 (rev . chop 8) $ -- only rev 1st
- snare43'1
- -- [9]
- msil [d'fly,d'bz,d'shard,d'misc,d'ant,d'cymb]
- d'misc $ overlay bass'5f $
- (0.75 ~>) $ bass'4
- d'drum $ sound "[k*2 [sn ~ ~ k] [k k*2] sn]/4"
- d'shard $ whenmod 7 3 (density (5%4)) $ plox'4 "[ice plode]*2"
- d'fly $ fly'5 True
- d'ant $ bass2'6
- d'gnome $ gnome'6 3
- d'cymb $ wtsn'6
- d'bz $ within (0.5, 1) (density 2) $
- shard'3f
- msil [d'fly,d'shard,d'bz,d'misc,d'cymb]
- d'misc $ (0.75 ~>) $ bass'4
- d'cymb $ (2.75 ~>) $ cymb'2 "0.7"
- d'bz $ every 3 brak $ bzox'4 "~ bzl"
- msil [d'gnome,d'ant]
- msil [d'bz,d'cymb,d'misc]
- solo $ d'perc $ within (0.5, 1) (slow (3%2) . chop 4) $
- whenmod 5 3 (rev . chop 8) $
- snare43'1
- hush
|