Archived
found a name for the song!
also cleaned up some rubbish comments, created a channel map and generated a megalet
This commit is contained in:
Aneurin Barker Snook
-302
@@ -1,302 +0,0 @@
|
|||||||
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)
|
|
||||||
-214
@@ -1,214 +0,0 @@
|
|||||||
{-
|
|
||||||
anny's wicked funky new song
|
|
||||||
totally not banging
|
|
||||||
just funky
|
|
||||||
woo woo
|
|
||||||
|
|
||||||
i shouldn't drink before i comment code
|
|
||||||
|
|
||||||
http://anny.audio
|
|
||||||
-}
|
|
||||||
|
|
||||||
cps (99/60)
|
|
||||||
let every' n o f = when ((== (o-1)) . (`mod` n)) f
|
|
||||||
|
|
||||||
{-
|
|
||||||
some defs cause i'm starting to lose track of all the copy pasta
|
|
||||||
and fuck up my function ordering and gains
|
|
||||||
|
|
||||||
n.b. cutgroup denotes channel e.g. cut "4" == d4
|
|
||||||
-}
|
|
||||||
|
|
||||||
-- bass template
|
|
||||||
let bassbass = s "[[vb vb:1] ~]/2"
|
|
||||||
# end (slow 1.4 "0.2 0.4")
|
|
||||||
# vowel "e o"
|
|
||||||
|
|
||||||
let bassbass' = bassbass # speed (slow 2.5 "1 -1")
|
|
||||||
|
|
||||||
-- lay more k over 4tf k
|
|
||||||
let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
|
|
||||||
|
|
||||||
-- final main drum loop, for reference
|
|
||||||
-- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
|
|
||||||
let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
|
|
||||||
|
|
||||||
-- basic hats
|
|
||||||
let hhb m = smash 16 [0.25, 0.5] $
|
|
||||||
(if m then (every 3 (append $ s "hh:1 hh")) else id) $
|
|
||||||
s "hh hh:2"
|
|
||||||
# gain "0.6"
|
|
||||||
|
|
||||||
-- udu
|
|
||||||
let ududu = slow 4 . chop 128 $
|
|
||||||
s (samples "udu" (slow 4 $ irand 4))
|
|
||||||
# gain "0.8"
|
|
||||||
# cut "6"
|
|
||||||
|
|
||||||
-- guitar (i think)
|
|
||||||
let eg g = gap 128 $ s "eg*2"
|
|
||||||
# gain g
|
|
||||||
# cut "4"
|
|
||||||
|
|
||||||
-- other guitar
|
|
||||||
let gt g = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
|
|
||||||
chop 128 $
|
|
||||||
s "[gt [~ gt] ! ~]/2"
|
|
||||||
# gain g
|
|
||||||
# cut "5"
|
|
||||||
|
|
||||||
let pcbeep = slow 16 $ gap 48 $ s "pc:1"
|
|
||||||
# gain "0.7"
|
|
||||||
# cut "7"
|
|
||||||
# speed "[1 0.7]"
|
|
||||||
|
|
||||||
{-
|
|
||||||
here goes i guess
|
|
||||||
-}
|
|
||||||
|
|
||||||
hush
|
|
||||||
|
|
||||||
d3 $ bassbass
|
|
||||||
d2 $ hhb False
|
|
||||||
d3 $ bassbass'
|
|
||||||
d1 $ s "k"
|
|
||||||
|
|
||||||
d1 $ morek $ s "k"
|
|
||||||
d2 $ whenmod 16 15 (density 3) $ hhb False
|
|
||||||
|
|
||||||
d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
|
||||||
d3 $ whenmod 3 2 (slow 2) $ bassbass'
|
|
||||||
d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
|
|
||||||
|
|
||||||
d1 $ overlay ((1 ~>) $ s "cy/8") $
|
|
||||||
overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
|
||||||
|
|
||||||
d2 $ whenmod 16 15 (density 3) $ hhb True
|
|
||||||
d2 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
|
|
||||||
|
|
||||||
d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
|
|
||||||
d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
|
||||||
|
|
||||||
d6 $ ududu
|
|
||||||
|
|
||||||
d9 $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
|
|
||||||
d9 $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
|
|
||||||
|
|
||||||
d4 $ density 0.25 $ eg "0.7"
|
|
||||||
|
|
||||||
d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
|
|
||||||
|
|
||||||
d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
||||||
density 0.25 $ eg "0.7"
|
|
||||||
|
|
||||||
d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
||||||
density 0.25 $
|
|
||||||
slowspread density [1, 2, 0.5, 2] $ eg "0.7"
|
|
||||||
|
|
||||||
d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
|
|
||||||
# speed "[1 1 2]/3"
|
|
||||||
|
|
||||||
d4 $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
||||||
density 0.245 $ -- !
|
|
||||||
slowspread density [1, 2, 0.5, 2] $ eg "0.7"
|
|
||||||
|
|
||||||
d1 $ overlay ((1 ~>) $ s "cy/8") $
|
|
||||||
overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
|
||||||
|
|
||||||
mapM_ ($ silence) [d2,d3]
|
|
||||||
|
|
||||||
-- fuck yeah. const rules
|
|
||||||
d4 $ (0.18 <~) $ every 2 (const silence) $
|
|
||||||
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
||||||
density 0.245 $
|
|
||||||
slowspread density [1, 2, 0.5, 2] $ eg "0.75"
|
|
||||||
|
|
||||||
d1 $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
|
||||||
d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
|
|
||||||
d1 $ overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
|
|
||||||
|
|
||||||
d7 $ pcbeep
|
|
||||||
d7 $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
|
|
||||||
|
|
||||||
d6 $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
|
|
||||||
(whenmod 7 5 $ trunc (5%6)) $ ududu
|
|
||||||
|
|
||||||
d7 $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
|
||||||
slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
|
|
||||||
|
|
||||||
d9 $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
|
|
||||||
# speed "[1 1 2]/3"
|
|
||||||
|
|
||||||
d7 $ whenmod 7 5 (density 1.25) $
|
|
||||||
slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
|
||||||
slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
|
|
||||||
|
|
||||||
d5 $ gt "0.75"
|
|
||||||
|
|
||||||
d5 $ gt "0.75"
|
|
||||||
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
|
|
||||||
|
|
||||||
-- OOOOOOHHHH MY FUCK
|
|
||||||
d9 $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
|
|
||||||
every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
|
|
||||||
# speed "[1 1 2]/3"
|
|
||||||
|
|
||||||
d2 $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
|
|
||||||
|
|
||||||
d3 $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
|
|
||||||
|
|
||||||
-- funkier bassline w slowspread lambda, thanks yaxu. thaxu
|
|
||||||
d3 $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
|
|
||||||
whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
|
|
||||||
|
|
||||||
d6 $ (every' 5 3 $ brak) $
|
|
||||||
(every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
|
|
||||||
(whenmod 7 5 $ trunc (5%6)) $ ududu
|
|
||||||
|
|
||||||
-- bye const
|
|
||||||
d4 $ (0.18 <~) $
|
|
||||||
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
||||||
density 0.245 $
|
|
||||||
slowspread density [1, 2, 0.5, 2] $ eg "0.7"
|
|
||||||
|
|
||||||
d5 $ density 0.98 $ gt "0.75"
|
|
||||||
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
|
|
||||||
|
|
||||||
mapM_ ($ silence) [d4,d9]
|
|
||||||
|
|
||||||
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"
|
|
||||||
]
|
|
||||||
|
|
||||||
d8 $ slow 16 . gap 64 $ s "pclow"
|
|
||||||
# gain "0.8"
|
|
||||||
|
|
||||||
d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
|
|
||||||
# gain "0.8"
|
|
||||||
|
|
||||||
d8 $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
|
|
||||||
# gain "0.8"
|
|
||||||
# speed "1 1.5"
|
|
||||||
|
|
||||||
mapM_ ($ silence) [d3,d6,d7]
|
|
||||||
|
|
||||||
d8 $ slow 16 . gap 64 $ s "pclow"
|
|
||||||
# gain "0.8"
|
|
||||||
|
|
||||||
mapM_ ($ silence) [d2,d5]
|
|
||||||
hush
|
|
||||||
|
|
||||||
{-
|
|
||||||
scratch area to keep stuff that's interesting but maybe doesn't fit in
|
|
||||||
-}
|
|
||||||
|
|
||||||
-- totally different drum line, feelwise. even though it's nearly the same
|
|
||||||
-- kinda don't like it but not gonna chuck it yet, got a nice hip hop bent
|
|
||||||
d1 $ overlay ((1 ~>) $ s "sn/2") $ morek $ s "k"
|
|
||||||
|
|
||||||
-- outro drum line, could be variabl...ized cause no way i can type this all out live
|
|
||||||
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"
|
|
||||||
]
|
|
||||||
@@ -0,0 +1,39 @@
|
|||||||
|
-- megalet for juliese.tidal
|
||||||
|
let every' n o f = when ((== (o-1)) . (`mod` n)) f
|
||||||
|
d'drum = d1
|
||||||
|
d'perc = d2
|
||||||
|
d'bass = d3
|
||||||
|
d'eg = d4
|
||||||
|
d'gt = d5
|
||||||
|
d'udu = d6
|
||||||
|
d'pc = d7
|
||||||
|
d'pcl = d8
|
||||||
|
d'wbass = d9
|
||||||
|
bassbass = s "[[vb vb:1] ~]/2"
|
||||||
|
# end (slow 1.4 "0.2 0.4")
|
||||||
|
# vowel "e o"
|
||||||
|
bassbass' = bassbass # speed (slow 2.5 "1 -1")
|
||||||
|
morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
|
||||||
|
drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
|
||||||
|
hhb m = smash 16 [0.25, 0.5] $
|
||||||
|
(if m then (every 3 (append $ s "hh:1 hh")) else id) $
|
||||||
|
s "hh hh:2"
|
||||||
|
# gain "0.6"
|
||||||
|
ududu = slow 4 . chop 128 $
|
||||||
|
s (samples "udu" (slow 4 $ irand 4))
|
||||||
|
# gain "0.8"
|
||||||
|
# cut "6"
|
||||||
|
eg = gap 128 $ s "eg*2"
|
||||||
|
# cut "4"
|
||||||
|
gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
|
||||||
|
chop 128 $
|
||||||
|
s "[gt [~ gt] ! ~]/2"
|
||||||
|
# cut "5"
|
||||||
|
pcbeep = slow 16 $ gap 48 $ s "pc:1"
|
||||||
|
# gain "0.7"
|
||||||
|
# cut "7"
|
||||||
|
# speed "[1 0.7]"
|
||||||
|
ju'drum2 = 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"
|
||||||
|
]
|
||||||
+208
@@ -0,0 +1,208 @@
|
|||||||
|
{-
|
||||||
|
anny: juliese
|
||||||
|
to be performed at leeds algorave, 29th april 2016
|
||||||
|
-}
|
||||||
|
|
||||||
|
cps (99/60)
|
||||||
|
|
||||||
|
-- alt every
|
||||||
|
let every' n o f = when ((== (o-1)) . (`mod` n)) f
|
||||||
|
|
||||||
|
-- channel maps
|
||||||
|
let d'drum = d1
|
||||||
|
d'perc = d2
|
||||||
|
d'bass = d3
|
||||||
|
d'eg = d4
|
||||||
|
d'gt = d5
|
||||||
|
d'udu = d6
|
||||||
|
d'pc = d7
|
||||||
|
d'pcl = d8
|
||||||
|
d'wbass = d9
|
||||||
|
|
||||||
|
-- bass template
|
||||||
|
let bassbass = s "[[vb vb:1] ~]/2"
|
||||||
|
# end (slow 1.4 "0.2 0.4")
|
||||||
|
# vowel "e o"
|
||||||
|
|
||||||
|
let bassbass' = bassbass # speed (slow 2.5 "1 -1")
|
||||||
|
|
||||||
|
-- lay more k over 4tf k
|
||||||
|
let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
|
||||||
|
|
||||||
|
-- final main drum loop, for reference
|
||||||
|
-- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
|
||||||
|
let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
|
||||||
|
|
||||||
|
-- basic hats
|
||||||
|
let hhb m = smash 16 [0.25, 0.5] $
|
||||||
|
(if m then (every 3 (append $ s "hh:1 hh")) else id) $
|
||||||
|
s "hh hh:2"
|
||||||
|
# gain "0.6"
|
||||||
|
|
||||||
|
-- udu
|
||||||
|
let ududu = slow 4 . chop 128 $
|
||||||
|
s (samples "udu" (slow 4 $ irand 4))
|
||||||
|
# gain "0.8"
|
||||||
|
# cut "6"
|
||||||
|
|
||||||
|
-- guitar (i think)
|
||||||
|
let eg = gap 128 $ s "eg*2"
|
||||||
|
# cut "4"
|
||||||
|
|
||||||
|
-- other guitar
|
||||||
|
let gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
|
||||||
|
chop 128 $
|
||||||
|
s "[gt [~ gt] ! ~]/2"
|
||||||
|
# cut "5"
|
||||||
|
|
||||||
|
let pcbeep = slow 16 $ gap 48 $ s "pc:1"
|
||||||
|
# gain "0.7"
|
||||||
|
# cut "7"
|
||||||
|
# speed "[1 0.7]"
|
||||||
|
|
||||||
|
{-
|
||||||
|
here goes i guess
|
||||||
|
-}
|
||||||
|
|
||||||
|
hush
|
||||||
|
|
||||||
|
d'bass $ bassbass
|
||||||
|
d'perc $ hhb False
|
||||||
|
d'bass $ bassbass'
|
||||||
|
d'drum $ s "k"
|
||||||
|
|
||||||
|
d'drum $ morek $ s "k"
|
||||||
|
d'perc $ whenmod 16 15 (density 3) $ hhb False
|
||||||
|
|
||||||
|
d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
||||||
|
d'bass $ whenmod 3 2 (slow 2) $ bassbass'
|
||||||
|
d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
|
||||||
|
|
||||||
|
d'drum $ overlay ((1 ~>) $ s "cy/8") $
|
||||||
|
overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
||||||
|
|
||||||
|
d'perc $ whenmod 16 15 (density 3) $ hhb True
|
||||||
|
d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
|
||||||
|
|
||||||
|
d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
|
||||||
|
d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
||||||
|
|
||||||
|
d'udu $ ududu
|
||||||
|
|
||||||
|
d'wbass $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
|
||||||
|
d'wbass $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
|
||||||
|
|
||||||
|
d'eg $ density 0.25 $ eg
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
|
||||||
|
|
||||||
|
d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
|
density 0.25 $ eg
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
|
density 0.25 $
|
||||||
|
slowspread density [1, 2, 0.5, 2] $ eg
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
|
||||||
|
# speed "[1 1 2]/3"
|
||||||
|
|
||||||
|
d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
|
density 0.245 $ -- !
|
||||||
|
slowspread density [1, 2, 0.5, 2] $ eg
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
d'drum $ overlay ((1 ~>) $ s "cy/8") $
|
||||||
|
overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
||||||
|
|
||||||
|
mapM_ ($ silence) [d'perc, d'bass]
|
||||||
|
|
||||||
|
-- fuck yeah. const rules
|
||||||
|
d'eg $ (0.18 <~) $ every 2 (const silence) $
|
||||||
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
|
density 0.245 $
|
||||||
|
slowspread density [1, 2, 0.5, 2] $ eg "0.75"
|
||||||
|
|
||||||
|
d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
|
||||||
|
d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
|
||||||
|
d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
|
||||||
|
|
||||||
|
d'pc $ pcbeep
|
||||||
|
d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
|
||||||
|
|
||||||
|
d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
|
||||||
|
(whenmod 7 5 $ trunc (5%6)) $ ududu
|
||||||
|
|
||||||
|
d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
||||||
|
slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
|
||||||
|
|
||||||
|
d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
|
||||||
|
# speed "[1 1 2]/3"
|
||||||
|
|
||||||
|
d'pc $ whenmod 7 5 (density 1.25) $
|
||||||
|
slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
||||||
|
slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
|
||||||
|
|
||||||
|
d'gt $ gt
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
d'gt $ gt
|
||||||
|
# gain "0.8"
|
||||||
|
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
|
||||||
|
|
||||||
|
-- OOOOOOHHHH MY FUCK
|
||||||
|
d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
|
||||||
|
every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
|
||||||
|
# speed "[1 1 2]/3"
|
||||||
|
|
||||||
|
d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
|
||||||
|
|
||||||
|
d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
|
||||||
|
|
||||||
|
-- funkier bassline w slowspread lambda, thanks yaxu. thaxu
|
||||||
|
d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
|
||||||
|
whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
|
||||||
|
|
||||||
|
d'udu $ (every' 5 3 $ brak) $
|
||||||
|
(every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
|
||||||
|
(whenmod 7 5 $ trunc (5%6)) $ ududu
|
||||||
|
|
||||||
|
-- bye const
|
||||||
|
d'eg $ (0.18 <~) $
|
||||||
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
|
density 0.245 $
|
||||||
|
slowspread density [1, 2, 0.5, 2] $ eg
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
d'gt $ density 0.98 $ gt
|
||||||
|
# gain "0.8"
|
||||||
|
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
|
||||||
|
|
||||||
|
mapM_ ($ silence) [d'eg, d'wbass]
|
||||||
|
|
||||||
|
let ju'drum2 = 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"
|
||||||
|
]
|
||||||
|
|
||||||
|
d'drum $ ju'drum2
|
||||||
|
|
||||||
|
d'pcl $ slow 16 . gap 64 $ s "pclow"
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
|
||||||
|
# gain "0.8"
|
||||||
|
# speed "1 1.5"
|
||||||
|
|
||||||
|
mapM_ ($ silence) [d'bass, d'udu, d'pc]
|
||||||
|
|
||||||
|
d'pcl $ slow 16 . gap 64 $ s "pclow"
|
||||||
|
# gain "0.8"
|
||||||
|
|
||||||
|
mapM_ ($ silence) [d'perc, d'gt]
|
||||||
|
hush
|
||||||
-36
@@ -1,36 +0,0 @@
|
|||||||
-- 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"
|
|
||||||
]
|
|
||||||
-106
@@ -1,106 +0,0 @@
|
|||||||
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
|
|
||||||
Reference in New Issue
Block a user