diff --git a/haddeo.tidal b/haddeo.tidal index 1834873..e533ea4 100644 --- a/haddeo.tidal +++ b/haddeo.tidal @@ -26,11 +26,6 @@ d2 $ withmod 11 5 0.5 1 (density 2) $ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit" -d2 $ - whenmod 3 2 (density 2) $ - withmod 11 5 0.5 1 (density 2) $ - n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit" - d2 $ every' 16 8 (const $ s "kit:3") $ whenmod 3 2 (density 2) $ @@ -41,10 +36,18 @@ d2 $ d3 $ slow 16 . striate 256 $ s "icarus" +d3 $ superimpose (8 ~>) $ + slow 16 . striate 256 $ s "icarus" + d3 $ every' 2 2 (within (0, 0.75) (iter 16)) $ slow 16 . striate 256 $ s "icarus" +d3 $ + superimpose (8 ~>) $ + every' 2 2 (within (0, 0.75) (iter 16)) $ + slow 16 . striate 256 $ s "icarus" + {- d3 $ slow 8 $ smash 64 [0.5,0.75] $ @@ -79,15 +82,6 @@ d4 $ mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble" d4 $ whenmod 5 3 rev $ mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble" -d4 $ - superimpose ( - iter 4 . - (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) . - (# nudge "0") - ) $ - whenmod 5 3 rev $ - mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble" - d4 $ every' 2 2 (within (0, 0.5) (const silence)) $ superimpose ( @@ -129,5 +123,101 @@ d4 $ whenmod 5 3 rev $ mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble" -d4 silence +-- hahaha, holy fuck + +d4 $ whenmod 4 2 (const silence) $ + slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble" + +d4 $ whenmod 4 2 (const silence) $ + slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble" + # vowel "e a" + +d4 $ whenmod 4 2 (const silence) $ + density 2 $ (# cut "4") $ + slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble" + # vowel "e a" + +d4 $ + superimpose ((4 ~>) . iter 4) $ + whenmod 4 2 (const silence) $ + density 2 $ (# cut "4") $ + slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble" + # vowel "e a" + +d4 $ + superimpose (density 2 . (4 ~>) . iter 4) $ + whenmod 4 2 (const silence) $ + density 2 $ (# cut "4") $ + slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble" + # vowel "e a" + +d5 $ slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble" + +d1 silence + +{-??? +d1 $ stack [ + n "[1, 0*2 [~! 0 ~] [~ 0 ~!] ~]/4" # s "drum", + n "[~ 1]/2" # s "sn" + ] +-} + +d1 $ stack [ + n "[1, 0*2 [~ 0] ! ~]/4" # s "drum", + n "[~ 1]/2" # s "sn" + ] + +d1 $ stack [ + n "[1, 0*2 [~ 0] ! ~]/4" # s "drum", + 4 ~> n "[~ 1 [~ 1/2 ~!] 1]/4" # s "sn" + ] + +d1 $ stack [ + n "[1, 0*2 [~ 0] ! ~]/4" # s "drum", + 8 ~> n "[~ [1 ~ ~ 1/4] [~ 1/2 ~!] 1]/4" # s "sn" + ] + +-- heh +--bpm 80 + +d4 $ + (2 ~>) $ + superimpose (density 2 . (4 ~>) . iter 4) $ + whenmod 4 2 (const silence) $ + density 2 $ (# cut "4") $ + slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble" + # vowel "e a" + +d5 $ + superimpose ( + iter 4 . + (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) . + (# nudge "0") + ) $ + whenmod 5 3 rev $ + slow 16 $ striate 256 $ n "[0 1]/2" # s "nimble" + +d4 $ + (2 ~>) $ + superimpose (density 2 . (4 ~>) . iter 4) $ + whenmod 4 2 (const silence) $ + density 2 $ (# cut "4") $ + mt 16 1 $ striate 16 $ n "[0 1]/2" # s "nimble" + # vowel "e a" + +d5 $ + superimpose ( + iter 4 . + (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) . + (# nudge "0") + ) $ + whenmod 5 3 rev $ + mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble" + +d1 $ mt 16 16 $ stack [ + n "[1, 0*2 [~ 0] ! ~]/4" # s "drum", + 4 ~> n "[~ 1 [~ 1/2 ~!] 1]/4" # s "sn" + ] + + hush diff --git a/samples/sn/CYCdh_VinylK2-Snr02.wav b/samples/sn/CYCdh_VinylK2-Snr02.wav new file mode 100755 index 0000000..17e0677 Binary files /dev/null and b/samples/sn/CYCdh_VinylK2-Snr02.wav differ diff --git a/samples/sn/CYCdh_VinylK3-Snr02.wav b/samples/sn/CYCdh_VinylK3-Snr02.wav new file mode 100755 index 0000000..009445f Binary files /dev/null and b/samples/sn/CYCdh_VinylK3-Snr02.wav differ