Archived
wip ditty for renick's mix
This commit is contained in:
+302
@@ -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)
|
||||
Reference in New Issue
Block a user