Просмотр исходного кода

some tweaks, tighten up formatting a bit

Aneurin Barker Snook 9 лет назад
Родитель
Сommit
3345d6f47f
1 измененных файлов с 24 добавлено и 14 удалено
  1. 24 14
      for-mix2.tidal

+ 24 - 14
for-mix2.tidal

@@ -90,16 +90,14 @@ d3 $
 
 
 d4 $
 d4 $
   density 0.25 $
   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"
   # 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 $
-  s "eg*2"
+  gap 128 $ 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 $
-  s "eg*2"
+  gap 128 $ s "eg*2"
   # gain "0.8"
   # gain "0.8"
   # cut "4"
   # cut "4"
 
 
@@ -132,23 +137,28 @@ d1 $ stack [
   ]
   ]
 
 
 d5 $
 d5 $
-  chop 128 $
-  s "[gt [~ gt] ! ~]/2"
+  chop 128 $ s "[gt [~ gt] ! ~]/2"
   # gain "0.7"
   # gain "0.7"
   # cut "4"
   # cut "4"
 
 
 d5 $
 d5 $
   density 0.98 $
   density 0.98 $
-  chop 128 $
-  s "[gt [~ gt] ! ~]/2"
+  chop 128 $ 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 $
-  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"
   # 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 [