update for tidal 1.0-dev compat, and simplify code for easier performance w/ composition notes

juliese.megalet.tidal

@@ -1,39 +0,0 @@
--- megalet for juliese.tidal
-let every' n o f = when ((== (o-1)) . (`mod` n)) f
-    d'drum = d1
-    d'perc = d2
-    d'bass = d3
-    d'eg = d4
-    d'gt = d5
-    d'udu = d6
-    d'pc = d7
-    d'pcl = d8
-    d'wbass = d9
-    bassbass = sound "[[vb vb:1] ~]/2"
-               # end (slow 1.4 "0.2 0.4")
-               # vowel "e o"
-    bassbass' = bassbass # speed (slow 2.5 "1 -1")
-    morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
-    drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
-    hhb m = smash 16 [0.25, 0.5] $
-            (if m then (every 3 (append $ sound "hh:1 hh")) else id) $
-            sound "hh hh:2"
-            # gain "0.6"
-    ududu = slow 4 . chop 128 $
-            sound (samples "udu" (slow 4 $ irand 4))
-            # gain "0.8"
-            # cut "6"
-    eg = gap 128 $ s "eg*2"
-         # cut "4"
-    gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
-         chop 128 $
-         s "[gt [~ gt] ! ~]/2"
-         # cut "5"
-    pcbeep = slow 16 $ gap 48 $ sound "pc:1"
-             # gain "0.7"
-             # cut "7"
-             # speed "[1 0.7]"
-    ju'drum2 = stack [
-               every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
-               every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
-               ]

juliese.scd

@@ -1,8 +1,15 @@
+/*
+Anny: Juliese
+anny.audio
+
+See README.md for more information
+*/
+
 include("SuperDirt")
 
 Server.local.options.device = "Soundflower (2ch)";
 SuperDirt.start
 
-~dirt.loadSoundFiles(thisProcess.nowExecutingPath.dirname +/+ "/samples/*")
+~dirt.loadSoundFiles("samples/*".resolveRelative)
 
 ~dirt.stop

juliese.tidal

@@ -3,13 +3,10 @@ anny: juliese
 to be performed at leeds algorave, 29th april 2016
 -}
 
-cps (99/60)
+let bpm b = cps (b/60)
-
+    every' n o f = when ((== (o-1)) . (`mod` n)) f
--- alt every
+    msil = mapM_ ($ silence)
-let every' n o f = when ((== (o-1)) . (`mod` n)) f
+    d'drum = d1
-
--- channel maps
-let d'drum = d1
     d'perc = d2
     d'bass = d3
     d'eg = d4
@@ -19,184 +16,154 @@ let d'drum = d1
     d'pcl = d8
     d'wbass = d9
 
--- bass template
+bpm 99
-let bassbass = sound "[[vb vb:1] ~]/2"
-               # end (slow 1.4 "0.2 0.4")
-               # vowel "e o"
-
-let bassbass' = bassbass # speed (slow 2.5 "1 -1")
-
--- lay more k over 4tf k
-let morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
-
--- final main drum loop, for reference
--- n.b. DO NOT copy such shit all over the place like you did with piston, you ass
-let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
-
--- basic hats
-let hhb m = smash 16 [0.25, 0.5] $
-            (if m then (every 3 (append $ sound "hh:1 hh")) else id) $
-            sound "hh hh:2"
-            # gain "0.6"
-
--- udu
-let ududu = slow 4 . chop 128 $
-            sound (samples "udu" (slow 4 $ irand 4))
-            # gain "0.8"
-            # cut "6"
-
--- guitar (i think)
-let eg = gap 128 $ s "eg*2"
-         # cut "4"
-
--- other guitar
-let gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
-         chop 128 $
-         s "[gt [~ gt] ! ~]/2"
-         # cut "5"
-
-let pcbeep = slow 16 $ gap 48 $ sound "pc:1"
-             # gain "0.7"
-             # cut "7"
-             # speed "[1 0.7]"
-
-{-
-here goes i guess
--}
-
 hush
 
-d'drum $ s "k"
+-- @jdrum
-d'bass $ bassbass
+d'drum $ -- overlay ((1 ~>) $ s "cy/8") $ -- (3), (4) remove
-d'perc $ hhb False
+  -- overlay ((0.5 ~>) $ s "sn/2") $ -- (2)
-d'bass $ bassbass'
+  -- every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ -- (1)
+  -- every' 12 2 (density 3) $ -- (5)
+  s "k"
 
-d'drum $ morek $ s "k"
+-- @jbass
-d'perc $ whenmod 16 15 (density 3) $ hhb False
+d'bass $
-d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
+  -- slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $ -- (4)
+  -- whenmod 4 2 (density 3) $ -- (3)
+  -- whenmod 3 2 (slow 2) $ -- (2)
+  sound "[[vb vb:1] ~]/2"
+  # end (slow 1.4 "0.2 0.4")
+  # vowel "e o"
+  -- # speed (slow 2.5 "1 -1") -- (1)
 
-d'perc $ whenmod 16 15 (density 3) $ hhb True
+-- ~jdrum @ 1
 
-d'drum $ overlay ((1 ~>) $ s "cy/8") $
+-- @jperc
-  overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
+d'perc $
+  -- iter 4 $ -- (4)
+  -- (# pan (density 16 "0.25 0.75")) $ -- (3)
+  -- whenmod 16 15 (density 3) $ -- (1)
+  smash 16 [0.25, 0.5] $
+  -- every 3 (append $ sound "hh:1 hh") $ -- (2)
+  sound "hh hh:2"
+  # gain 0.6
 
-d'bass $ whenmod 3 2 (slow 2) $ bassbass'
+-- ~jbass @ 1
-d'bass $ whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
+-- ~jperc @ 1
+-- ~jdrum @ 2
 
-d'perc $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+-- ~jperc @ 2
+-- ~jdrum @ 3
 
-d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+-- ~jbass @ 2
-d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
+-- ~jperc @ 3
 
-d'udu $ ududu
+-- ~jdrum @ 4
+-- ~jbass @ 3
+-- ~jperc @ 4
 
-d'wbass $ chop 16 $ sound "[wb wb:1 ~ ~]/4" # gain "0.9"
+-- @judu
-d'wbass $ chop 16 $ sound "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
+d'udu $
+  -- (every' 5 3 $ brak) $ -- (3)
+  -- (every' 3 2 . sometimesBy 0.5 $ density (4/3)) $ -- (1)
+  -- (whenmod 7 5 $ trunc (5/6)) $ -- (2)
+  slow 4 . chop 128 $
+  sound (samples "udu" (slow 4 $ irand 4))
+  # gain 0.8
+  # cut 6
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
+-- @jwbass
+d'wbass $ -- (sometimesBy 0.6 $ superimpose (rev . slow (5/4))) $ -- (5)
+  -- every' 4 4 (0.32 ~>) $ -- (2)
+  chop 16 $
+  sound "[wb wb:1 ~ ~]/4"
+  -- sound "[wb [wb:1 wb:2] ~ ~]/4" -- (1)
+  -- sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" -- (2)
+  -- sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" -- (4)
+  # gain 0.9
+  -- # speed "[1 1 2]/3" -- (3)
 
-d'eg $ density 0.25 $ eg
+-- ~jwbass @ 1
-  # gain "0.8"
+-- ~jwbass @ 2
 
-d'eg $
+-- @jeg
-  slowspread density [1, 2, 0.5, 2] $ eg
+d'eg $ -- (0.18 <~) $ -- (4)
-  # gain "0.8"
+  -- every 2 (const silence) $ -- (4), (5) remove
+  -- (# speed (scale 0.8 1.3 $ slow 4 saw1)) $ -- (2)
+  density 0.25 $ -- (3) 0.245
+  -- slowspread density [1, 2, 0.5, 2] $ -- (1)
+  gap 128 $ s "eg*2"
+  # cut 4
+  # gain 0.8
 
-d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+-- ~jeg @ 1
-  density 0.25 $
+-- ~jeg @ 2
-  slowspread density [1, 2, 0.5, 2] $ eg
+-- ~jwbass @ 3
-  # gain "0.8"
+-- ~jeg @ 3
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
+msil [d'perc, d'bass]
-  # speed "[1 1 2]/3"
 
-d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+-- ~jeg @ 4
-  density 0.245 $ -- !
+-- ~judu @ 1
-  slowspread density [1, 2, 0.5, 2] $ eg
+-- ~jdrum @ 5
-  # gain "0.8"
 
-mapM_ ($ silence) [d'perc, d'bass]
+-- @jpc
+d'pc $
+  -- whenmod 7 5 (density 1.25) $ -- (3)
+  -- slowspread ($) [rev, id, brak, (0.25 ~>), id] $ -- (2)
+  -- slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ -- (1)
+  slow 16 $ gap 48 $ sound "pc:1"
+  # gain 0.7
+  # cut 7
+  # speed "[1 0.7]"
 
--- fuck yeah. const rules
+-- ~jpc @ 1
-d'eg $ (0.18 <~) $ every 2 (const silence) $
+-- ~judu @ 2
-  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.245 $
-  slowspread density [1, 2, 0.5, 2] $ eg
-  # gain "0.8"
 
-d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $ ududu
+-- ~jpc @ 2
-d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ every' 12 2 (density 3) $ s "k"
 
-d'pc $ pcbeep
+-- ~jwbass @ 4
-d'pc $ slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
+-- ~jpc @ 3
 
-d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
+-- @jgt
-  (whenmod 7 5 $ trunc (5%6)) $ ududu
+d'gt $ -- density 0.98 $ -- (2)
+  every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
+  chop 128 $
+  s "[gt [~ gt] ! ~]/2"
+  # cut 5
+  # gain 0.87
+  -- # speed (scale 1 1.25 $ slow 1.95 sinewave1) -- (1)
 
-d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
+-- ~jgt @ 1
-  slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
+-- ~jwbass @ 5
-  # speed "[1 1 2]/3"
+-- ~jperc @ 4
 
-d'pc $ whenmod 7 5 (density 1.25) $
+-- ~jbass @ 4
-  slowspread ($) [rev, id, brak, (0.25 ~>), id] $
+-- ~judu @ 3
-  slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
+-- ~jeg @ 5
 
-d'gt $ gt
+-- ~jgt @ 2
-  # gain "0.87"
 
-d'gt $ gt
+msil [d'eg, d'wbass]
-  # gain "0.87"
-  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
 
--- OOOOOOHHHH MY FUCK
+-- @jdrum2
-d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
+d'drum $ stack [
-  every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
+  every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
-  # speed "[1 1 2]/3"
+  every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
+  ]
 
-d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
+-- @jpcl
+d'pcl $ -- superimpose (slow (10/9) . rev) $ -- (1)
+  slow 16 . gap 64 $ s "pclow"
+  # gain 0.8
+  -- # speed "1 1.5" -- (2)
 
--- funkier bassline w slowspread lambda, thanks yaxu. thaxu
+-- ~jpcl @ 1
-d'bass $ slowspread (\x -> within (0.5, 1) (x)) [id, slow 2 . brak] $
+-- ~jpcl @ 2
-  whenmod 4 2 (density 3) $ whenmod 3 2 (slow 2) $ bassbass'
 
-d'udu $ (every' 5 3 $ brak) $
+msil [d'bass, d'udu, d'pc]
-  (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
-  (whenmod 7 5 $ trunc (5%6)) $ ududu
 
--- bye const
+-- ~jpcl @ 0
-d'eg $ (0.18 <~) $
-  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.245 $
-  slowspread density [1, 2, 0.5, 2] $ eg
-  # gain "0.8"
-
-d'gt $ density 0.98 $ gt
-  # gain "0.87"
-  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
-
-let ju'drum2 = stack [
-               every' 8 7 (overlay $ (0.32 ~>) $ s "k") $ s "[k ~ k*2 ~]/4",
-               every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $ (1 ~>) $ s "sn/2"
-               ]
-
-mapM_ ($ silence) [d'eg, d'wbass]
-d'drum $ ju'drum2
-
-d'pcl $ slow 16 . gap 64 $ s "pclow"
-  # gain "0.8"
-
-d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
-  # gain "0.8"
-
-d'pcl $ superimpose (slow (10%9) . rev) $ slow 16 . gap 64 $ s "pclow"
-  # gain "0.8"
-  # speed "1 1.5"
-
-mapM_ ($ silence) [d'bass, d'udu, d'pc]
-
-d'pcl $ slow 16 . gap 64 $ s "pclow"
-  # gain "0.8"
 
 hush