super-jill.tidal

super-jill.tidal

-- import Sound.Tidal.Scales

import Sound.Tidal.Drum.Jungle as J

cps 0.666

let drums' p = d1 p
    hats p = d2 p
    mando p = d3 $
              degradeBy 0.25 $
              stut 2 1 0.75 $
              ((# n (choose phrygian)) . (# s "supermandolin")) p
    compa p = d4 $ (# s "supercomparator") p
    mel p = compa p >> mando p

mel $
  fadeOut 8 $ 
  every 23 (sometimesBy 0.25 (
              superimpose (# vowel "i") .
              (# gain "0.35") .
              (# n (fmap(+12) $ choose phrygian))
              )
          ) $
  n "[0 ~ ~ 0][~ 0 ~ 0]"
  # n (fmap(subtract 12) $ choose phrygian)
  # vowel "[a i u e o]/5"
  # decay "0.75"
  # speed (sometimes (fmap(subtract 0.5)) "1")
  # sustain "2"
  # gain "0.45"
  # room "1"
  # orbit "1"

drums' $
  randcat[
    sometimes (within (0.5,1)(stut 2 1 0.75 . slow 2 . chop 2 . striate 2)) $
    stack[
      n "[0 ~ ~ 0][~ 0 ~ ~]"
      # s "super808" # n "1",
      n "[~ ~ 0 ~][~ ~ ~ 0]"
      # s "superclap"
      # pitch1 (sometimes (fmap(+1)) "0.5")
      ],
    stack[
      randcat[n (J.bd!!0), n (J.oh)] # s "super808" # n "1",
      n (J.sn!!0) # s "superclap"
      # pitch1 (every 2 (sometimes (fmap(+1))) "0.5")
      ]
    ]

hats $
  sometimesBy 0.25 (within(0,0.1)(striate 8) . within(0.1, 0.3)(slow 8)) $ 
  stack[
    every 3 ((off 0.01 (slow 4 . striate 8 . id))) $ 
    within(0.5,1)(stut 2 1 0.75) $
    n "[0 ~ 0 ~][0 0 ~ 0]"
    # s "superhat" # sustain "0.05",
    stut 4 1 0.75 $
    n "[~ ~ ~ 0/4][~ ~ 0/2 ~]"
    # s "superhat" # sustain "0.1" -- (every 3 (sometimesBy 0.25 (fmap(+0.15))) "0.1")
    ]


hush