Archived
idk
This commit is contained in:
+24
-22
@@ -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,26 +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)) $
|
|
||||||
density 0.245 $
|
|
||||||
slowspread density [1, 2, 0.5, 2] $
|
|
||||||
gap 128 $
|
|
||||||
s "eg*2"
|
|
||||||
# gain "0.8"
|
|
||||||
# cut "4"
|
|
||||||
|
|
||||||
d2 silence
|
|
||||||
|
|
||||||
d4 $
|
|
||||||
(0.18 <~) $
|
|
||||||
every 2 (const silence) $
|
|
||||||
(# 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] $
|
||||||
@@ -64,31 +51,46 @@ d1 $ stack [
|
|||||||
(1 ~>) $ s "sn/2"
|
(1 ~>) $ s "sn/2"
|
||||||
]
|
]
|
||||||
|
|
||||||
|
d2 silence
|
||||||
|
|
||||||
|
{-
|
||||||
|
d4 $
|
||||||
|
(1.18 <~) $
|
||||||
|
every 2 (const silence) $
|
||||||
|
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
|
||||||
|
density 0.245 $
|
||||||
|
slowspread density [1, 2, 0.5, 2] $
|
||||||
|
gap 128 $
|
||||||
|
s "eg*2"
|
||||||
|
# gain "0.8"
|
||||||
|
# cut "4"
|
||||||
|
-}
|
||||||
|
|
||||||
d5 $
|
d5 $
|
||||||
(0.32 ~>) $
|
(0.32 ~>) $
|
||||||
slow 4 . chop 256 $ sound "gt"
|
slow 4 . chop 256 $ sound "gt"
|
||||||
# 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.98 $
|
||||||
density 0.245 $
|
chop 128 $
|
||||||
gap 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
|
||||||
|
|||||||
Reference in New Issue
Block a user