123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175 |
- {-
- Anny: Juliese
- 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)
- every' n o f = when ((== (o-1)) . (`mod` n)) f
- msil = mapM_ ($ silence)
- d'drum = d1
- d'perc = d2
- d'bass = d3
- d'eg = d4
- d'gt = d5
- d'udu = d6
- d'pc = d7
- d'pcl = d8
- d'wbass = d9
- bpm 99
- hush
- -- @jdrum
- d'drum $ -- overlay ((1 ~>) $ s "cy/8") $ -- (3), (4) remove
- -- overlay ((0.5 ~>) $ s "sn/2") $ -- (2)
- -- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ -- (1)
- -- every' 12 2 (density 3) $ -- (5)
- s "k"
- -- @jbass
- d'bass $
- -- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4)
- -- whenmod 4 2 (density 3) $ -- (3)
- -- whenmod 3 2 (slow 2) $ -- (2)
- sound "[[vb vb:1] ~]/2"
- # end (slow 1.4 "0.2 0.4")
- # vowel "e o"
- -- # speed (slow 2.5 "1 -1") -- (1)
- -- jdrum @ 1
- -- @jperc
- d'perc $
- -- iter 4 $ -- (4)
- -- (# pan (density 16 "0.25 0.75")) $ -- (3)
- -- whenmod 16 15 (density 3) $ -- (1)
- smash 16 [0.25, 0.5] $
- -- every 3 (append $ sound "hh:1 hh") $ -- (2)
- sound "hh hh:2"
- # gain 0.6
- -- jbass @ 1
- -- jperc @ 1
- -- jdrum @ 2
- -- jperc @ 2
- -- jdrum @ 3
- -- jbass @ 2
- -- jperc @ 3
- -- jdrum @ 4
- -- jbass @ 3
- -- jperc @ 4
- -- @judu
- d'udu $
- -- (every' 5 3 $ brak) $ -- (3)
- -- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1)
- -- (whenmod 7 5 $ trunc (5/6)) $ -- (2)
- slow 4 . chop 128 $
- sound (samples "udu" (slow 4 $ irand 4))
- # gain 0.8
- # cut 6
- -- @jwbass
- d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5)
- -- every' 4 4 (0.32 ~>) $ -- (2)
- chop 16 $
- sound "[wb wb:1 ~ ~]/4"
- -- sound "[wb [wb:1 wb:2] ~ ~]/4" -- (1)
- -- sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" -- (2)
- -- sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" -- (4)
- # gain 0.9
- -- # speed "[1 1 2]/3" -- (3)
- -- jwbass @ 1
- -- jwbass @ 2
- -- @jeg
- d'eg $ -- (0.18 <~) $ -- (4)
- -- every 2 (const silence) $ -- (4), (5) remove
- -- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2)
- density 0.25 $ -- (3) 0.245
- -- slowspread density [1, 2, 0.5, 2] $ -- (1)
- gap 128 $ s "eg*2"
- # cut 4
- # gain 0.8
- -- jeg @ 1
- -- jeg @ 2
- -- jwbass @ 3
- -- jeg @ 3
- msil [d'perc, d'bass]
- -- jeg @ 4
- -- judu @ 1
- -- jdrum @ 5
- -- @jpc
- d'pc $
- -- whenmod 7 5 (density 1.25) $ -- (3)
- -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
- -- slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ -- (1)
- slow 16 $ gap 48 $ sound "pc:1"
- # gain 0.7
- # cut 7
- # speed "[1 0.7]"
- -- jpc @ 1
- -- judu @ 2
- -- jpc @ 2
- -- jwbass @ 4
- -- jpc @ 3
- -- @jgt
- d'gt $ -- density 0.98 $ -- (2)
- every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
- chop 128 $
- s "[gt [~ gt] ! ~]/2"
- # cut 5
- # gain 0.87
- -- # speed (scale 1 1.25 $ slow 1.95 sinewave1) -- (1)
- -- jgt @ 1
- -- jwbass @ 5
- -- jperc @ 4
- -- jbass @ 4
- -- judu @ 3
- -- jeg @ 5
- -- jgt @ 2
- msil [d'eg, d'wbass]
- -- @jdrum2
- d'drum $ stack [
- every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
- every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
- ]
- -- @jpcl
- d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1)
- slow 16 . gap 64 $ s "pclow"
- # gain 0.8
- -- # speed "1 1.5" -- (2)
- -- jpcl @ 1
- -- jpcl @ 2
- msil [d'bass, d'udu, d'pc]
- -- jpcl @ 0
- hush
|