some tweaks, tighten up formatting a bit

This commit is contained in:
Aneurin Barker Snook
2016-03-17 22:56:46 +00:00
parent ece655df29
commit 3345d6f47f
+24 -14
View File
@@ -90,16 +90,14 @@ d3 $
d4 $ d4 $
density 0.25 $ density 0.25 $
gap 128 $ gap 128 $ s "eg*2"
s "eg*2" # gain "0.7" -- fade up to 0.7
# gain "0.7" -- fade up to 0.8
# cut "4" # cut "4"
d4 $ d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.25 $ density 0.25 $
gap 128 $ gap 128 $ s "eg*2"
s "eg*2"
# gain "0.7" # gain "0.7"
# cut "4" # cut "4"
@@ -107,6 +105,14 @@ d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.25 $ density 0.25 $
slowspread density [1, 2, 0.5, 2] $ slowspread density [1, 2, 0.5, 2] $
gap 128 $ s "eg*2"
# gain "0.7"
# cut "4"
d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.245 $
slowspread density [1, 2, 0.5, 2] $
gap 128 $ gap 128 $
s "eg*2" s "eg*2"
# gain "0.7" # gain "0.7"
@@ -119,8 +125,7 @@ d4 $
(# 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] $
gap 128 $ gap 128 $ s "eg*2"
s "eg*2"
# gain "0.8" # gain "0.8"
# cut "4" # cut "4"
@@ -132,23 +137,28 @@ d1 $ stack [
] ]
d5 $ d5 $
chop 128 $ chop 128 $ s "[gt [~ gt] ! ~]/2"
s "[gt [~ gt] ! ~]/2"
# gain "0.7" # gain "0.7"
# cut "4" # cut "4"
d5 $ d5 $
density 0.98 $ density 0.98 $
chop 128 $ chop 128 $ s "[gt [~ gt] ! ~]/2"
s "[gt [~ gt] ! ~]/2"
# gain "0.7" # gain "0.7"
# cut "4" # cut "4"
d5 $ d5 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.98 $ density 0.98 $
chop 128 $ chop 128 $ s "[gt [~ gt] ! ~]/2"
s "[gt [~ gt] ! ~]/2" # gain "0.7"
# cut "4"
d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.245 $
slowspread density [1, 2, 0.5, 2] $
gap 128 $ s "eg*2"
# gain "0.7" # gain "0.7"
# cut "4" # cut "4"
@@ -159,7 +169,7 @@ d1 $ stack [
(1 ~>) $ s "sn/2" (1 ~>) $ s "sn/2"
] ]
d4 silence mapM_ ($ silence) [d4,d5]
-- fast! -- fast!
d1 $ stack [ d1 $ stack [