diff --git a/for-mix2.tidal b/for-mix2.tidal index ee8d67a..a4092a5 100644 --- a/for-mix2.tidal +++ b/for-mix2.tidal @@ -1,15 +1,57 @@ -cps (100/60) +cps (99/60) let every' n o f = when ((== (o-1)) . (`mod` n)) f hush +d1 $ s "k" + +d3 $ + s "[[vb vb:1] ~]/2" + # end (slow 1.4 "0.2 0.4") + # vowel "e o" + d2 $ --- iter 4 $ --- (# pan (density 16 "0.25 0.75")) $ - every' 16 16 (density 3) $ --- smash 16 [0.25, 0.5] $ --- every 3 (append $ s "hh:1 hh") $ + smash 16 [0.25, 0.5] $ + s "hh hh:2" + # gain "0.6" + +d1 $ every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k" + +d2 $ + whenmod 16 15 (density 3) $ + smash 16 [0.25, 0.5] $ + s "hh hh:2" + # gain "0.6" + +d1 $ stack [ + every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k", + (0.5 ~>) $ s "sn/2" + ] + +d3 $ + s "[[vb vb:1] ~]/2" + # end (slow 1.4 "0.2 0.4") + # speed (slow 2.5 "1 -1") + # vowel "e o" + +d1 $ stack [ + (1 ~>) $ sound "cy/8", + every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k", + (0.5 ~>) $ s "sn/2" + ] + +d3 $ + whenmod 3 2 (slow 2) $ + s "[[vb vb:1] ~]/2" + # end (slow 1.4 "0.2 0.4") + # speed (slow 2.5 "1 -1") + # vowel "e o" + +d2 $ + whenmod 16 15 (density 3) $ + smash 16 [0.25, 0.5] $ + every 3 (append $ s "hh:1 hh") $ s "hh hh:2" # gain "0.6" @@ -21,6 +63,7 @@ d1 $ stack [ (0.5 ~>) $ s "sn/2" ] +-- these two quickly d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ @@ -30,14 +73,6 @@ d2 $ s "hh hh:2" # gain "0.6" -d3 $ - whenmod 3 2 (slow 2) $ - (whenmod 4 2 $ density 3) $ - s "[[vb vb:1] ~]/2" - # end (slow 1.4 "0.2 0.4") - # speed (slow 2.5 "1 -1") - # vowel "e o" -- woot - d1 $ stack [ every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ every' 12 2 (density 3) $ @@ -45,7 +80,42 @@ d1 $ stack [ (0.5 ~>) $ s "sn/2" ] +d3 $ + whenmod 3 2 (slow 2) $ + (whenmod 4 2 $ density 3) $ + s "[[vb vb:1] ~]/2" + # end (slow 1.4 "0.2 0.4") + # speed (slow 2.5 "1 -1") + # vowel "e o" + d4 $ + density 0.25 $ + gap 128 $ + s "eg*2" + # gain "0.7" -- fade up to 0.8 + # cut "4" + +d4 $ + (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ + density 0.25 $ + gap 128 $ + s "eg*2" + # gain "0.7" + # cut "4" + +d4 $ + (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ + density 0.25 $ + slowspread density [1, 2, 0.5, 2] $ + gap 128 $ + s "eg*2" + # gain "0.7" + # cut "4" + +d2 silence + +d4 $ + (0.18 <~) $ every 2 (const silence) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ density 0.245 $ slowspread density [1, 2, 0.5, 2] $ @@ -54,29 +124,29 @@ d4 $ # gain "0.8" # cut "4" -d2 silence - d1 $ 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" -] + ] -d4 $ - (0.18 <~) $ - every 2 (const silence) $ - (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ - density 0.245 $ - slowspread density [1, 2, 0.5, 2] $ - gap 128 $ - s "eg*2" - # gain "0.8" +d5 $ + chop 128 $ + s "[gt [~ gt] ! ~]/2" + # gain "0.7" + # cut "4" + +d5 $ + density 0.98 $ + chop 128 $ + s "[gt [~ gt] ! ~]/2" + # gain "0.7" # cut "4" d5 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $ - density 0.98 $ -- snap out of this into density 1, or vice versa? + density 0.98 $ chop 128 $ s "[gt [~ gt] ! ~]/2" # gain "0.7" @@ -90,11 +160,10 @@ d1 $ stack [ ] d4 silence -d5 silence -- fast! d1 $ stack [ - every' 8 8 (overlay $ (0.25 ~>) $ s "k*2") $ s "k", + every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k", (0.5 ~>) $ s "sn" ]