|
@@ -62,13 +62,6 @@ d1 $ stack [
|
|
|
(0.5 ~>) $ s "sn/2"
|
|
(0.5 ~>) $ s "sn/2"
|
|
|
]
|
|
]
|
|
|
|
|
|
|
|
-d7 $
|
|
|
|
|
- slowspread ($) [id, slow 2] $
|
|
|
|
|
- slow 16 $ gap 48 $ s "pc:1"
|
|
|
|
|
- # gain "0.9"
|
|
|
|
|
- # cut "7"
|
|
|
|
|
- # speed "[1 0.7]"
|
|
|
|
|
-
|
|
|
|
|
d2 $
|
|
d2 $
|
|
|
whenmod 16 15 (density 3) $
|
|
whenmod 16 15 (density 3) $
|
|
|
smash 16 [0.25, 0.5] $
|
|
smash 16 [0.25, 0.5] $
|
|
@@ -91,8 +84,6 @@ d1 $ stack [
|
|
|
(0.5 ~>) $ s "sn/2"
|
|
(0.5 ~>) $ s "sn/2"
|
|
|
]
|
|
]
|
|
|
|
|
|
|
|
-d7 silence
|
|
|
|
|
-
|
|
|
|
|
d2 $
|
|
d2 $
|
|
|
iter 4 $
|
|
iter 4 $
|
|
|
(# pan (density 16 "0.25 0.75")) $
|
|
(# pan (density 16 "0.25 0.75")) $
|
|
@@ -155,13 +146,6 @@ d1 $ stack [
|
|
|
|
|
|
|
|
mapM_ ($ silence) [d2,d3]
|
|
mapM_ ($ silence) [d2,d3]
|
|
|
|
|
|
|
|
-d1 $ stack [
|
|
|
|
|
- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
|
|
|
- every' 12 2 (density 3) $
|
|
|
|
|
- s "k",
|
|
|
|
|
- (0.5 ~>) $ s "sn/2"
|
|
|
|
|
- ]
|
|
|
|
|
-
|
|
|
|
|
d4 $
|
|
d4 $
|
|
|
(0.18 <~) $ every 2 (const silence) $
|
|
(0.18 <~) $ every 2 (const silence) $
|
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
@@ -171,6 +155,26 @@ d4 $
|
|
|
# gain "0.8"
|
|
# gain "0.8"
|
|
|
# cut "4"
|
|
# cut "4"
|
|
|
|
|
|
|
|
|
|
+d1 $ stack [
|
|
|
|
|
+ every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
|
|
|
+ every' 12 2 (density 3) $
|
|
|
|
|
+ s "k",
|
|
|
|
|
+ (0.5 ~>) $ s "sn/2"
|
|
|
|
|
+ ]
|
|
|
|
|
+
|
|
|
|
|
+d7 $
|
|
|
|
|
+ slow 16 $ gap 48 $ s "pc:1"
|
|
|
|
|
+ # gain "0.7"
|
|
|
|
|
+ # cut "7"
|
|
|
|
|
+ # speed "[1 0.7]"
|
|
|
|
|
+
|
|
|
|
|
+d7 $
|
|
|
|
|
+ slowspread ($) [id, slow 2] $
|
|
|
|
|
+ slow 16 $ gap 48 $ s "pc:1"
|
|
|
|
|
+ # gain "0.7"
|
|
|
|
|
+ # cut "7"
|
|
|
|
|
+ # speed "[1 0.7]"
|
|
|
|
|
+
|
|
|
d6 $
|
|
d6 $
|
|
|
(every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
|
|
(every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
|
|
|
(whenmod 7 5 $ trunc (5%6)) $
|
|
(whenmod 7 5 $ trunc (5%6)) $
|
|
@@ -182,7 +186,7 @@ d6 $
|
|
|
d7 $
|
|
d7 $
|
|
|
slowspread ($) [id, slow 2] $
|
|
slowspread ($) [id, slow 2] $
|
|
|
slow 16 $ gap 48 $ s "[pc pc:1]"
|
|
slow 16 $ gap 48 $ s "[pc pc:1]"
|
|
|
- # gain "0.8"
|
|
|
|
|
|
|
+ # gain "0.7"
|
|
|
# cut "7"
|
|
# cut "7"
|
|
|
# speed "[1 0.7]"
|
|
# speed "[1 0.7]"
|
|
|
|
|
|
|
@@ -199,16 +203,7 @@ d7 $
|
|
|
slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
|
slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
|
|
slowspread ($) [id, slow 2] $
|
|
slowspread ($) [id, slow 2] $
|
|
|
slow 16 $ gap 48 $ s "[pc pc:1]"
|
|
slow 16 $ gap 48 $ s "[pc pc:1]"
|
|
|
- # gain "0.8"
|
|
|
|
|
- # cut "7"
|
|
|
|
|
- # speed "[1 0.7]"
|
|
|
|
|
-
|
|
|
|
|
-d7 $
|
|
|
|
|
- whenmod 7 5 (density 1.25) $
|
|
|
|
|
- slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
|
|
|
|
- slowspread ($) [id, slow 2] $
|
|
|
|
|
- slow 16 $ gap 48 $ s "[pc pc:1]"
|
|
|
|
|
- # gain "0.8"
|
|
|
|
|
|
|
+ # gain "0.7"
|
|
|
# cut "7"
|
|
# cut "7"
|
|
|
# speed "[1 0.7]"
|
|
# speed "[1 0.7]"
|
|
|
|
|
|
|
@@ -223,6 +218,15 @@ d5 $
|
|
|
# cut "5"
|
|
# cut "5"
|
|
|
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
|
|
# speed ((+1).(/4) <$> slow 1.95 sinewave1)
|
|
|
|
|
|
|
|
|
|
+d7 $
|
|
|
|
|
+ whenmod 7 5 (density 1.25) $
|
|
|
|
|
+ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
|
|
|
|
+ slowspread ($) [id, slow 2] $
|
|
|
|
|
+ slow 16 $ gap 48 $ s "[pc pc:1]"
|
|
|
|
|
+ # gain "0.7"
|
|
|
|
|
+ # cut "7"
|
|
|
|
|
+ # speed "[1 0.7]"
|
|
|
|
|
+
|
|
|
d5 $
|
|
d5 $
|
|
|
density 0.98 $
|
|
density 0.98 $
|
|
|
chop 128 $ s "[gt [~ gt] ! ~]/2"
|
|
chop 128 $ s "[gt [~ gt] ! ~]/2"
|
|
@@ -292,7 +296,7 @@ d7 $
|
|
|
slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
|
slowspread ($) [rev, id, brak, (0.25 ~>), id] $
|
|
|
slowspread ($) [id, slow 2] $
|
|
slowspread ($) [id, slow 2] $
|
|
|
slow 16 $ gap 48 $ s "[pc pc:1]"
|
|
slow 16 $ gap 48 $ s "[pc pc:1]"
|
|
|
- # gain "0.8"
|
|
|
|
|
|
|
+ # gain "0.7"
|
|
|
# cut "7"
|
|
# cut "7"
|
|
|
# speed "[1 0.7]"
|
|
# speed "[1 0.7]"
|
|
|
|
|
|
Aneurin Barker Snook