123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664 |
- {-
- Anny: Piston LP
- anny.audio | pistonlp.co.uk
- Current version: 1.1.0
- Compatibility: Tidal Cycles 1.0-dev + SuperDirt 1.0-dev + SuperCollider 3.8
- License: CC-BY-SA https://creativecommons.org/licenses/by-sa/4.0/
- See README.md for more information
- -}
- let bpm b = cps (b/60)
- msil = mapM_ ($ silence)
- bassP = (# gain 0.7) . (# hcutoff 485) . (# hresonance 0.001)
- d'drum = d1
- d'perc = d2
- d'gnome = d3
- d'bass = d4
- d'fly = d5
- d'bz = d6
- d'shard = d7
- d'misc = d8
- d'ant = d9
- d'cymb = d10
- bpm 138
- {-
- @p1
- Piston I
- -}
- d'fly $
-
- slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
- # hcutoff 1985
- # hresonance 0.06
- # gain 1
- d'perc $ s "wt/2"
- d'drum $ sound "k:1"
- d'bass $ slow 8 $ (0.25 <~) $ rev . chop 16 $ bassP $ n "[0 1]/2" # s "dubb"
- d'perc $ s "{wt/2, [~ wtsn]/8}"
- d'drum $ s "k"
- d'drum $ s "[k*2, [~ sn]]/2"
- d'perc $
-
-
- density (4/3) $
- s "[wtsn ~ wt]"
- d'gnome $ within (0, 0.5) rev $ chop 8 $ s "[gnome(3,8)]/2"
- # gain 0.8
- # speed (scale 0.8 1 $ slow 1.1 sine1)
- d'drum $ s "[k*2, ~ [sn [~ sn*3]/2]]/2"
- msil [d'drum, d'bass]
- d'drum $ s "[k(3,8)]/2"
- d'drum $ s "[k(3,8), ~ sn]/2"
- d'drum $ s "[k(3,8), ~ [sn [~ sn*3]/2]]/2"
- d'bass $ (every 2 $ within (0.25, 0.75) (0.5 ~>)) $ slow 8 $ rev . chop 16 $ bassP $ n "[0 1]/2" # s "dubb"
- d'drum $ within (0.5, 1) (chop 8) $ s "[k(3,8), ~ [sn [~ sn*3]/2]]/2"
- msil [d'perc, d'fly]
- d'perc $ s "[~ wt*4 ~ wt*2 ~]/5"
- d'drum $ overlay (3.75 ~> s "wtsn/4") $ s "[k(3,8), ~ sn]/2"
- {-
- @p2
- Piston II
- -}
- d'drum $ slow 7 $ s "k [sn k] [k sn] [~ sn] [~ k] sn [k [k wtsn]]"
- msil [d'fly, d'gnome]
- d'perc $ s "wt*2"
- # vowel "[u e u a]/2"
- # end 0.15
- d'bass $ slow 8 $ ((1/8) <~) $ chop 32 $ bassP $ n "[0 1]/2" # s "dubb"
- # speed 1.2
- # shape (scale 0 0.5 $ density 4 sine1)
- # cut 1
-
- d'ant $ slow 2 $ smash 16 [1,2] $ sound "ant:1"
- # cutoff 1764
- # resonance 0.01
- d'shard $ ((1/16) <~) $ chop 16 $ s "[ice [~ ice] ~ ~]/4"
- # gain 0.7
- d'fly $ chop 64 $ s "[fly ~ [fly ~ ~ fly] ~]/4"
- # cut 1
- # begin 0.3
- # end 0.35
- # shape (scale 0.25 0.75 $ density 8 sine1)
- # speed (scale 0.92 1.92 $ density (5/4) saw1)
- d'drum $ 0.5 <~ sound "[[k k:1] [sn ~ ~ k]]/2"
- let o = (0.25 ~>)
- g = 0.65
- in d'cymb $ o $
- within (0.5, 1) (# vowel "e") $ (0.5 ~>) $ chop 2 $ s "[cymb*4 cymb*3]/8"
- # shape (scale 0 (1/3) $ density 3.6 saw1)
- # gain g
- d'shard $
-
- rev $
- chop 16 $ s "[ice [~ ice] ~ ~]/4"
- # gain 0.7
- # shape (scale 0.25 0.75 $ density 8 saw1)
- msil [d'perc, d'fly]
- d'drum $ sound "[[k sn] [~ k:1 k:1 ~]]/2"
- d'drum $ sound "[k [sn k:1 k:1 ~]]/2"
- {-
- @p3
- Piston III
- -}
- d'perc $
- {-
-
-
- chop 16 $
- within (0.5, 1.5) (
- (# orbit 1) .
- (# delay 0.3) . (# delayfeedback 0.5) . (# delaytime 0.766)
- ) $
-
- stack [
- s "~ wt*2"
-
- ]
- do d'drum $ s "k"
- msil [d'bass, d'cymb]
- d'bz $ s "[ff(3,8) [~ [ff bz]]]/4"
- # end 0.3
- # shape "0 0.25"
- # gain 0.7
- d'drum silence
- d'drum $ s "[k k sn k]/2"
- let v = "i"
- c = 1
- b = id
- in d'bass $
- (4 <~) $ every 2 (0.5 <~) $
- slow 4 . b $
- rev . chop 16 $
- bassP $ n "[0 1]/2" # s "dubb"
- # cut c
- # vowel v
- d'drum $ s "{[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8, [~ sn]/2}"
- d'perc $ sound "[[k:1 [~ k:1] k:1 [~ k:1]] sn]/8"
- d'misc $ slow 8 $ chop 16 $ bassP $ n "[0 1]/2" # s "dubb"
- # cut 1
- # speed 0.2
- # vowel "e"
- d'drum $ s "{[k*2 [~ k*2] k ~ k*2 ~ k*2 ~]/8, [~ sn]/2}"
- d'shard $
-
- (0.5 <~) $ ((1/16) <~) $ chop 16 $ s "[ice [~ ice] ~ ~]/4"
- # gain 0.7
-
- {-
- @p4
- Piston IV
- -}
- d'perc $
-
- sound "[[~ [wt wtsn]] ~ wt ~]/5"
- d'shard $
-
- within (0.5, 0.75) (iter 5) $ whenmod 3 2 (slow 2) $ slow 8 $ every 2 rev $
- striate 128 $ s "[ice plode]*2"
- # cutoff 441
- # resonance 0.001
- # speed 0.7
- # gain 0.7
-
- d'drum $ sound "[k sn k*2 [~ sn] [~ k]]/5"
- d'bz $ (0.5 <~) $ slow 16 . chop 32 $ s "bzl"
- # n (density 1.5 "0 1")
- # speed (scale 1 2 $ density 1.7 sine1)
- # gain 0.9
- d'misc silence
- d'drum $ sound "[[k k:1]*2 sn k*2 [~ sn] [~ k]]/5"
- let o = 0.75
- in d'bass $ (o ~>) $
- whenmod 5 3 (density (3/2) . brak) $
- bassP $
- rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb"
- # speed 0.5
- # cut 1
- # end 0.5
- msil [d'perc, d'bz, d'shard]
- d'bz $
- whenmod 7 4 (within (0.5, 1) (density 2)) $
- (0.5 <~) $
- slow 16 . chop 32 $
- s "bz"
- # n (density 1.5 "0 1")
- # speed (scale 1.6 2.6 $ density 2.2 sine1)
- # pan (scale 0.25 0.75 $ density 4.1 sine1)
- d'drum $ sound "[k*2 sn [~ k] sn]/4"
- d'drum silence
- d'drum $ sound "[[k ~ ~ k] sn [~ k] sn]/4"
- msil [d'perc,d'bass,d'shard]
- {-
- @p5
- Piston V
- -}
- d'perc $ s "~ wt wt wtsn/8"
- # shape (scale 0 0.5 $ density 1.2 saw1)
- d'drum $ overlay (s "[[k ~ ~ k] ~ [~ k] ~]/4") $ sound "{[~ ~ ~ k:1], [~ sn]/2}"
- do d'drum $ sound "{[~ ~ ~ k:1], [~ sn]/2}"
- msil [d'bz, d'ant]
- d'drum $ sound "{k, [~ ~ ~ k:1], [~ sn]/2}"
- d'bass $
-
-
-
-
-
- chop 16 $ bassP $ s "[~ dubb]"
- # n (slow 4 "0 1")
- # cut 1
-
- let b = id
- in d'fly $ whenmod 5 3 rev $ b $
- slow 16 $ jux ((1.5 ~>) . rev) $
- chop 64 $ bassP $ sound "fly:1"
- # speed 0.7
- # shape (scale 0 0.5 $ density 2.1 saw1)
- d'fly silence
- d'bz $
-
-
- chop 12 $ sound "[~ ~ [~ k:1] !]/4"
- # speed 0.9
-
- {-
- # orbit 1
- # delay 0.3
- # delayfeedback 0.2
- # delaytime 0.2875
- -}
- let g sm f = smash 64 sm $ s "~ gnome" # pan (f $ slow 4 sine1)
- in d'gnome $ whenmod 5 3 (slow 1.5) $ rev $
- stack [
- g [0.5,1] id,
- g [(1/2.5),1] (0.5 <~)
- ]
- # speed 1.2
- # shape ((0.25 ~>) $ scale 0 0.5 $ density 3 sine1)
- # gain 0.6
- msil [d'drum, d'bass]
- d'drum $ sound "k:1"
- d'drum $ sound "{k, [~ ~ ~ k:1], [~ sn]/2}"
- msil [d'perc, d'bz]
- d'gnome silence
- {-
- @p6
- Piston VI
- -}
- d'bz $ within (0, 0.5) (slow (7/6)) $
- every 2 (0.5 <~) $ slow 8 $
- rev . chop 32 $ bassP $ n "[0 1]/2" # s "dubb"
- d'fly $ superimpose (slow (5/3) . iter 3) $
- (# speed (scale 0.7 1.7 $ slow 1.1 sine1)) $
- chop 32 $ s "[plode(5,8)]/8"
- # cut 1
- d'cymb $
-
- s "[cymb*8 ~]/8"
- # gain (scale 0.6 0.8 $ density 3.6 saw1)
- # cut 1
- d'bass silence
- d'drum $ sound "{k, [~ ~ ~ k:1] [~ k:1]}"
- d'misc $ slow 16 $ rev . chop 64 $ bassP $ n "[0 1]/2" # s "dubb"
- d'gnome $ (3 ~>) $ within (0.25, 0.75) rev $
- slowspread ($) [chop 16, chop 32] $ s "[wtsn(3,8)]/2"
- # speed (scale 0.8 1.3 $ density 1.8 sine1)
- d'drum $ stack [
- sound "{k, [~ ~ ~ k:1] [~ k:1]}",
- s "[~ sn ~ sn*2]/8"
- ]
- msil [d'perc, d'gnome, d'misc]
- let d = 5
- in d'gnome $ iter 5 $ density (9/8) $
- within (0, 0.5) rev $
- smash 8 [1,2] $ s "[gnome(3,8)]/2"
- # gain 0.8
- # speed (scale 0.76 (0.76 + 1/d) $ slow 1.1 sine1)
- msil [d'drum, d'fly, d'bz, d'cymb]
- d'drum $ sound "[[k k:1]*2 [sn k:1 ~ k] [~ k:1 k ~] [~ sn ~ k]]/8"
- d'drum $ stack [
- sound "{k, [~ ~ ~ k:1] [~ k:1]}",
- s "[~ sn ~ sn*2]/8"
- ]
- msil [d'perc, d'fly, d'bz]
- {-
- @p7
- Piston VII
- -}
- d'drum $ whenmod 3 2 (slow (4/3)) $ s "[k*2 [sn ~ ~ wt] k*2 sn [~ k]]/5"
- d'drum $ every 3 (density 2) $ within (0, 0.5) (jux ((1/3) ~>)) $
- s "[k [sn ~ k] [~ ~ sn] ~]/8"
- d'shard $ slow 5 . chop 15 $ s "ice"
- # gain 0.7
- # resonance 0.4
- # cutoff 4410
- # orbit 1
- # delay 0.7
- # delayfeedback 0.3
- # delaytime 0.02
- hush
- d'drum $ s "[k [sn ~ k] [~ ~ sn] ~]/8"
- d'perc $ s "[wt*3 ~]/2"
- # shape (scale 0 0.5 $ slow 3 saw1)
- d'bass $ slow 8 $
- slowspread (\c -> rev . chop c) [12, 24] $
- bassP $ n "[0 1]/2" # s "dubb"
- d'fly $ slow (4/3) .
- slowspread ($) [slow 1, density (5/4)] $
- slow 12 $
- slowspread striate [24,36] $ sound "fly:1"
- # gain 0.7
- {- (1)
- # orbit 2
- # delay 0.6
- # delayfeedback 0.4
- # delaytime 0.62
-
- d'bz $ rev . chop 12 $ s "bz/4"
- # vowel "o"
- msil [d'drum, d'perc]
- let bm f = scale f (0.5 + f) $ density (5/4) sine1
- in d'bass $
- (# begin (bm 0)) $
- (# end (bm 0.05)) $
- slow 8 $
- slowspread (\c -> rev . chop c) [12, 24] $
- bassP $ n "[0 1]/2" # s "dubb"
- d'drum $ s "{[k k]/2, ~ sn}"
- d'drum $ s "{[[k ~ k] k]/2, ~ sn}"
- msil [d'bass, d'shard]
- d'bass $ slow 8 $
- within (0.33, 0.67) (0.25 ~>) $
- slowspread (\c -> rev . chop c) [12, 24] $
- bassP $ n "[0 1]/2" # s "dubb"
- # vowel "o"
- d'bass silence
- d'drum $ within (0, 0.5) (jux ((1/3) ~>)) $ s "[k [sn ~ k] [~ ~ sn] ~]/8"
- d'bz silence
- {-
- @p8
- Piston VIII
- -}
- d'drum $ within (0, 0.5) (superimpose ((1/3) ~>)) $ s "[k [sn ~ k] [~ ~ sn] ~]/8"
- d'bz $ s "[[ff bz]*2 [~ bz*2]]/2"
- # n (slow 2 $ run 5)
- # begin 0.7
- # end 0.85
- # hcutoff 882
- # hresonance 0.1
- # shape (scale 0 0.2 $ slow (5/3) sine1)
- # gain 0.8
- d'drum $ s "[k*2 [sn ~ ~ wt] [~ k] sn [~ k]]/5"
- d'drum $ s "[k [sn ~ ~ wt] [~ k] sn]/4"
- d'drum $ s "[k [sn ~ ~ k] [~ k] sn]/4"
- d'perc $ s "{wt/2, [~ wtsn]/8}"
- d'perc $ stack [
- {-
-
- whenmod 5 2 (# vowel "i o") $ whenmod 3 1 (slow 2) $ brak $
- slow 16 $ jux (0.5 <~) $ rev . striate 256 $ s "fly"
- # hcutoff 1985
- # hresonance 0.06,
-
-
-
-
- density (4/3) $
- s "[wtsn ~ wt]"
- ]
- d'drum $ s "[k [sn ~ ~ k] [~ k*2] sn]/4"
- msil [d'fly, d'bz, d'shard, d'misc, d'ant, d'cymb]
- d'misc $ stack [
- {-
-
- every 2 (density 2) $ whenmod 3 2 (density 1.6) $
- chop 16 $ bassP $ s "[~ dubb]"
- # n (slow 4 "0 1")
- # cut 1
- # speed (scale 0.75 1.25 $ slow 1.3 sine1),
- (0.75 ~>) $
-
-
- whenmod 5 3 (density (3/2) . brak) $
- bassP $
- rev $ (0.5 ~>) $ slow 2 . chop 8 $ n "[0 1]/2" # s "dubb"
- # speed 0.5
- # cut 1
- # end 0.5
- ]
- d'drum $ s "[k*2 [sn ~ ~ k] [k k*2] sn]/4"
- msil [d'fly, d'shard, d'bz, d'misc, d'cymb]
- msil [d'gnome, d'ant]
- msil [d'bz, d'cymb, d'misc]
- hush
|