wip ditty for renick's mix

.gitignore

@@ -0,0 +1 @@
+.DS_Store

for-mix.tidal

@@ -0,0 +1,302 @@
+cps (151/60)
+
+d1 $ sound "[k {k, sn}]/2"
+d1 $ (overlay $ (0.5 ~>) $ sound "[hhc hhc]/2") $ sound "[k {k, sn}]/2"
+
+d1 silence
+d2 silence
+
+d2 $ (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| speed ((+1).(/2) <$> density 3.1 saw1)
+
+d2 $ (within (0, 0.125) $ density 2 . chop 4) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| speed ((+1).(/2) <$> density 3.1 saw1)
+
+d1 $ (overlay $ (0.5 ~>) $ sound "[hhc hho]/2") $ sound "[k {k, sn}]/2"
+
+d2 silence
+
+d1 $ (overlay $ sound "[[~ hhc ~ hhc] [~ hhp]]/2") $ sound "[k {k, sn}]/2"
+
+d2 $ (within (0, 0.125) $ density 2 . chop 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| speed ((+1).(/2) <$> density 3.1 saw1)
+
+d2 $ (within (0, 0.125) $ density 2 . chop 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| speed ((+1).(/2) <$> density 3.1 saw1)
+
+d3 $ whenmod 16 15 (density 3) $ smash 16 [0.5, 0.25] $ sound "hhp hho"
+  |+| gain "0.7"
+  |+| vowel "a"
+
+d3 $ whenmod 16 15 (density 3) $ smash 16 [0.25, 0.5] $ sound "hhp hho"
+  |+| gain "0.7"
+  |+| vowel "a"
+
+d2 $ (within (0, 0.125) $ density 2 . chop 4) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| speed ((+1).(/2) <$> density 3.1 saw1)
+  |+| shape "0.3"
+
+d2 $ (within (0, 0.125) $ density 2 . chop 4) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| speed ((+1).(/2) <$> density 3.1 saw1)
+  |+| shape "0.3"
+  |+| vowel "[u i o]/2"
+
+
+d2 $ --(within (0, 0.125) $ density 2 . chop 4) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| speed ((+1).(/2) <$> density 3.1 saw1)
+  |+| shape "0.3"
+  |+| vowel "[u i o]/2"
+
+d2 $ every 4 (stut 4 0.8 0.5) $
+  (within (0, 0.125) $ density 2 . gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| speed ((+1).(/2) <$> density 3.1 saw1)
+  |+| shape "0.3"
+  |+| vowel "[u i o]/2"
+
+d2 silence
+
+d3 $ whenmod 16 15 (density 3)
+  $ smash 16 [0.25, 0.5]
+  $ sound "hhp hho"
+  |+| gain "0.7"
+  |+| vowel "a"
+
+cps (100/60)
+cps (150/60)
+
+d1 $ (overlay $ sound "[[~ hhc ~ hho] [~ hhp]]/2") $
+  sound "[[k ~ ~ k] {k*2, sn}]/2"
+
+d3 $ whenmod 16 15 (density 3)
+  $ smash 16 [0.25, 0.5]
+  $ sound "hhp hho"
+  |+| gain "0.7"
+  |+| vowel "a"
+
+d3 $ whenmod 16 15 (density 3)
+  $ smash 16 [0.5, 0.25]
+  $ sound "hhp hho"
+  |+| gain "0.7"
+  |+| vowel "a"
+
+d1 $ (overlay $ sound "[[~ hhc ~ hho] [~ hhp]]/2") $
+  sound "[[k ~ ~ k] {k*2, sn}]/2"
+
+d2 $
+--  (within (0, 0.5) $ gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+
+d2 silence
+
+d4 $
+  whenmod 5 3 rev $
+  smash 32 [4,2,0.5] $ sound "[eg*3]/4"
+  |+| vowel "e u"
+
+hush
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+--------- above sux
+
+cps (151/60)
+
+d1 $ sound "[k {k, sn}]/2"
+
+d1 $ (overlay $ (0.5 ~>) $ sound "[hhc hhc]/2") $ sound "[k {k, sn}]/2"
+d1 $ (overlay $ (0.5 ~>) $ sound "[hhc hho]/2") $ sound "[k {k, sn}]/2"
+
+d3 $ whenmod 16 15 (density 3) $ smash 16 [0.25, 0.5] $ sound "hhp hho"
+  |+| gain "0.7"
+  |+| vowel "a"
+
+d2 $ sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5"
+
+d2 $
+  (within (0, 0.5) $ gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+
+d2 $
+  whenmod 2 1 (density 2) $
+  (within (0, 0.5) $ gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+
+-- oh shit dog
+d2 $
+  (within (0.5, 1.5) $ rev) $
+  (within (0, 0.5) $ gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+
+d2 $
+  (within (0.5, 1.5) $ rev) $
+  (within (0, 0.5) $ gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+
+d3 $
+  whenmod 16 15 (density 3) $
+  smash 16 [0.25, 0.5] $
+  sound "hhp hho"
+  |+| gain "0.6"
+  |+| vowel "a"
+
+cps (100/60)
+
+d1 $ --(overlay $ sound "[[~ hhc ~ hho] [~ hhp]]/2") $
+  sound "[[k ~ ~ k] {k*2, sn}]/2"
+
+d3 silence
+
+d1 $ (overlay $ sound "[[~ hhc ~ hho] [~ hhp]]/2") $
+  sound "[[k ~ ~ k] {k*2, sn}]/2"
+
+d2 $
+  (within (0.5, 1.5) $ rev) $
+  (within (0, 0.5) $ gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+
+d2 $
+  (within (0.5, 1.5) $ rev) $
+  (within (0, 0.5) $ gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| shape ((/3) <$> slow 16 saw1)
+  |+| vowel "[i o]*2"
+
+d3 $
+  whenmod 16 15 (density 3) $
+  smash 16 [0.25, 0.5] $
+  sound "hhp hho"
+  |+| gain "0.6"
+  |+| vowel "a"
+  |+| shape ((/2) <$> slow 8 saw1)
+
+d4 $
+  whenmod 5 3 rev $
+  smash 32 [4,2,0.5] $ sound "[eg*2]/4"
+  |+| gain "0.7"
+
+d1 $ stack [
+  sound "[[~ hhc ~ hho] [~ hhp]]/2",
+  whenmod 6 5 (density 2) $
+  sound "[[k ~ ~ k] {k*2, sn}]/2"
+]
+
+d4 $
+--  gap 4 $ -- fuck about with gap a bit to elongate shit
+  whenmod 5 3 rev $
+  smash 32 [4,2,0.5] $ sound "[eg*2]/4"
+  |+| gain "0.7"
+
+-- i apologise for my limited vocabulary
+
+d4 $
+  (every 2 $ stut 4 0.8 0.5) $
+  whenmod 5 3 rev $
+  smash 32 [4,2,0.5] $ sound "[eg*2]/4"
+  |+| gain "0.7"
+
+d1 $ (overlay $ sound "[[~ hhc ~ hho] [~ hhp]]/2") $
+  sound "[[k ~ ~ k] {k*2, sn}]/2"
+
+d1 $ sound "[[k ~ ~ k] {k*2, sn}]/2"
+d4 silence
+d2 silence
+d3 silence
+
+d4 $
+  density 2 $
+  (every 2 $ stut 4 0.8 0.5) $
+  whenmod 5 3 rev $
+  smash 32 [4,2,0.5] $
+  sound (samples "[eg*2]/4" (slow 4 $ run 5))
+  |+| gain "0.7"
+  |+| vowel "u"
+
+d1 $ stack [
+  whenmod 5 4 rev $
+  sound "[hhc hho]*2"
+  |+| gain "[0.8 1]/2",
+  whenmod 6 5 (density 2) $
+  sound "[[k ~ ~ k] {k*2, sn}]/2"
+]
+
+d2 $
+  (within (0.5, 1.5) $ rev) $
+  (within (0, 0.5) $ gap 16) $
+  (sound $ samples "[[~ wb ~ ~] wb]/2" "[0 4 1 3 2]/5")
+  |+| shape ((/3) <$> slow 16 saw1)
+  |+| vowel "[i o]*2"
+
+d3 silence
+
+d1 $ sound "cy/4"
+
+d1 $ (overlay $ sound "cy/4") $ sound "k"
+
+d3 $
+  whenmod 16 15 (density 3) $
+  smash 16 [0.25, 0.5] $
+--  smash 16 [0.5, 0.25] $
+  sound "hhp hho"
+  |+| gain "0.6"
+  |+| vowel "a"
+  |+| shape ((/2) <$> slow 8 saw1)
+
+d1 $ stack [
+  sound "cy/4",
+  sound "[[k ~ ~ k] {k*2, sn}]/2"
+  ]
+
+d4 silence
+
+cps (133/60)
+cps (155/60)
+
+d1 $
+  (overlay $ (1 ~>) $ sound "cy/8") $
+--  sound "[k {k, sn}]/2"
+  sound "[k [sn k] [~ k] sn]/4"
+
+d2 $
+  whenmod 16 15 (density 3) $
+  smash 16 [0.25, 0.5] $
+--  smash 16 [0.5, 0.25] $
+  sound "hhp hho"
+  |+| gain "0.6"
+  |+| vowel (slow 3.1 "a u i")
+  |+| shape ((/2) <$> slow 7.5 saw1)
+
+
+d2 $ 
+
+hush
+
+-- thanks for sticking around charlie ya ledge
+-- 
+  |+| shape ((/2) <$> slow 7.5 saw1)

for-mix2.tidal

@@ -0,0 +1,75 @@
+-- original ravey
+
+cps (155/60)
+
+d1 $ stack [
+  (1 ~>) $ sound "cy/8",
+  s "[k {k, sn}]/2"
+  ]
+
+d2 $
+  whenmod 16 15 (density 3) $
+  smash 16 [0.25, 0.5] $
+  s "hh hh:2"
+  # gain "0.6"
+
+d3 $
+  (within (0, 0.5) $ gap 16) $  
+  (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
+  # shape ((/3) <$> slow 16 saw1)
+  # vowel "[i o]*2"
+
+d4 $
+  (0.5 <~) $
+  slowspread density [1,2,0.5,2] $
+  chop 32 $ s "eg:4/2"
+  # gain "0.8"
+  # speed ((+1).(/2) <$> slow 1.88 saw1)
+
+mapM_ ($ silence) [d3,d4]
+hush
+
+d1 $ stack [
+  (1 ~>) $ sound "cy/8",
+  whenmod 16 14 (trunc 0.4) $
+  sound "[k {k, sn}]/2"
+  ]
+
+-- slower bit
+
+cps (100/60)
+
+d1 $ stack [
+  (1 ~>) $ sound "cy/8",
+--  whenmod 16 14 (trunc 0.4) $
+  whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
+  s "[k sn]/2"
+  ]
+
+d2 $
+  iter 4 $
+  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"
+
+d3 $
+  every 7 (0.25 ~>) $
+  (within (0, 0.5) $ gap 16) $
+  every 2 (0.07 ~>) $
+  (s $ samples "[[~ wb ~ ~] wb]/2" (slow 5 $ irand 5))
+  # shape ((/3) <$> slow 16 saw1)
+  # vowel "[i o]*2"
+  # speed "0.8"
+
+d4 $
+--  stut 4 0.6 1.25 $
+  (0.5 <~) $
+  slowspread density [1,2,0.5,2] $
+  chop 32 $ s "eg/2"
+  # gain "0.8"
+  # speed ((+1).(/2) <$> slow 1.88 saw1)
+  # cut "1"
+
+hush

something.tidal

@@ -0,0 +1,106 @@
+cps (151/60)
+
+d1 $ stack [
+  sound "[[~ hh ~ ~] sn]/2"
+  ]
+
+d1 $ stack [
+  whenmod 9 7 (density 2) $
+  sound "[[~ hh ~ ~] sn]/2"
+  ]
+
+d1 $ stack [
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ hh ~ ~] sn]/2"
+  ]
+
+d1 $ stack [
+  whenmod 5 2 (rev . chop 4) $
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ hh ~ ~] sn]/2"
+  ]
+
+d1 $ stack [
+  whenmod 6 3 (chop 8) $
+  whenmod 5 2 (rev . chop 4) $
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ hh ~ ~] sn]/2"
+  ]
+
+{-
+d1 $ stack [
+  within (0, 0.5) (slow (4%3)) $
+  whenmod 6 3 (chop 8) $
+  whenmod 5 2 (rev . chop 4) $
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ hh ~ ~] sn]/2"
+  ]
+-}
+
+d1 $ stack [
+  whenmod 6 3 (chop 8) $
+  whenmod 5 2 (rev . chop 4) $
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ gnome ~ ~] gnome]/2"
+--  sound "[[~ hh ~ ~] sn]/2"
+  |+| speed ((+0.3).(/2) <$> density 1.5 saw1)
+--  |+| speed ((+0.4).(/1.5) <$> density 2.1 saw1)
+  |+| cut "1"
+  ]
+
+d2 $ stack [
+  sound "[[k sn ~ k] [k sn]]/2",
+  sound "hh*4"
+  |+| vowel "e o"
+  ]
+
+d2 $ smash 32 [2, 4] $ sound "[[k sn ~ k] [k sn]]/2"
+d2 $ smash 16 [2, 4] $ sound "[[k sn ~ k] [k sn]]/2"
+
+d3 $ stack [
+  sound "[[k sn ~ k] [k sn]]/2",
+  sound "hh*4"
+  |+| vowel "e o"
+  ]
+
+hush
+
+--
+
+d1 $ stack [
+  sound "[[k ~ ~ k] ~]/2",
+  whenmod 9 7 (density 2) $
+  sound "[[~ wt ~ ~] sn]/2"
+  ]
+
+d1 $ stack [
+  sound "[[k ~ ~ k] ~]/2",
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ wt ~ ~] sn]/2"
+  ]
+
+d1 $ stack [
+  sound "[[k ~ ~ k] ~]/2",
+  whenmod 5 2 (rev . chop 4) $
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ wt ~ ~] sn]/2"
+  ]
+
+d1 $ stack [
+  sound "[[k ~ ~ k] k]/2",
+  whenmod 5 2 (rev . chop 4) $
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ hh ~ ~] sn]/2"
+  ]
+
+d1 $ sound "[k {k, sn}]/2"
+d1 $ (every 2 $ overlay $ sound "[~ wt ~ wt]") $ sound "[k {k, sn}]/2"
+
+d2 $ whenmod 6 3 (chop 8) $
+  whenmod 5 2 (rev . chop 4) $
+  whenmod 9 4 (density 2.5) $
+  sound "[[~ gnome ~ ~] gnome]/2"
+  |+| speed ((+0.3).(/2) <$> density 1.5 saw1)
+  |+| cut "1"
+
+hush