Преглед на файлове

add section outline 2.a, pretty fun that, and some crap in 2.c

also config file for radium compressor
Aneurin Barker Snook преди 10 години
родител
ревизия
f401af891d
променени са 2 файла, в които са добавени 57 реда и са изтрити 9 реда
  1. 6 0
      compress.rcc
  2. 51 9
      piston.tidal

+ 6 - 0
compress.rcc

@@ -0,0 +1,6 @@
+3.000000
+-20.487804
+25.182659
+64.425629
+0.000000
+25.121952

+ 51 - 9
piston.tidal

@@ -183,6 +183,34 @@ d3 $ every 2 (0.5 <~) $ slow 4 $ rev . chop 16 $ bassParams $ sound "[dubb dubb:
 piston 2.a
 -}
 
+mapM_ ($ silence) [d2,d3]
+
+d1 $ density 2 $ sound "[wt k:1 k]/3"
+
+--d4 $ rev . chop 32 $ sound "[bz(5,8)]/2"
+d4 $ whenmod 3 2 rev $ rev . chop 32 $ sound "[bz(3,8)]/2"
+   |+| gain "0.8"
+   |+| cut "1"
+   |+| vowel "a"
+
+d1 $ whenmod 9 6 rev $ density 2 $ sound "[wt k:1 k]/3"
+
+d2 $ sound "[~ sn]/2"
+
+d3 $ slow 6 $ chop 12 $ bassParams $ sound "[dubb dubb:1]/2"
+
+d2 silence
+
+d1 $ whenmod 9 6 rev $ density 2 $ sound "[sn k:1 k]/3"
+
+--d3 $ slow 6 $ chop 12 $ bassParams $ sound "[dubb dubb:1]/2"
+d3 $ every 3 (density 1.2) . slow 6 $ chop 12 $ bassParams $ sound "[dubb dubb:1]/2"
+|+| vowel "u"
+
+d1 $ whenmod 9 6 rev $ density 2 $ sound "[sn [k:1 wtsn] k]/3"
+
+hush
+
 --tbc
 
 {-
@@ -219,7 +247,7 @@ d3 $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1
 d3 $ every 2 (density 2) $ density 1.6 $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
    |+| cut "1"
 
-d1 $ sound "k"
+d1 $ sound "k:1"
 
 d6 $ chop 16 $ sound "[~ ~ [~ plode] !]/4"
    |+| speed "0.9"
@@ -244,11 +272,7 @@ d6 $ whenmod 4 3 (density 1.8) $ chop 16 $ sound "[~ ~ [~ plode] !]/4"
    |+| vowel "u"
    |+| shape ((/3) <$> density 3 sinewave1)
 
-d1 silence
-
-d3 $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
-   |+| cut "1"
-   |+| speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
+mapM_ ($ silence) [d1,d3]
 
 let gprop = (|+| speed "1.2").(|+| shape ((/2) <$> ((0.25 ~>) . density 3) sinewave1)).(|+| gain "0.6")
 
@@ -272,8 +296,6 @@ d6 $ whenmod 4 3 (density 1.8) $ chop 16 $ sound "[~ ~ [~ plode] !]/4"
    |+| shape ((/3) <$> density 3 sinewave1)
    |+| delay "0.3" |+| delayfeedback "0.2" |+| delaytime "0.2875" --(138/60)/8
 
-d1 $ sound "{[k ~ ~ k:1], [~ sn]/2}"
-
 d4 $ whenmod 5 3 rev $ brak $ slow 16 $ jux ((1.5 ~>).rev) $ chop 64 $ bassParams $ sound "fly:1"
    |+| speed "0.7"
    |+| shape ((/2) <$> density 2.1 saw1)
@@ -284,18 +306,38 @@ d6 $ within (0, 0.5) rev $ whenmod 4 3 (density 1.8) $ chop 16 $ sound "[~ ~ [~
    |+| shape ((/3) <$> density 3 sinewave1)
    |+| delay "0.3" |+| delayfeedback "0.2" |+| delaytime "0.2875" --(138/60)/8
 
+d1 $ sound "{[k ~ ~ k:1], [~ sn]/2}"
+
+d3 $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
+   |+| cut "1"
+   |+| speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
+
 mapM_ ($ silence) [d2,d6]
 
+d7 silence
+
 d3 $ (|+| gain ((*0.7) <$> saw1)) $ every 2 (density 2) $ whenmod 3 2 (density 1.6) $ chop 16 $ bassParams $ sound (samples "[~ dubb]" (slow 4 "0 1"))
    |+| cut "1"
    |+| speed ((+0.75).(/2) <$> slow 1.3 sinewave1)
 
-mapM_ ($ silence) [d3,d4,d7]
+mapM_ ($ silence) [d3,d4]
 
 {-
 piston 2.c
 -}
 
+d1 $ stack [
+   sound "[[k ~ ~ k] ~ k ~]/4",
+   (0.5 ~>) $ sound "[~ sn]/2"
+]
+
+d2 $ sound "wt"
+
+d3 $ bassParams $ (0.25 ~>) $ sound "[dubb dubb:1]/2"
+   |+| cut "1"
+   |+| cutoff "0.01"
+   |+| resonance ((/3) <$> slow 4 saw1)
+
 --tbc
 
 {-