Juliese/for-mix2.tidal

cps (99/60)

let every' n o f = when ((== (o-1)) . (`mod` n)) f

hush

d3 $
  s "[[vb vb:1] ~]/2"
  # speed (slow 2.5 "1 -1")
  # vowel "e o"

d3 $
  s "[[vb vb:1] ~]/2"
  # end (slow 1.4 "0.2 0.4")
--  # speed (slow 2.5 "1 -1") -- not this, but don't delete it. comes back
  # vowel "e o"

d2 $
  smash 16 [0.25, 0.5] $
  s "hh hh:2"
  # gain "0.6"

d1 $ s "k"

d3 $
  s "[[vb vb:1] ~]/2"
  # end (slow 1.4 "0.2 0.4")
  # speed (slow 2.5 "1 -1")
  # vowel "e o"

d1 $ every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k"

d2 $
  whenmod 16 15 (density 3) $
  smash 16 [0.25, 0.5] $
  s "hh hh:2"
  # gain "0.6"

d1 $ stack [
  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
  (0.5 ~>) $ s "sn/2"
  ]

d3 $
  whenmod 3 2 (slow 2) $
  s "[[vb vb:1] ~]/2"
  # end (slow 1.4 "0.2 0.4")
  # speed (slow 2.5 "1 -1")
  # vowel "e o"

d1 $ stack [
  (1 ~>) $ sound "cy/8",
  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
  (0.5 ~>) $ s "sn/2"
  ]

d2 $
  whenmod 16 15 (density 3) $
  smash 16 [0.25, 0.5] $
  every 3 (append $ s "hh:1 hh") $
  s "hh hh:2"
  # gain "0.6"

d1 $ stack [
  (1 ~>) $ sound "cy/8",
  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  every' 12 2 (density 3) $
  s "k",
  (0.5 ~>) $ s "sn/2"
  ]

-- these two quickly
d2 $
  iter 4 $
  (# pan (density 16 "0.25 0.75")) $
  whenmod 16 15 (density 3) $
  smash 16 [0.25, 0.5] $
  every 3 (append $ s "hh:1 hh") $
  s "hh hh:2"
  # gain "0.6"

d1 $ stack [
  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  every' 12 2 (density 3) $
  s "k",
  (0.5 ~>) $ s "sn/2"
  ]

d6 $
  slow 4 . chop 128 $
  s (samples "udu" (slow 4 $ irand 4))
  # gain "0.8"
  # cut "6"

d3 $
  whenmod 3 2 (slow 2) $
  (whenmod 4 2 $ density 3) $
  s "[[vb vb:1] ~]/2"
  # end (slow 1.4 "0.2 0.4")
  # speed (slow 2.5 "1 -1")
  # vowel "e o"

d4 $
  density 0.25 $
  gap 128 $ s "eg*2"
  # gain "0.8" -- fade up to 0.8
  # cut "4"

d4 $
  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.25 $
  gap 128 $ s "eg*2"
  # gain "0.8"
  # cut "4"

d4 $
  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.25 $
  slowspread density [1, 2, 0.5, 2] $
  gap 128 $ s "eg*2"
  # gain "0.8"
  # cut "4"

d6 $
  (whenmod 3 2 . sometimesBy 0.5 $ density (4%3)) $
  slow 4 . chop 128 $
  s (samples "udu" (slow 4 $ irand 4))
  # gain "0.8"
  # cut "6"

d4 $
  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.245 $
  slowspread density [1, 2, 0.5, 2] $
  gap 128 $
  s "eg*2"
  # gain "0.8"
  # cut "4"

d1 $ stack [
  (1 ~>) $ sound "cy/8",
  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  every' 12 2 (density 3) $
  s "k",
  (0.5 ~>) $ s "sn/2"
  ]

mapM_ ($ silence) [d2,d3]

d1 $ stack [
  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  every' 12 2 (density 3) $
  s "k",
  (0.5 ~>) $ s "sn/2"
  ]

d4 $
  (0.18 <~) $ every 2 (const silence) $
  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.245 $
  slowspread density [1, 2, 0.5, 2] $
  gap 128 $ s "eg*2"
  # gain "0.8"
  # cut "4"

d6 $
  (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  (whenmod 7 5 $ trunc (5%6)) $
  slow 4 . chop 128 $
  s (samples "udu" (slow 4 $ irand 4))
  # gain "0.8"
  # cut "6"

d5 $
  chop 128 $ s "[gt [~ gt] ! ~]/2"
--  # gain "0.8"
 # gain "0.8" -- fade up to 0.8
  # cut "5"

d6 $
  (every' 5 3 $ brak) $
  (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
  (whenmod 7 5 $ trunc (5%6)) $
  slow 4 . chop 128 $
  s (samples "udu" (slow 4 $ irand 4))
  # gain "0.8"
  # cut "6"

d5 $
  chop 128 $ s "[gt [~ gt] ! ~]/2"
  # gain "0.8" -- fade up to 0.8
  # cut "5"
  # speed ((+1).(/4) <$> slow 1.95 sinewave1)

d3 $
  (whenmod 3 2 $ slow 2) $
  (whenmod 4 2 $ density 3) $
  s "[[vb vb:1] ~]/2"
  # end (slow 1.4 "0.2 0.4")
  # speed (slow 2.5 "1 -1")
  # vowel "e o"

d5 $
  density 0.98 $
  chop 128 $ s "[gt [~ gt] ! ~]/2"
  # gain "0.8"
  # cut "5"
  # speed ((+1).(/4) <$> slow 1.95 sinewave1)

d4 $
  (0.18 <~) $
  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
  density 0.245 $
  slowspread density [1, 2, 0.5, 2] $
  gap 128 $ s "eg*2"
  # gain "0.8"
  # cut "4"

d2 $
  iter 4 $
  (# pan (density 16 "0.25 0.75")) $
  whenmod 16 15 (density 3) $
  smash 16 [0.25, 0.5] $
  every 3 (append $ s "hh:1 hh") $
  s "hh hh:2"
  # gain "0.6"

d3 $
  within (0.5, 1) (slow (4%3) . brak) $
  (whenmod 4 2 $ density 3) $
  (whenmod 3 2 $ slow 2) $
  s "[[vb vb:1] ~]/2"
  # end (slow 1.4 "0.2 0.4")
  # speed (slow 2.5 "1 -1")
  # vowel "e o"

d4 silence

d1 $ 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"
  ]

{-
d1 $ stack [
  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
  s "k",
  (1 ~>) $ s "sn/2"
  ]
-}

d3 $
  whenmod 3 2 (slow 2) $
  (whenmod 4 2 $ density 3) $
  s "[[vb vb:1] ~]/2"
  # end (slow 1.4 "0.2 0.4")
  # speed (slow 2.5 "1 -1")
  # vowel "e o"

mapM_ ($ silence) [d2,d5]

hush