initial commit with reformulated tidal source

something-to-say.tidal

@@ -0,0 +1,200 @@
+{-
+anny fm: something to say
+originally recorded @ home, elephant & castle, 15th march 2014
+released on "a tribute to kurt cobain" compilation on fwonk*: http://fwonk.co.uk/129/
+      __
+  c|||  o_
+c||||| ___o
+https://soundcloud.com/anny-fm/something-to-say
+-}
+
+cps (106/60)
+
+-- shortfix for bps->cps
+let cf = slow 2
+
+-- fixed iter to reproduce pre-0.6 behaviour
+let iter' n p = slowcat $ map (\i -> ((fromIntegral i)%(fromIntegral n)) ~> p) [0 .. n]
+
+-- guitar-ish
+let ss'stab = s "stab"
+              # n (slow 6 "1 2 3 4 [5 6]/3")
+              # vowel "i"
+
+-- possibly guitar-ish. was never quite sure what this is
+let ss'kurt = s "kurt"
+              # speed "0.6"
+              # shape "0.3"
+              # vowel "u"
+
+-- drums base
+let ss'perc = s "{[bd ~ ~ bd] msg, hh*2}"
+    ss'perc' = s "{[rm ~ ~ rm] msg, hh*2}"
+
+-- vocal
+let ss'verse = s "sitw"
+               # n (slow 8 $ run 8)
+
+-- other vocal
+let ss'chorus = s "sitwc"
+                # n (slow 4 $ run 4)
+
+-- channel defs
+let d'drum = d1
+    d'bass = d2
+    d'voc = d9 -- vocal
+    d'gt = d3 -- guitar [stab]
+    d'kurt = d4
+    d'moog = d5
+
+-- go
+d'gt $ cf $ ss'stab
+  # speed "0.7"
+
+d'gt $ cf $
+  slow 2 $ every 4 (density 2) $ every 2 (density 2) $
+  ss'stab
+  # speed "0.7"
+
+d'voc $ cf $ slow 4 $ ss'verse
+  |+| vowel "e"
+
+d'kurt $ cf $ ss'kurt
+  # n (slow 7 $ run 7)
+
+d'drum $ cf $ slow 2 $ ss'perc
+
+d'kurt $ cf $ s "kurt"
+  # n (slow 4 "5 6 4")
+
+d'gt $ cf $
+  density 2 $ iter 2 $
+  ss'stab
+  # speed "0.7"
+
+d'gt $ cf $
+  density 2 $ iter 2 $
+  ss'stab
+  # speed ((+0.7).(/2) <$> slow 5 sinewave1)
+
+d'voc $ cf $ slow 4 $ ss'chorus
+  # vowel "e"
+
+d'voc $ cf $ slow 4 $
+  iter 3 . striate 4 $
+  ss'chorus
+  # vowel "e"
+
+d'bass $ cf $ striate 4 $ sound "wobble [wobble]/3"
+  # pan (slow 3 sinewave)
+
+-- break down to rebuild
+d'voc silence
+mapM_ ($ silence) [d'drum, d'bass, d'gt, d'kurt]
+
+d'drum $ cf $ slow 2 $ ss'perc
+
+d'voc $ slow 8 $ ss'verse
+  # vowel "e"
+
+d'drum $ cf $
+  every 2 (superimpose $ iter' 3) $
+  slow 2 $ ss'perc
+
+d'gt $ cf $
+  slow 2 $ every 4 (density 2) $ every 2 (density 2) $
+  ss'stab
+  # speed "0.7"
+
+-- quickly
+d'kurt $ cf $ ss'kurt
+  # n (slow 7 $ run 7)
+
+d'voc $ cf $ slow 4 $ ss'chorus
+  # vowel "e"
+
+d'kurt $ cf $ ss'kurt
+  # n (slow 4 "5 6 4")
+
+d'moog $ cf $
+  slow 8 . striate 8 $
+  0.25 <~ s "moog"
+  # n (slow 2 "0 1")
+  # speed "0.6 0.7"
+  # pan (slow 8 sinewave)
+
+d'voc $ cf $ slow 2 $
+  iter 3 . striate 4 $
+  ss'chorus
+  # vowel "e"
+
+d'voc $ cf $ slow 2 $
+  iter 3 . striate 4 $
+  ss'chorus
+  # vowel "e"
+  # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
+
+d'voc $ cf $ slow 4 $ ss'chorus
+  # vowel "e"
+
+-- another breakdown
+mapM_ ($ silence) [d'drum, d'gt, d'kurt]
+
+d'drum $ cf $
+  every 2 (superimpose $ iter' 3) $
+  slow 2 $ ss'perc'
+
+d'voc $ cf $ slow 2 $
+  iter 3 . striate 4 $
+  ss'chorus
+  # vowel "e"
+  # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
+
+d'voc $ cf $
+  iter 3 . striate 4 $
+  ss'chorus
+  # vowel "e"
+  # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
+
+-- real drums start... now
+d'drum $ overlay (s "house") $ cf $
+  every 2 (superimpose $ iter' 3) $
+  slow 2 $ ss'perc'
+
+d'voc silence
+
+d'bass $ cf $ striate 4 $ sound "wobble [wobble]/3"
+  # pan (slow 3 sinewave)
+
+d'drum $ overlay (s "house") $ cf $
+  every 2 (superimpose $ iter' 3) $
+  slow 2 $ ss'perc
+
+d'gt $ cf $
+  density 2 $ iter 2 $
+  ss'stab
+  # speed ((+0.7).(/2) <$> slow 5 sinewave1)
+
+-- god this is nuts as shit. why did i do this
+d'voc $ cf $
+  iter 3 . striate 4 $
+  ss'chorus
+  # vowel "e"
+  # speed ((+0.5).(*1.2) <$> slow 5 sinewave1)
+
+d'kurt $ cf $ ss'kurt
+  # n (slow 4 "5 6 4")
+
+d'bass $ cf $ striate 4 $ sound "bass [bass:1]/3"
+  # pan (slow 3 sinewave)
+
+d'drum $ overlay (s "house" # gain "1.5") $ cf $
+  every 2 (superimpose $ iter' 3) $
+  slow 2 $ ss'perc
+
+-- quickly
+d'voc $ slow 8 $ ss'verse # vowel "e"
+mapM_ ($ silence) [d'bass, d'gt, d'kurt, d'moog]
+d'drum $ cf $ slow 2 $ ss'perc
+
+hush