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 $
density 0.25 $
gap 128 $
s "eg*2"
# gain "0.7" -- fade up to 0.8
gap 128 $ s "eg*2"
# gain "0.7" -- fade up to 0.7
# cut "4"
d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.25 $
gap 128 $
s "eg*2"
gap 128 $ s "eg*2"
# gain "0.7"
# cut "4"
@@ -107,6 +105,14 @@ d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.25 $
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 $
s "eg*2"
# gain "0.7"
@@ -119,8 +125,7 @@ d4 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.245 $
slowspread density [1, 2, 0.5, 2] $
gap 128 $
s "eg*2"
gap 128 $ s "eg*2"
# gain "0.8"
# cut "4"
@@ -132,23 +137,28 @@ d1 $ stack [
]
d5 $
chop 128 $
s "[gt [~ gt] ! ~]/2"
chop 128 $ s "[gt [~ gt] ! ~]/2"
# gain "0.7"
# cut "4"
d5 $
density 0.98 $
chop 128 $
s "[gt [~ gt] ! ~]/2"
chop 128 $ s "[gt [~ gt] ! ~]/2"
# gain "0.7"
# cut "4"
d5 $
(# speed ((+0.8).(/2) <$> slow 4 saw1)) $
density 0.98 $
chop 128 $
s "[gt [~ gt] ! ~]/2"
chop 128 $ 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"
# cut "4"
@@ -159,7 +169,7 @@ d1 $ stack [
(1 ~>) $ s "sn/2"
]
d4 silence
mapM_ ($ silence) [d4,d5]
-- fast!
d1 $ stack [