123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302 |
- 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)
|