Archived
76 lines
1.2 KiB
Plaintext
76 lines
1.2 KiB
Plaintext
|
-- 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
|