harmony and ur

harmony.tidal

do
  let key     = "[0 2 4]/6"
      mScale  = Sc.chromatic
      melody  = "[[7 4 5](5,8)]*2"
      harmony = "0"
      tonic   = "[0(3,8) [<[-7*2 -5*2] [3*2 5*2]>]]"
      bScale  = mScale
      bass    = tonic
  d1 $ slow 2
    $ (|+| n key) $ stack [
      n (toScale mScale melody) # octave "6",
      n (chords tonic harmony),
      n (toScale bScale bass) # octave "4"
    ]
    # s "[superwobble]"
    # lpf "10e3:0.1"
    # adsr "0.0:1:1.5:2"
    # gain "0.99" # orbit "0"

------

d1 $ ur' 4 "[ch1 ch2, ~ mel1:double]"
  [("ch1",  n "[c3, g3] [c3, g3]"   # s "superpiano"),
   ("ch2",  n "[fs3, as3] [c3, g3]" # s "superpiano"),
   ("mel1", n "a5 g5 c6 a5 g5 c6"   # s "superpiano"),
   ("mel2", n "c4 c5 g4 g5"         # s "superpiano")]
  [("double", fast 2)]

------

-- this doesn't work yet

do
  let key     = "[0 2 4]/6"
      melody  = toScale Sc.chromatic "[[7 4 5](5,8)]*2"
      tonic   = "[0(3,8) [<[-7*2 -5*2] [3*2 5*2]>]]"
      harmony = chords tonic "0"
      bass    = toScale Sc.chromatic tonic
      a = [n melody # octave "6", n harmony, n bass # octave "4"]
      fx =
        s "[superwobble]"
        # lpf "10e3:0.1"
        # adsr "0.0:1:1.5:2"
        # gain "0.99" # orbit "0"
  d1 $ ur' 4 "[a:mod b:mod]"
    [("a", stack a # fx),
     ("b", stack [
         n (toScale mScale melody) # octave "6",
         n (chords tonic harmony),
         n (toScale bScale bass) # octave "4"] # fx)
    [("mod", (|+| n key))]