|
@@ -5,7 +5,7 @@ let every' n o f = when ((== (o-1)) . (`mod` n)) f
|
|
d1 $ stack [
|
|
d1 $ stack [
|
|
(1 ~>) $ sound "cy/8",
|
|
(1 ~>) $ sound "cy/8",
|
|
whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
- every' 12 2 (density 3) $
|
|
|
|
|
|
+-- every' 12 2 (density 3) $
|
|
s "k",
|
|
s "k",
|
|
(0.5 ~>) $ s "sn/2"
|
|
(0.5 ~>) $ s "sn/2"
|
|
]
|
|
]
|
|
@@ -28,13 +28,13 @@ d3 $
|
|
|
|
|
|
d1 $ stack [
|
|
d1 $ stack [
|
|
whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
- every' 12 2 (density 3) $
|
|
|
|
|
|
+-- every' 12 2 (density 3) $
|
|
s "k",
|
|
s "k",
|
|
(0.5 ~>) $ s "sn/2"
|
|
(0.5 ~>) $ s "sn/2"
|
|
]
|
|
]
|
|
|
|
|
|
d4 $
|
|
d4 $
|
|
- (0.18 <~) $
|
|
|
|
|
|
+ (1.18 <~) $
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
density 0.245 $
|
|
density 0.245 $
|
|
slowspread density [1, 2, 0.5, 2] $
|
|
slowspread density [1, 2, 0.5, 2] $
|
|
@@ -43,10 +43,19 @@ d4 $
|
|
# gain "0.8"
|
|
# gain "0.8"
|
|
# cut "4"
|
|
# cut "4"
|
|
|
|
|
|
|
|
+d1 $ stack [
|
|
|
|
+ every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
|
|
|
|
+ s "[k ~ k*2 ~]/4",
|
|
|
|
+ every' 32 31 (const $ (0.07 ~>) $ s "[~ ~ ~ sn]") $
|
|
|
|
+ every' 16 16 (const $ s "sn*2") $
|
|
|
|
+ (1 ~>) $ s "sn/2"
|
|
|
|
+]
|
|
|
|
+
|
|
d2 silence
|
|
d2 silence
|
|
|
|
|
|
|
|
+{-
|
|
d4 $
|
|
d4 $
|
|
- (0.18 <~) $
|
|
|
|
|
|
+ (1.18 <~) $
|
|
every 2 (const silence) $
|
|
every 2 (const silence) $
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
density 0.245 $
|
|
density 0.245 $
|
|
@@ -55,14 +64,7 @@ d4 $
|
|
s "eg*2"
|
|
s "eg*2"
|
|
# gain "0.8"
|
|
# gain "0.8"
|
|
# cut "4"
|
|
# cut "4"
|
|
-
|
|
|
|
-d1 $ stack [
|
|
|
|
- every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
|
|
|
|
- s "[k ~ k*2 ~]/4",
|
|
|
|
- every' 32 31 (const $ (0.07 ~>) $ s "[~ ~ ~ sn]") $
|
|
|
|
- every' 16 16 (const $ s "sn*2") $
|
|
|
|
- (1 ~>) $ s "sn/2"
|
|
|
|
-]
|
|
|
|
|
|
+-}
|
|
|
|
|
|
d5 $
|
|
d5 $
|
|
(0.32 ~>) $
|
|
(0.32 ~>) $
|
|
@@ -70,25 +72,25 @@ d5 $
|
|
# gain "0.7"
|
|
# gain "0.7"
|
|
# speed ((+0.8).(/3) <$> slow 8 sinewave1)
|
|
# speed ((+0.8).(/3) <$> slow 8 sinewave1)
|
|
|
|
|
|
|
|
+{-
|
|
d4 $
|
|
d4 $
|
|
- (0.18 <~) $
|
|
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
|
- slowspread density [1, 2, 0.5, 2] $
|
|
|
|
- density 0.245 $
|
|
|
|
- gap 128 $
|
|
|
|
|
|
+ density 0.98 $
|
|
|
|
+ chop 128 $
|
|
s "[eg [~ eg] ! ~]/2"
|
|
s "[eg [~ eg] ! ~]/2"
|
|
# gain "0.8"
|
|
# gain "0.8"
|
|
# cut "4"
|
|
# cut "4"
|
|
|
|
+-}
|
|
|
|
|
|
d1 $ stack [
|
|
d1 $ stack [
|
|
- (1 ~>) $ sound "cy/8",
|
|
|
|
whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
whenmod 8 7 (overlay $ (0.32 ~>) $ s "k*2") $
|
|
- every' 12 2 (density 3) $
|
|
|
|
|
|
+-- every' 12 2 (density 3) $
|
|
s "k",
|
|
s "k",
|
|
(1 ~>) $ s "sn/2"
|
|
(1 ~>) $ s "sn/2"
|
|
]
|
|
]
|
|
|
|
|
|
d4 silence
|
|
d4 silence
|
|
d2 silence
|
|
d2 silence
|
|
|
|
+d5 silence
|
|
|
|
|
|
hush
|
|
hush
|