tidy up, structure a proper scratch file

stop forcing a song structure when the ideas aren't there yet
2016-09-24 23:02:09 +01:00
parent 68297471d5
commit 1c3b298e6d
2 changed files with 148 additions and 337 deletions
@@ -0,0 +1,143 @@
+{-
+defs
+-}
+
+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)
+
+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 d'drum = d1
+    d'wax = d3
+    d'nim = d4
+    d'nim2 = d5
+    d'bass = d6
+    d'hi = d7
+
+-- original bpm = 105
+bpm 105
+
+{----------
+drum + perc
+----------}
+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"
+       ]
+
+{-----
+icarus
+-----}
+d'wax silence
+
+d'wax $
+  every' 2 2 (within (0, 0.75) (iter 16)) $
+  slow 16 . striate 256 $ s "icarus"
+
+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"
+
+{---
+bass
+---}
+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"
+
+{---------
+alt nimble (wip)
+---------}
+d'hi silence
+
+d'hi $
+--  whenmod 16 12 (0.5 ~>) $
+--  whenmod 16 8 (0.5 ~>) $
+--  (0.5 ~>) $
+  whenmod 12 8 (0.5 <~) $ (0.5 ~>) $ -- heh
+  slow 8 $
+--  slowspread ($) [gap 16, gap 64] $
+  slowspread ($) [gap 16, gap 32] $
+  n "[0 1]/2" # s "nimble"
+  # speed "[-3 -2]"
+--  # gain "1.2"
+
+hush