123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364 |
- {-
- Anny FM: Battery 1,2,3
- anny.audio
- Current version: 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)
- cf = slow 2
- every' n o f = when ((== (o-1)) . (`mod` n)) f
- d'drum = d1
- d'perc = d2
- d'bass = d3
- d'hand = d4
- d'warb = d5
- d'bass2 = d6
- d'arpy = d7
- d'tr = d8
- d'tac = d9
- {-
- @b1
- Anny FM: Battery 1
- anny.audio
- -}
- bpm 125
- d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
- # begin 0.2
- d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
- # begin 0.2
- # n "0 1 0 0"
- -- @b1bass1
- d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
- # begin 0.2
- # n "0 1 0 0"
- # speed (scale 1 (4/3) $ slow 8 sine1)
- d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
- # speed 0.7
- d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
- # speed 0.7
- # shape (scale 0 0.5 $ slow (10/4) sine1)
- d'perc $ cf $ slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
- -- @b1hand
- d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
- # speed 0.7
- # shape (scale 0 0.5 $ slow (10/4) sine1)
- # pan (scale 0.25 0.75 $ slow (8/3) sine1)
- d'perc $ cf $ slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
- # n (density 3 $ run 2)
- -- @b1perc1
- d'perc $ cf $
- jux (0.25 <~) $
- slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
- # n (density 3 $ run 2)
- -- @b1bass2
- d'bass $
- spread slow [1,3] $
- striate 16 $
- s "bass3 [~ bass3] ! ~"
- # begin 0.2
- # n "0 1 0 0"
- # speed (scale 1 1.5 $ slow 8 sine1)
- # gain 0.9
- d'drum $ cf $ sound "~ psr:1"
- -- @b1drum1
- d'drum $ cf $
- overlay (sound "~ psr:1") $
- slow 2 $ s "peri [~ peri] ! ~"
- d'drum $ cf $ sound "~ psr:1"
- -- @b1drum2
- d'drum $ cf $
- overlay (sound "~ psr:1") $
- every 4 (density 1.5) $ slow 2 $ s "peri [~ peri] ! ~"
- d'drum $ cf $ sound "~ psr:1"
- -- @b1tac
- d'tac $ cf $
- -- whenmod 7 4 (density 1.5) $ -- (1)
- s "[~ tacscan] ! ~ ~"
- # gain 0.8
- # vowel (slow 3 "e u")
- d'drum $ overlay (s "peri") $ cf $
- sound "~ psr:1"
- d'drum $ cf $ sound "~ psr:1"
- -- @b1warbler
- d'warb $ slow 4 $ striate 32 $ s "warbler"
- # n (slow 7 $ run 7)
- # gain 0.8
- -- @b1perc2
- d'perc $ cf $
- spread slow [2, 1] $
- jux (0.25 <~) $
- slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
- # n (density 3 $ run 2)
- d'drum $ overlay (s "peri") $ cf $
- sound "~ psr:1"
- d'drum $ overlay (s "peri") $ cf $
- every 2 (density 3) $ sound "~ psr:1"
- msil [d'bass, d'tac]
- -- @b1drum3
- d'drum $ overlay (s "peri") $ cf $
- every' 8 8 (density 1.5) $
- every 2 (density 3) $ sound "~ psr:1"
- -- @b1perc3
- d'perc $ cf $
- slow 2 . spread slow [2,4,2,3] $
- jux (0.25 <~) $
- slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
- # n (density 3 $ run 2)
- d'hand silence
- d'drum $ cf $ every' 8 8 (density 1.5) $ every 2 (density 3) $ sound "~ psr:1"
- d'drum silence
- {-
- @b2
- Anny FM: Battery 2
- anny.audio
- -}
- bpm 125
- d'perc $ cf $ s "uxay*2" # n "1 0 1 2"
- d'perc $ cf $ s "uxay*4" # n "1 0 1 2"
- d'perc $ cf $ s "uxay*4"
- # n "1 0 1 2"
- # speed "[0.7 1 1.2]/2"
- d'drum $ cf $ s "psr*4 psr*2"
- # gain 0.6
- -- @b2drum
- d'drum $ overlay (s "peri") $ -- (2,3) toggle
- cf $
- every 3 (0.125 <~) $ -- (1)
- s "[[psr*4 psr*2] ! ! psr*8]/4"
- # gain 0.6
- -- @b2perc
- let b = brak . iter 4 -- (1)
- -- b = cf . brak
- in d'perc $ b $ s "uxay*4"
- # n "1 0 1 2"
- # gain 0.8
- # shape "0.4 0.3 0.6"
- # speed "[0.7 1 1.2]/2"
- d'warb silence
- -- ~b2drum w/o peri
- -- @b2trump
- d'tr $ cf $ whenmod 5 4 rev $ s "[~ trump ! !] ~"
- # n (slow 3.2 $ run 4)
- # gain 0.8
- # vowel (slow 3.2 "a e o")
- # shape 0.6
- -- # speed (scale 0.5 1.5 $ slow 4 sine1) -- (1)
- -- ~b2drum w/ peri
- -- ~b2perc w/ b=brak . iter 4
- d'bass $ slow 8 $
- s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
- # n (slow 2.8 "0 1 2")
- # vowel "i"
- # speed 0.8
- d'tr silence
- -- @b2bass
- d'bass $ slow 8 $
- s "[jvbass ~] [jvbass [~ ~ ~ ~ jvbass]] [~ [~ ~ ~ ~ jvbass]] [~ jvbass !]"
- # n (slow 2.8 "0 1 2")
- # vowel "i"
- # speed 0.8
- # shape 0.3 -- (1) increase 0->0.3
- -- # shape (scale 0.25 0.75 $ saw1) -- (2) replaces (1)
- d'arpy $ cf $ s "arpy*8"
- # n "2 1 3 1"
- # gain 0.7
- msil [d'perc, d'bass]
- -- ~b2drum w/o peri
- -- @b2arpy
- d'arpy $ cf $ iter 9 $ s "arpy*8"
- # n "2 1 3 1"
- # gain 0.7
- -- ~b2perc @ (1)
- -- ~b2drum w/ peri
- msil [d'drum, d'perc]
- {-
- @b3
- Anny FM: Battery 3
- anny.audio
- -}
- bpm 125
- -- @b3arpy
- d'arpy $ cf $
- whenmod 7 4 (# vowel "a") $ -- (1) remove
- iter 9 $ s "arpy*8"
- # n "2 1 3 1"
- # gain 0.7
- -- ~b1perc3
- d'perc $ cf $
- slow 2 . spread slow [2,4,2,3] $
- jux (0.25 <~) $
- slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
- # n (density 3 $ run 2)
- d'drum $ cf $ sound "[tok*2 [rm tok]] [psr:1 tok*2]"
- -- @b3bass
- d'bass $ cf $
- -- spread slow [2,(7/4)] $ -- (2)
- -- whenmod 7 6 (density 1.5) $ -- (1)
- -- iter 4 $ -- (3)
- s "bass*4"
- # n "0 1"
- # begin 0.4
- # speed 1.2
- # shape 0.2
- -- ~b3bass @ (1)
- d'drum $ cf $ sound "[tok*2 [rm tok]] [psr:1 tok*2]"
- # n (slow 3 $ run 4)
- -- ~b3bass @ (2)
- -- ~b3bass @ (3)
- -- ~b1hand
- d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
- # speed 0.7
- # shape (scale 0 0.5 $ slow (10/4) sine1)
- # pan (scale 0.25 0.75 $ slow (8/3) sine1)
- -- ~b1tac
- d'tac $ cf . whenmod 7 4 (density 1.5) $
- s "[~ tacscan] ! ~ ~"
- # gain 0.8
- # vowel (slow 3 "e u")
- -- ~b3arpy @ (1)
- msil [d'bass, d'hand]
- -- @b3drum1
- d'drum $ cf $
- overlay (slow 2 $ s "peri [~ ~ ~ peri] [~ peri peri ~] ~") $
- sound "[tok*2 [rm tok]] [psr:1 tok*2]"
- # n (slow 3 $ run 4)
- d'tac silence
- -- @b3drum2
- d'drum $ cf $
- overlay (slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~") $
- sound "[tok*2 [rm tok]] [psr:1 tok*2]"
- # n (slow 3 $ run 4)
- -- ~b1hand
- -- ~b1perc3 @ (1)
- -- ~b3bass
- -- ~b1tac
- -- @b3bassloud
- d'bass $ cf $
- spread slow [2,(7/4)] $
- whenmod 7 6 (density 1.5) $
- iter 4 $
- s "{bass*4, wobble*3}"
- # n "0 1"
- # begin 0.4
- # speed 1.2
- # shape 0.2
- msil [d'perc, d'tac]
- -- @b3drumfull
- d'drum $ cf $
- -- every 3 rev $ -- (4) and (5) remove
- -- every' 8 8 rev $ -- (3)
- overlay (slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~") $ -- (5) remove
- -- whenmod 5 3 (density 2) $ -- (1)
- -- iter 2 $ -- (2)
- sound "[tok*2 [rm tok]] [psr:1 tok*2]"
- # n (slow 3 $ run 4)
- msil [d'bass, d'arpy]
- -- ~b3drumfull @ (5)
- d'hand silence
- -- ~b2perc1
- d'perc $ cf $
- slow 2 . spread slow [2,4,2,3] $
- jux (0.25 <~) $
- slow 2 $ s "uxay [~ uxay] [psr uxay] ~"
- # n (density 3 $ run 2)
- -- ~b3drum2
- d'drum $ cf $
- overlay (slow 2 $ s "peri*2 [~ ~ ~ peri] [~ peri peri ~] ~") $
- sound "[tok*2 [rm tok]] [psr:1 tok*2]"
- # n (slow 3 $ run 4)
- -- ~b2perc @ (1)
- -- ~b2bass @ (2)
- -- ~b1tac
- -- ~b1bass1 [on channel d'bass2]
- -- ~b3arpy @ (1)
- -- ~b1warbler
- -- ~b1hand
- msil [d'perc, d'bass, d'tac, d'bass2, d'hand]
- d'drum silence
- d'arpy silence
- hush
|