tidy up, structure a proper scratch file

stop forcing a song structure when the ideas aren't there yet

haddeo.tidal

@@ -6,343 +6,6 @@ let modtempo s e = (# nudge (scale 0 s $ fmap (**e) saw1))
 let mt s d i = slow s . modtempo 0.3 3 $ density d $ i
 let msil = mapM_ ($ silence)
 
--- original bpm = 105
-bpm 105
-
--- drum
-
-d1 $ slow 8 $ n "[1*2, 0*8]" # s "drum"
-d1 $ slow 8 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
-
-d1 $ mt 16 2 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
-
-d2 $ n "[~ [0 2]/2]" # s "kit"
-d2 $ n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
-
-d2 $
-  withmod 11 5 0.5 1 (density 2) $
-  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
-
-d2 $
-  whenmod 3 2 (density 2) $
-  withmod 11 5 0.5 1 (density 2) $
-  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
-
-d2 $
-  every' 16 8 (const $ s "kit:3") $
-  whenmod 3 2 (density 2) $
-  withmod 11 5 0.5 1 (density 2) $
-  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
-
--- icarus
-
-d3 $ slow 16 . striate 256 $ s "icarus"
-
-d3 $ superimpose (8 ~>) $
-  slow 16 . striate 256 $ s "icarus"
-
-d3 $
-  every' 2 2 (within (0, 0.75) (iter 16)) $
-  slow 16 . striate 256 $ s "icarus"
-
-d3 $
-  superimpose (8 ~>) $
-  every' 2 2 (within (0, 0.75) (iter 16)) $
-  slow 16 . striate 256 $ s "icarus"
-
-{-
-d3 $
-  slow 8 $ smash 64 [0.5,0.75] $
-  s "icarus"
--}
-
--- nimble
-
-d4 $ slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-
-d4 $ superimpose (iter 4) $
-  slow 16 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
-d4 $
-  superimpose (
-    iter 4 .
-    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1))
-    ) $
-  slow 16 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
-d4 $
-  superimpose (
-    iter 4 .
-    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
-    (# nudge "0")
-    ) $
-  mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
-d3 silence
-d4 $ mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
-d4 $ whenmod 5 3 rev $
-  mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
-d4 $
-  every' 2 2 (within (0, 0.5) (const silence)) $
-  superimpose (
-    iter 4 .
-    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
-    (# nudge "0")
-    ) $
-  whenmod 5 3 rev $
-  mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
-d4 $
-  every' 2 2 (within (0.25, 0.5) (const silence)) $
-  superimpose (
-    iter 4 .
-    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
-    (# nudge "0")
-    ) $
-  whenmod 5 3 rev $
-  mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
--- bass
-
-d9 $
---  (# speed "[1 1.2]") $
-  (0.5 ~>) $ slow 8 $ stack [
-  striate 16 $ sound "bass",
-  striate 16 $ sound "sine"
-  ]
-  # gain "0.9"
-
--- something of a structure starting to come together here
-
-d1 $ slow 8 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
-
-d1 $
-  (whenmod 5 3 . every' 7 5) (0.5 ~>) $
-  slow 8 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
-
-d1 $
-  (whenmod 5 3 . every' 7 5) (0.5 ~>) $
-  mt 16 2 $ n "[1*2, 0 0 0 [0 ~! 0] ! 0 [0 0/4] 0]" # s "drum"
-
-d3 $
-  every' 2 2 (within (0, 0.75) (iter 16)) $
-  slow 16 . striate 256 $ s "icarus"
-
-d4 $
-  every' 2 2 (within (0.25, 0.5) (const silence)) $
-  whenmod 5 3 rev $
-  mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
--- hahaha, holy fuck
-
-d4 $ whenmod 4 2 (const silence) $
-  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-
-d4 $ whenmod 4 2 (const silence) $
-  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-  # vowel "e a"
-
-d4 $ whenmod 4 2 (const silence) $
-  density 2 $ (# cut "4") $
-  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-  # vowel "e a"
-
-d4 $
-  superimpose ((4 ~>) . iter 4) $
-  whenmod 4 2 (const silence) $
-  density 2 $ (# cut "4") $
-  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-  # vowel "e a"
-
-d4 $
-  superimpose (density 2 . (4 ~>) . iter 4) $
-  whenmod 4 2 (const silence) $
-  density 2 $ (# cut "4") $
-  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-  # vowel "e a"
-
-d5 $ slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-
-d1 $ stack [
-  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
-  n "[~ 0]/2" # s "sn"
-  ]
-
-d1 $ stack [
-  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
--- heh
---bpm 80
-
-d4 $
-  (2 ~>) $
-  superimpose (density 2 . (4 ~>) . iter 4) $
-  whenmod 4 2 (const silence) $
-  density 2 $ (# cut "4") $
-  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-  # vowel "e a"
-
-d5 $
-  superimpose (
-    iter 4 .
-    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
-    (# nudge "0")
-    ) $
-  whenmod 5 3 rev $
-  slow 16 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
-d4 $
-  (2 ~>) $
-  superimpose (density 2 . (4 ~>) . iter 4) $
-  whenmod 4 2 (const silence) $
-  density 2 $ (# cut "4") $
-  mt 16 1 $ striate 16 $ n "[0 1]/2" # s "nimble"
-  # vowel "e a"
-
-d5 $
-  superimpose (
-    iter 4 .
-    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
-    (# nudge "0")
-    ) $
-  whenmod 5 3 rev $
-  mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
-d1 $ mt 16 16 $ stack [
-  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
--- some other ideas
-
-d1 $ stack [
-  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
-d1 $ stack [
-  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
-  whenmod 5 3 (
-    superimpose (
-       within (0, 0.5) (
-          (# gain "0.7") .
-          (# n (irand 3)) .
-          (# s "tom")
-          ) .
-       (# gain "0.8") .
-       (0.25 ~>) . density 2
-       )
-    ) $
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
-d1 $ stack [
-  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
-  whenmod 7 6 (slowspread ($) [density 4 . rev . slow 4, id, (0.25 ~>)]) $
-  whenmod 5 3 (
-    superimpose (
-       within (0, 0.5) (
-          (# gain "0.7") .
-          (# n (irand 3)) .
-          (# s "tom")
-          ) .
-       (# gain "0.8") .
-       (0.25 ~>) . density 2
-       )
-    ) $
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
-d4 $ slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-
-d4 $ (0.5 ~>) $
-  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-
-d4 $ superimpose ((1 <~) . (# vowel "e a")) $
-  (0.5 ~>) $
-  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
-
-d6 $
-  every' 3 2 rev $
-  (2 <~) $
-  slow 16 $ striate 32 $ n "[0 1]/2" # s "nimble"
-  # speed "0.55"
-
--- nailed it
-d7 $
-  whenmod 16 8 (0.5 ~>) $
-  slow 8 $
-  slowspread ($) [gap 16, striate 8] $
-  n "[0 1]/2" # s "nimble"
-  # speed "[-3 -2]"
-
-d7 $
-  whenmod 5 2 (density (5%3)) $
-  whenmod 16 8 (0.5 ~>) $
-  slow 8 $
-  slowspread ($) [gap 16, striate 8] $
-  n "[0 1]/2" # s "nimble"
-  # speed "[-3 -2]"
-
-d1 $ stack [
-  n "[1, 0*4 [~ 0*2] [~ 0/2 0 ~] ~]/4" # s "drum",
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
-d1 $ stack [
-  n "[1, 0*4 [~ 0*2] [~ 0/2 0 ~] ~]/4" # s "drum",
-  whenmod 7 6 (slowspread ($) [density 4 . rev . slow 4, id, (0.25 ~>)]) $
-  whenmod 5 3 (
-    superimpose (
-       within (0, 0.5) (
-          (# gain "0.7") .
-          (# n (irand 3)) .
-          (# s "tom")
-          ) .
-       (# gain "0.8") .
-       (0.25 ~>) . density 2
-       )
-    ) $
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
-d1 $ slow 16 . modtempo 0.6 4 $ density 16 $ stack [
-  n "[1, 0*4 [~ 0*2] [~ 0/2 0 ~] ~]/4" # s "drum",
-  whenmod 7 6 (slowspread ($) [density 4 . rev . slow 4, id, (0.25 ~>)]) $
-  whenmod 5 3 (
-    superimpose (
-       within (0, 0.5) (
-          (# gain "0.7") .
-          (# n (irand 3)) .
-          (# s "tom")
-          ) .
-       (# gain "0.8") .
-       (0.25 ~>) . density 2
-       )
-    ) $
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
--- could be a good outro
-d1 $ slow 16 . modtempo 0.6 4 $ density 16 $
-  stack [
-  n "[1, 0*4 [~ 0*2] [~ 0/2 0 ~] ~]/4" # s "drum",
-  4 ~> n "[~ 0 [~ 0/2 ~!] 0]/4" # s "sn"
-  ]
-
-hush
-
-{-
-ok so from here on i'm actually trying to write a song,
-everything above is scratch
--}
-
--- pt 1: intro
-
 let d'drum = d1
     d'kit = d2
     d'wax = d3
@@ -351,6 +14,8 @@ let d'drum = d1
     d'bass = d6
     d'hi = d7
 
+-- pt 1: intro
+
 bpm 105
 hush
 
@@ -443,10 +108,12 @@ d'nim $ whenmod 4 2 (const silence) $
   slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
   # vowel "e a"
 
+{-
 d'hi $ whenmod 16 8 (0.5 ~>) $
   slow 8 $ slowspread ($) [gap 16, striate 8] $
   n "[0 1]/2" # s "nimble" # speed "[-3 -2]"
   # gain "0.9"
+-}
 
 d'wax $ slow 16 . striate 256 $ s "icarus"
 
@@ -531,6 +198,7 @@ d'nim $ superimpose ((4 ~>) . iter 6) $
   slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
 
 -- pt 4: hip houtro
+bpm 105
 
 d'drum $ stack [
   (whenmod 8 5 . whenmod 7 4) (density 2 . rev) $

scratch.tidal

@@ -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