Browse Source

remove all the let crap and simplify, i overdid it and got trapped

also junk a lot of hip hoppy drum experiments that just didn't work, and substitute more suitable snare samples
Aneurin Barker Snook 8 years ago
parent
commit
c0b4b899c1
4 changed files with 75 additions and 90 deletions
  1. BIN
      samples/sn/CYCdh_K4-Snr05.wav
  2. BIN
      samples/sn/CYCdh_K4-Snr06.wav
  3. BIN
      samples/sn/CYCdh_VinylK4-Snr03.wav
  4. 75 90
      scratch.tidal

BIN
samples/sn/CYCdh_K4-Snr05.wav


BIN
samples/sn/CYCdh_K4-Snr06.wav


BIN
samples/sn/CYCdh_VinylK4-Snr03.wav


+ 75 - 90
scratch.tidal

@@ -6,76 +6,63 @@ let bpm b = cps (b/60)
     withmod a b c d = (whenmod a b . within (c, d))
     every' n o f = when ((== (o-1)) . (`mod` n)) f
     msil = mapM_ ($ silence)
+    tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
 
-let tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
-    mt s d i = slow s . tmod 0.3 3 $ density d $ i
+let swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
+    swing' = swing 0.14 --0.05
 
 let d'drum = d1
-    d'wax = d3
-    d'nim = d4
-    d'nim2 = d5
-    d'bass = d6
-    d'hi = d7
+    d'drum2 = d2
+    d'bass = d3
+    d'wax = d4
+    d'nim = d5
+    d'hi = d6
 
 -- original bpm = 105
+let tmod' s e = tmod (s*(1/(105/60))) e
+    mt s d i = slow s $ tmod' 0.5 3 $ density d $ i
+
 bpm 105
 
 {----------
 drum + perc
 ----------}
+hush
 d'drum silence
 
-let --dp = n "1/4"
-    --dp = n "[1*2, 0*8]/8"
-    dp = n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
-    --dp = n "[1, 0*2 [~ 0] ! ~]/4"
-{--}
-    kp = n "[~ [0 2]/2]"
-    --kp = n "[[~ 0] [[2!! ~]/4 0]]/2"
-{--}
-    sp = n ""
-    --sp = 4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4"
-    --sp = 4 ~> n "[~ [0 ~ ~ 0/2] ~ 0]/4"
-{--}
-    ste = id -- . mt 16 16
-    de = id
---         . (whenmod 9 5 . whenmod 7 4) (density 2 . rev) {- 9 5? -}
---         . superimpose (0.25 ~>)
-    ke = id
---         . every' 16 8 (const $ s "kit:3")
---         . whenmod 3 2 (density 2)
---         . (whenmod 11 5 . within (0.5, 1)) (density 2)
-    se = id
---         . within (0.1, 0.4) (# nudge "0.05") . within (0.6, 0.9) (# nudge "0.05")
-{-
-         . whenmod 7 6 (slowspread ($) [
-                           density 8 . rev . slow 4,
-                           (0.25 <~),
-                           (0.25 ~>)
-                           ])
---}
-{-
-         . whenmod 5 3 (
-           superimpose (
-              within (0, 0.5) ((# gain "0.6") . (# n (irand 3)) . (# s "tom")) .
-              (# gain "0.65") . (0.25 ~>) . density 2
-              ))
---}
---         . every' 16 16 (superimpose (0.75 ~>))
-  in d'drum $
-     ste $ stack [
-       de $ dp # s "drum",
-       ke $ kp # s "kit",
-       se $ sp # s "sn" # gain "0.76"
-       ]
+d'drum $ --mt 16 16 $
+  swing' $
+  stack [
+  --n "1/4"
+  --n "[1*2, 0*8]/8"
+  --n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]/8"
+  n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] [0 0 ~ ~]]/8"
+  # s "drum",
+  every' 16 16 (const $ s "kit:3") $
+  whenmod 3 2 (density 2) $
+  (whenmod 11 5 . within (0.5, 1)) (density 2) $
+  --n ""
+  --n "[~ [0 2]/2]"
+  n "[[~ 0] [[2!! ~]/4 0]]/2"
+  # s "kit",
+  (0.5 <~) $
+  --n ""
+  --n "[~ [~ 1]]/2"
+  n "[~ [~ 0/8 1 0/2]]/2"
+  --n "[~ [~ 0/4 1 0]]/2"
+  --n "[~ [1 0/4 1 0/2]]/2"
+  # s "sn"
+  # gain "0.8"
+  ]
 
 {-----
 icarus
 -----}
+hush
 d'wax silence
 
 d'wax $
---  every' 2 2 (within (0, 0.75) (iter 16)) $
+  --every' 2 2 (within (0, 0.75) (iter 16)) $
   slow 16 . striate 256 $ s "icarus"
 
 d'wax $ retrig $ s "icarus:1/20"
@@ -83,61 +70,59 @@ d'wax $ retrig $ s "icarus:1/20"
 {-----
 nimble
 -----}
-msil [d'nim, d'nim2]
-
-let ns = slow 16 . striate 256
-    --ns = mt 16 1 . striate 256
-    nei = 4 {- 4,6 -}
-    ne = id
---         . every' 2 2 (within (0, 0.5) (const silence))
-{-
-         . superimpose (
-           iter nei
---           . (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
---           . nudge "0"
-           )
---}
---          . (0.5 ~>)
-  in d'nim $
-     ne $ ns $ n "[0 1]/2" # s "nimble"
+hush
+d'nim silence
+
+d'nim $
+  superimpose (
+    --iter 4 .
+    iter 6 .
+    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
+    (# nudge "0")
+    ) $
+  {-(whenmod 5 2 $
+   slowspread (\x -> within (0.5, 1) x) [
+     id, density (5%3), rev, density (4%3), id, rev, (0.5 <~)
+     ]) $-}
+  --whenmod 4 2 (const silence) $
+  --mt 16 1 $
+  slow 16 $
+  striate 256 $ n "[0 1]/2" # s "nimble"
+  -- # cut "4"
+  -- # shape ((/4) <$> density 1.9 sine1)
 
 {---
 bass
 ---}
+hush
 d'bass silence
 
-let be = id
---         . (# speed "[1 1.2]")
---         . (0.5 ~>)
---         . (1.3 ~>)
-    bc = id
---         . striate 16
---         . gap 32
-    bs = id
-         . slow 8
---         . mt 16 2
-  in d'bass $
-     be $ bs $ stack [
-       bc $ sound "bass",
-       bc $ sound "sine"
-       ]
-     # gain "0.8"
+d'bass $
+  --whenmod 3 2 (within (0, 0.5) (const silence)) $
+  --whenmod 10 8 (within (0.5, 1) (const silence)) $
+  slow 8 $ stack [
+  striate 16 $ sound "bass",
+  striate 16 $ sound "sine"
+  ]
+  -- # gain "0.8"
 
 {---------
 alt nimble (wip)
 ---------}
+hush
 d'hi silence
 
 d'hi $
---  whenmod 16 12 (0.5 ~>) $
+  swing' $
+  whenmod 4 3 (density 2) $
 --  whenmod 16 8 (0.5 ~>) $
---  (0.5 ~>) $
-  whenmod 12 8 (0.5 <~) $ (0.5 ~>) $ -- heh
+  (0.5 ~>) $
+--  whenmod 12 8 (0.5 <~) $ (0.5 ~>) $ -- heh
   slow 8 $
---  slowspread ($) [gap 16, gap 64] $
-  slowspread ($) [gap 16, gap 32] $
+  slowspread ($) [gap 16, gap 64] $
   n "[0 1]/2" # s "nimble"
-  # speed "[-3 -2]"
+  # speed "[-3 -4]"
 --  # gain "1.2"
+--  # vowel "u"
 
 hush