final.spi.spi

sop_cc motion: 0.0
#sop2_cc motion: 0.2
#sop2_cc motion: 0.1
#sop2_on :A2, mode: 4
@align=false
live_loop :Fall_Into_Your_Screen, sync: :metro do
  tick
  stop
  score =  (ing
    [[[:b3, 2]],  2],
    [[[_, 0.25]],  2],
    [[[:fs3, 2]],  2],
    [[[_, 0.25]],  2],

 #,   [[[:gS4, 0.25]],                             0.5],
 #,   [[[:CS3, 2], [:E4, 2], [:GS3, 2]],                2],
 #,   [[[:b3, 0.25]],                              0.5],
    )
  s=score.look
  c=s[0]
  if spread(1,6).look
    eek :Gs3, 10
  end
  with_transpose -12 {
    #midi root(c),100, channel: 5, sustain: 2
  }
  with_transpose -12*0 do
    #harp root(c),10
    piano root(c),(ring 35,40).look*1.3, sustain: c[0][-1] #if c.count == 1
    c.each{|n|tick(:inner);
      sop n[0],1.0*(ing 80, 70, 85, 70,).look(:inner), sustain: ((n[-1])*1)+0.5, mode: 0
    }
    with_transpose 12*0  do
      violin root(c), 127*1.0, mode: 1#, defon: 0.0, at: 0.0 #, sustain: 1 , form: 0.0, shape: 0.0, mul: 4, at: 1.0
    end
    sleep s[-1]
    strings c[0][-2], 35
    if spread(1,3).look
      with_fx :gverb, room: 200.0, mix: 0.8, release: 8, spread: 0.9 do
        with_fx :slicer, phase: 1/8.0 do
          smp Drip[/effect/].look, amp: 0.4, cutoff: 100, rate: -0.125, attack: 0.5
        end
      end
    end
    sleep (s[-1])*1
  end
end

#eek :Cs4, 20, mode: 2, sustain: 4
no do
fn="on"
method("strings_#{fn}").call(:e4, 1)
method("violin_#{fn}").call(:e5, 1)
end
#midi_note_off :a1, channel: 5

live_loop :percussion, sync: :metro do
  sync :entry if @align
  d1,d2,d3,d4 = *Drip[/cymbal/,[0,2,3,4]]
#  with_fx :gverb, room: 10, release: 0.25, mix: 0.2 do
    with_fx :echo, mix: 1*(ring 0.025+rand*0.1,0.055+rand*0.1,0.03,0.02,0.01).look, phase: (ring 1/4.0, 1/8.0).look do
      s1 = Drip[/snare/,/resin/].tick(:i);
      t1 = Tape[/snare/].tick(:i);
      c1 = Tape[/cymbal/].tick(:i);
      c2 = Tape[/cymbal/].tick(:i);
      c3 = Tape[/cymbal/].tick(:i);
      d1c = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/c#01.wav";
      d1d = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/d01.wav";
      d1e = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/e01.wav";
      d1f = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/f#01.wav";
      d1g = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/g#01.wav";
      d1a = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/a-01.wav";
      d1b = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/b01.wav";

    8.times{
      m1 = Mountain[/microperc/,[0,0,7,0,0,7]].look;
      with_swing 0.01,2 do
        tick
        zz=Drip[/fx/,[_,_,_,_,_,_,_,_,_,_,_,42]].look(:pp)
        f  =(ing :reverb, :reverb, :echo,).look(:pp)
        dd = Tape[/_high/,[20,49,49,50,52,56,
                    20,49,49,50,52,56]].look(:pp)
        h1=Tape[/_high/,[50,49]].look(:pp)
        pp = (ing
          [d1g], d1a, _, dd,    _, _, _, _,
          _, _, _, _,           _, _, _, _,
          d1, _, _, _,          h1, _, _, _,
          _, _, _, _,           _, _, _, _,

          d1, d1e, _, _,     _, _, _, _,
          _, _, _, _,        _, _, _, _,
          m1, _, _, _,       _, _, _, _,
          _, _, _, _,        _, _, _, %l{dd},

          [d1g], d1a, _, _,    _, _, _, _,
          _, _, _, _,        _, _, _, _,
          d1, _, _, _,       _, _, _, _,
          _, _, _, _,        _, _, _, _,

          d1, d1f, _, _,     _, _, _, _,
          _, _, _, _,        _, _, _, _,
          m1, _, _, _,       _, _, _, _,
          _, _, _, _,        _, _, _, _,
          ).look
        ppz =(ing  #1.5,   12, @, 1/8,   -18, /, 19,   20/21,  24,  25/26/27,
          _, _, _, _,     _, _, _, _,    _, _, _, _,   _, _, _, _,
          h1, _, _, _,    _, _, _, _,    _, _, _, _,   _, _, _, _,

          _, _, _, _,    _, _, _, _,    _, _, _, _,   _, _, _, _,
          _, _, _, _,    _, _, _, _,     _, _, _, _,   _, _, _, _,

          _, _, _, _,     _, _, _, _,
          ).look

        dripkit(7,1) if pp && pp.is_a?(Integer)
        pp=_
        if pp
          tick(:pp)
          fx = :none
          cutoff_bump=(pp.is_a?(Array) ? 15 : rand_i(10))
          accent = (pp.is_a?(Array) ? 0.7 : 0.4)*1
          if pp && pp.is_a?(Hash)
            fx = pp.values[0]
            pp = pp.keys[0]
          end
          with_fx(fx, phase: 1/3.0, decay: 1.5, room: 250, spread: 0.8, damp: 0.5,pre_damp:0.5,release:6){
            if ppz
              with_fx :slicer, phase: 1/4.0 do
                smp h1, amp: 1.0, attack: (ing 0.03, 0.01,).look, rate: (ing 0.25, 0.25, 0.125, 0.125,).look(:pp)
              end
            end
            yes do
              fuzz = rand(0.09)
              if (pp != dd && pp != h1)
                with_fx :echo, mix: 0.5, phase: 1/4.0, decay: 2 {
              smp pp, amp: accent+5.0, attack: 0.0, start: 0.1-fuzz, rate: (knit
                -0.5,32,-0.25,32,
                -0.5-fuzz, 1,-0.5,31,
                    -0.25-fuzz,1,-0.25,31).look
                }
              end
              smp pp, amp: (3+accent+(rand*0.1))*0,
              rate: -2*(knit 1.1,4, 1.0,2).look, pan: (ing
                0.25, 0.25, -0.25, -0.25,  0.25, -0.25,
                0.5,  0.5,  -0.25, -0.25,  0.25, -0.5,
                0.5,  0.5,  -0.25, -0.25,  0.25, -0.5,
                ).look, cutoff: (ing 110, 80,).look+cutoff_bump #, cutoff: (ramp 40,127,256*4).tick(:aaashoo2t)
            end
          }
        end
        sleep 1/8.0
    end
    }
    end
  #  end
end

live_loop :music, sync: :metro do;z=nil;s=nil;#tick
  harp_cc phase: 0.5,  mod: 0.0, cutoff: 0.02, bass: 0.0, mode: 0
  score = (ing
    [_, 3.0],
    [:D3, 3.0],     [:A3, 3.0],     [:E4, 3.0],
    [:A3,  1/4.0],  [:A3, 1/4.0],   [_, 1/4.0],     [:A3, 1/4.0],
    [_, 1/4.0],     [:A3,  1/4.0],  [:A3, 1/4.0],   [_, 1/4.0],
    [:A3, 1/4.0],   [_, 1/4.0],     [:A3,  1/4.0],  [:A3, 1/4.0],
    [_, 1/4.0], [:A3, 1/4.0], [_, 1/4.0], [_, 1/4.0],  #1.25,
    )

  #harp_on :D3
  #score = (ing [_, 3], [:A3, 3], [:D3, 3], [:E3, 3],)
  score = (ing [:A3, 3], [:D3, 3], [:E3, 3], [:B3, 3], [:FS3, 3], [:E3, 3],)
  score = (ing [:A2, 3],)
  #s = score.tick
  #harp s, 0.25*(ring 20,20,20, 30,40,40, 40,60,80).look, sustain: s[-1]*2

  score = (knit
    [:A3, 3/4.0],3, [:Cs4,1.0],3,
    [:A3,2/4.0],3,  [:E4,3/4.0],1,
    [:A3,1.0],1,    [:E4,2/4.0],1
    )
  #score = space()
  s = score.tick
  s1 = (ing
        :A3, :FS4, :E4, :D4, :A4,
        :A3, :FS4, :E4, :D4, :E4,
        :A3, :FS4, :E4, :D4, :D3,
        :B3, :FS4, :E4, :D4, :D4,
        ).tick(:s)
  #harp s1, 0.2*(ring 15,25).look(:s), sustain: (ring 1/4.0,1.0).look(:s) #0.1*(ring 20,20,20, 30,40,40, 40,60,80).look
  sleep s[-1]
  sleep 3/4.0

  if spread(1,3).look
    no do
      sharp :E4, 1, sustain: (3*3)#/3
    end
  end
end

@cp||=nil
live_loop :It_is_Dark_in_here, sync: :sudden do;z,z2,z3,v=nil;tick
  live_loop :Fall_Into_Your_Screen {stop}
  with_transpose 12*0 do
    if spread(1,6).look #spread(1,4).look  # 4th?   #1/2 * 1-6  3
      c2p = (ring
        [:A2,  :Cs4, :E3, :B4], [:CS3, :E4, :GS3, :D4],
        _,
        [:A3,  [:Cs4,:CS5].choose, :E3, :B4], [:CS3, :E4, :GS4, :D4],
        _,
        [:A2, :CS3, :E3, :A3], [:E3, :Gs4, :CS4, :Fs4], [:E3, :Fs4, :B3, :Fs4],
        #_,
        #[:E3,  :GS4, :B3, :Fs4], [:D3,  :Gs4, :A3, :E4], [:D3,  :Fs4, :A3, :E4],
        _)
      cp = (ring
        [:A2,  :Cs4, :E3], [:CS3, :E4, :GS3],
        _,
        [:A3,  [:Cs4,:CS4].choose, :E3], [:CS3, :E4, :GS4],
        _,
        [:A2, :CS3, :E3], [:E3, :A4,  :CS4], [:E3, :Fs4, :B4],
        _,
        [:E3,  :GS3, :B4], [:E3, :Fs4, :B3], [:D3, :Fs4, :A3],
        _,
        [:Fs3, :B3, :D4],  [:B3,  :Fs4, :D4], [:FS3, :A3, :Cs4],
        [:E3,  :Gs3, :B3], [:A3,  :B3,  :E4], [:A3,  :D4,  :E4],
         _,

        [:A2,  :Cs3, :E3], [:CS3, :E3, :GS3],
        _,
        [:A2,  :Cs4, :E3, :B3], [:CS3, :E4, :FS3, :B3],
        _,
        [:A2, :CS4, :E3], [:E3, :Gs4, :CS4], [:E3, :Fs4, :B3],
        _,
        [:E3, :GS4, :B3], [:D3, :Gs4, :A3], [:D3, :Fs3, :A3],
        _,
        [:Fs3, :B3, :D4], [:B3,  :e4, :D4], [:B3,  :fs4, :D4],
        _,
        [:FS3, :A3, :D4], [:FS3, :A3, :Cs4], [:E3, :Gs3, :B3],
        [:A3, :D3, :E4],  [:A2, :A3, :Cs4, :E3, :B4],
        _,
        )
      tick_reset(:inner)
      c=cp.tick(:inner)
      @cp ||= c
      if !c
        eek (ing
             :gs3, :e3, :b2, _, :gs0,
             :gs3, :fs3, :cs3, _, _, _,
             ).tick(:missing), (ing 100, 120,).look(:missing), sustain: 3.0, at: 0.0, mod: 0.0
        eek_cc at: (ing 0.0,  0.0,).look(:missing)
        violin (ing :gs3, :fs3, :E3, :Fs3, :A3, _, _, _,  _, _, _,).look(:missing)
      end
      if c
        with_transpose -1*12 do
          if c.count > 3
            #violin c[0][-1], 1*(ing 30, 10, 30, 50,).look(:inner), sustain: 4
          end
        end
        with_transpose -12*2 do
          #bass c[0][0], (ring 120,80,117,85).look(:inner), sustain: 2.0
        end

        #sop c[0], mode: 10, formant: 0.7, form_amp: 0.0
        #c=[]
        cue :entry unless c.empty?
        #sharp c[0], 2, sustain: 4
        #sop c[1], 3, sustain: 4
        #sop c[2], 3, sustain: 4
        puts "#{Note.resolve_note_name(c[0]) if c[0]} <- [Piano]"
        with_transpose 12 do
          #violin  c[1], 60, sustain: 2
          #zero  c[0], 80, sustain: 5
          #violin2 c[1], 80, sustain: 2
        end
        with_transpose -12 do
          #violin c[1], 88, sustain: 2
        end
      pf=1.0
      with_transpose 12*0 do
        zero c[0], (ing 30, 10, 30, 10,).look
        #with_transpose 12 { eek c[2], 60, sustain: 4,mode: 2}

        i = (method :piano)
        i.call(c[0], 60*pf, sustain: 4)
        i.call(c[1], 50*pf, sustain: 4)
        i.call(c[2], 55*pf, sustain: 4)
        i.call(c[3], 65*pf, sustain: 2)
        i.call(c[4], 30*pf, sustain: 8)
        i.call(c[5], 30*pf, sustain: 8)

        puts c
        you = (method :sop)
        #sop2(c[0], 120, sustain: 2.0, mode: 0)
        #with_transpose((ing 12, 7,).look){you.call(c[1], 15, sustain: 2.0, mode: 0)}
        #you.call(c[2], 30, sustain: 2.0)
        #you.call(c[3], 30, sustain: 2.0)
        #you.call(c[4], 34, sustain: 8.0)
        #with_transpose 12 {eek c[-2], sustain: (ing 2, 0.125,).look}
        #at{sleep 1; sop_cc motion: [0.2,0.1,0.0].choose}

        at{sleep 0.25; with_transpose(-12){violin c[1], 10, sustain: 0.5}}
          puts "#{@cp[1]} #{c[1]}"
          if @cp && @cp[1] != c[1]
            puts "HIT IT"
          @cp = c
          with_transpose -12*0 do
            #strings c[1],1, sustain: 2
            if spread(1,2).tick(:notall)
              violin note(c[0]-12), 20,  sustain: 4.0, mode: 1
              #violin2 c[-1], 1, sustain: 6.0
            end
          end
          with_transpose -12*1{piano2 c[1], 40, sustain: 2 }
          #violin c[1], 100, sustain: 2
          end
        end
      end
    end

    z=(ing
      :D4, :D4, :D4, :D4,  _, _, _, _,
      :E4,  _, _, _,       _, _, _, _,
      :D4,  _, _, _,       _, _, _, _,
      :B4,  _, _, _,       _, _, _, _,
      :Fs4, _, _, _,       _, _, _, _,
      :E4,  _, _, _,       _, _, _, _,
      :A3,  _, _, _,       _, _, _, _,
      :A3,  _, _, _,       _, _, _, _,
      ).look
    z=(ing
      _, _, [:GS4, 3], [:GS4, 1], _, _,   _, _, [:E4, 3],  _, _, _,
      _, _, _,  _, _, _,
      _, _, [:E4, 3],  [:E4, 1], _, _,    _, _, [:CS4, 3],  _, _, _,
      _, _, _,  _, _, _,
      _, _, [:A4, 6],   _, _, _,  _, _, _,  _, _, [:B4, 6],   _, _, _, _, _, _,
      _, _, _,  _, _, _,
      _, _, [:Fs4, 2], _, _, _,   _, _, [:GS4, 2],  _, _, _,   _, _, _, _, _, _,
      _, _, [:Fs4, 1], _, [:Fs4, 1], _,
      _, _, [:Fs4, 2], _, _, _,     _, _, [:FS4, 2], _, _, _,
      _, _, _, [:Fs4, 2], _, _,     _, _, [:A3, 2],  _, _, _,
      _, _, _, _, _, _,     _, _, _,  _, _, _,
      _, _, _, _, _, _,
      ).look
    z2=(ing
      :gs4, :Cs4, _, :A3, _, :E4, _, :A4, :A4, :A4, :A4, :A4,
      :gs4, :Cs4, _, :A3, _, :B3, _, :A4, :A4, :A4, :Fs4, :A4,
      ).look

    v=false
    #z=_;v=false
    if z
      puts z if look % 9 == 0
      harp z#[0], (ing 60, 60, 60,  50, 50, 40,  60, 60, 60,  50, 50, 40,).look*1.1, sustain: z[1]
      piano z, (ing 70, 65, 55,).look * 1.1, sustain: 4/2.0
      #zero z, (ing 30, 10, 30, 10,).look
    end

    if spread(1,9).look
      with_transpose (1*12) do
        #musicbox z,10, sustain: 1/8.0#*3
      end
    end
  end
  #sleep 1
  sleep 1/2.0
end

live_loop :kick, sync: :drums do
  p=Dust[/perc/, /conga/] #MagicDust[/perc/,/stone/,[4..8]].look #*Dust[/perc/, [7,7]]
  k3 = Tape[/tom/,23]
  k2 = Tape[/tom/,22]
  k7 = Tape[/tom/,24]
  k4 = Mountain[/kick/,4]
  k5 = Lo[/kick/,15]
  k8 = Lo[/kick/,2]
  k6 = Drip[/orig_fx_12/,0]
  km = Lo[/kick/,/mid/]
  d1c = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/c#01.wav";
  d1d = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/d01.wav";
  d1e = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/e01.wav";
  d1f = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/f#01.wav";
  d1g = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/g#01.wav";
  d1a = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/a-01.wav";
  d1b = "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_cymbals/b01.wav";

  tc = Tape[/cymbals/]
  ts = Tape[/snares/]
  tt = Tape[/toms/]
  df = Drip[/fx/]
  kt = Lo[/kick/,/thin/]
  t1 = CineAmbi[/One shots/,/tom/,2]

  8.times{
    tick
    k1,k2,k3 = Frag[/kick/,9], Mountain[/subkick/,0], (knit Dust[/kick/,24],3, Dust[/kick/,25],3).look
    kd = Lo[/kick/,/dark/].look
    kk = Lo[/kick/,/clicky/].look
    kp = Lo[/kick/,/phat/].look

    cc = Drip[/cymbal/].look
    m1 = Mountain[/microperc/]
    dg=Drip[/fx/,/grind/,8]
    #k1 = Tape[/drum/,7]
    p1,p2,p3,p4 = *Crystal[/cymbal/,[32,18,12,13]]
    d1,d2,d3,d4 = *Drip[/cymbal/,[0,2,3,4]]
    d5 = Drip[/cymbal/,10]
    f3 = Drip[/fx/,/12/,14]
    f2 = Drip[/fx/,/88/,0]
    f1 = [
      #Drip[/Drip_orig_fx_08/,0],
      "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_effects/D-01.wav",
      "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_effects/D01.wav",
      "/Users/josephwilk/Workspace/music/samples/Tuned/Drip_effects/E01.wav"][2]
    cs = (0..17).map{|n| Crystal[/cymbal/].tick(:i)}
    c=Crystal[/cymbal/]
    cf=Crystal[/fx/]
    page1=(ing
      _, _, _,        _, _, _,
      _, _, _,        _, _, _,
      m1[1], _, _,    _, _, _,
      _, _, _,        _, _, _,
      _, _, _,        [m1[6]], m1[7], _,
      _, _, _,        _, _, _,)
    page2=(ing
      _, _, _,            _, _, _,
      _, _, _,            _, _, _,
      m1[7], _, _,        _, _, _,
      _, _, _,            _, _, _,
      _, _, _,            _, _, _,
      _, _, _,            _, _, _,)
    page3=(ing
      _, _, _,            _, _, _,
      _, _, _,            _, _, _,
      m1[6], _, _,        _, _, _,
      _, _, _,            _, _, _,
      _, _, _,            _, _, _,
      _, m1[1], [m1[1]],  m1[1], [m1[3]], _,

      _, _, _,            _, _, _,
      _, _, _,            _, _, _,
      m1[6], _, _,        _, _, _,
      _, _, _,            _, _, _,
      _, _, _,            _, _, _,
      _, _, [m1[1]],      _, [m1[3]], _,)
    pp=(knit page1.look, page1.count*2, page2.look, page2.count*2, page3.look, page3.count*2).look
    pp=_
    if pp
      with_fx :lpf, mix: 0.9 do
        drum_machine(pp)
      end
    end

    k=(ing
      k1, _, _, _,    k4, _, _, _,    k1, _, _, _,   k4, _, _, _,
      k1, _, _, _,    k4, _, _, _,    k1, _, _, _,   k4, _, _, t1,
      k1, _, k2, _,   k4, _, _, _,    k1, _, _, _,   k4, _, _, t1,
      k1, _, k2, _,   k3, _, _, _,    k1, _, _, _,   k4, _, _, _,

      k1, _, _, _,    k4, _, _, _,    k1, _, _, _,   k4, _, _, _,
      k1, _, _, _,    k4, _, _, _,    k1, _, _, _,   k4, _, _, t1,
      k3, _, k2, _,   k4, _, _, _,    k1, _, _, _,   k4, _, _, t1,
      k3, _, k3, _,   k2, _, _, _,    k1, _, _, _,   k4, _, _, _,)

    k=(ing
      [kt[1]], _, k7, _,  ts[8], _, _, _,      k1, _, _, _,   _, _, _, _,
      k1, _, _, _,       _, _, _, _,          k4, _, _, _,   _, _, _, k7,
      k1, _, _, _,       %l{tc[6]}, _, _, _,  k4, _, _, _,   _, _, _, k7,
      k1, _, _, _,       _, _, _, _,          k5, _, %l{tc[6]}, _,   _, _, [f1, 0.99], _,
      kt[4], _, k7, _,    _, _, _, _,          k1, _, _, _,   _, _, _, _,
      k1, _, _, _,       _, _, _, _,          k4, _, _, _,   _, _, _, k7,
      k1, _, _, _,       %l{tc[6]}, _, _, _,  k4, _, _, _,   _, _, _, k7,
      k1, _, _, _,       _, _, _, _,          k5, _, %e{tc[6]}, _,   _, _, [f1, 0.99], _,)

    # k=(ing
    #,   [kt[1]], _, k7, _,     tc[4], _, tc[1], _,   tt[23], _, _, _,     tc[4], _, _, _,
    #,   k1, _, _, _,           tc[5], _, tc[1], _,   kt[6], _, _,  _,     tc[4], _, _, _,
    #,   k1, _, _, _,           tc[6], _, _, _,       k4, _, _, _,     tc[4], _, tc[2], _,
    #,   )
    # k=(ing
    #,   [kt[1]], _, k7, _,     tc[4], _, tc[1], _,   tt[23], _, _, _,   tc[4], _, _, _,
    #,   _, _, _, _,            _, _, _, _,           kt[6], _, _, _,   tc[4], _, _, _,
    #,   _, _, _, _,            tc[6], _, _, _,       k4, _, _, _,      tc[4], _, tc[2], _,
    #,   )
    kz=(ing
      kt[6], _, k7, _,    tc[4], _, tc[1], _,    tt[23], _, _, _,   _, _, _, _,
      kt[1], _, _, _,     tc[4], _, tc[1], _,    tt[23], _, _, _,   tc[4], _, _, _,
      kt[1], _, _, _,     tc[4], _, tc[1], _,    tc[4], _, _, _,   tc[2], _, _, _,
      )

    kz=(ing
      [kt[6]], _, k7, _,   tc[4], _, tc[1], _,    tt[23], _, _, _,   _, _, _, _,
      _, _, _, _,    _, _, _, _,
      kt[1], _, _, _,   _, _, _, _,    %l{kt[1]}, _, _, _,    _, _, _, _,
      %l{tc[5]}, _, _, _,      tc[1], _, {tc[2]=>:reverb}, _,
      )

    d = dice(6) > 4
    if d
      p1 =tc[5]
      p2 =tc[2]
    else
      p1 =tc[4]
      p2 =tc[1]
    end

    kz=(ing
      #1,
      [kt[1]], _, k7, _,   _, _, _, _,              p1, _, p2,  _,              _, _, _, _,    _, _, _, _,                            _, _, {tc[1]=>:lpf}, _,
      kt[1], _, _, _,      _, _, _, {tc[1]=>:lpf},  _, _, _, _,                 _, _, _, _,   {tc[1]=>:lpf}, _, _, _,                 _, _, {tc[4]=>:lpf}, _,
      kt[1], _, _, _,      _, _, _, _,              {tc[23]=>:lpf}, _, _, _,    _, _, _, _,   {tc[23]=>:lpf}, _, {tc[22]=>:lpf}, _,   _, _, {tt[[2, 6].choose]=>:lpf}, _,
      )

    kz=(ing
      [kt[1]], _, k7, _,   _, _, _, _,   [tt[8]], _, _, _,    [tt[8]], _, _, _,   _, %h{tt[8]}, _, _,   _, _, _, _,
      kt[1], _, _, _,      _, _, _, _,   tt[8], _, _, _,    %l{tt[8]}, _, _, _,   %h{tt[8]}, _,  _, _,   _, _, _, f1,
      kt[1], _, _, _,      _, _, _, _,   tt[8], _, _, _,    %l{tt[8]}, _, _, _,   %e{tt[8]}, _, _, _,   _, _, %l{tt[[2, 6].choose]}, _,
      [kt[1]], _, k7, _,   _, _, _, _,   [tt[8]], _, _, _,    [tt[8]], _, _, _,   %h{tt[8]}, _, _, _,   _, _, _, f1,
      kt[1], _, _, _,      _, _, _, _,   tt[8], _, _, _,    %l{tt[8]}, _, _, _,   %h{tt[8]}, _, _, _,   _, _, _, _,
      kt[1], _, _, _,      _, _, _, _,   tt[8], _, %h{tt[8]}, _,    %l{tt[8]}, _, _, _,   %r{tt[3]}, _, %h{tt[8]}, _,   _, _, %l{tt[[2, 6].choose]}, _,)

    k=(ing
      [kt[1]], _, _, _,     _, _, _, _,   [tt[8]], _, _, _,  [tt[8]], _, _, _,   %h{tt[8]}, _, _, _,   _, _, _, f1,
      %b{kt[1]}, _, _, _,   _, _, _, _,   tt[8], _, _, _,    [tt[8]], _, _, _,   %h{tt[8]}, _, _, _,   _, _, _, f1,
      %p{kt[1]}, _, _, _,   _, _, _, _,   tt[8], _, %h{tt[8]}, _,    %l{tt[8]}, _, _, _,   %r{tt[8]}, _, %h{tt[8]}, _,   _, _, %l{tt[[2, 6].choose]}, _,)


    k=(ing
      [kt[1]], _, _, _,   tt[8], _, _, _,            %h{tt[8]}, _, _, _,   %h{tt[8]}, _, _, f1,
      %b{kt[1]}, _, _, _,    _, _, _, _,             _, _, _, _,   _, _, _, f1,
      )

    #p=_
    if spread(7*2,11*3).look && p
      with_fx :hpf do
        #smp tt[8], amp: 0.125
      end
      #(knit true,48,false,48).look ? tick(:i) : look(:i)
      #smp tt.look(:i), amp: (line 0.9, 1.0,128).look, rate: 0.25
    end
    if spread(4,31).look && p
      #(knit true,32,false,0).look ? tick(:i2) : look(:i2)
      smp Mountain[/microperc/,5], amp: 0.5
    end

    dx = Drip[/fx/,/orig/].shuffle.look  #24
    r = (ing d1a, d1d, d1e, d1f,).look
    k2=(ing
      _, _, _, _,                          _, _, _, _,
      _, _, _, _,                          _, _, _, _,
      [ts[49]], _, _, ts[12],              _, _, _, _,

      _, _, _, _,                          _, _, _, _,
      _, _, _, _,                          _, _, _, _,
      ts[7], _, _, _,                      _, _, _, _,

      _, _, _, _,                         _, _, _, _,
      _, _, _, _,                          _, _, _, _,
      tt[49], _, _, ts[12],                _, _, _, _,

      _, _, _, _,                          _, _, _, _,
      _, _, _, _,                          _, _, _, _,
      ts[7], _, _, _,                      _, _, _, _,
      )

    kp=k2.look
    fx=:lpf
    accent = (ing 0.2, 0.2, 0.3, 0.5,).look
    attack = 0.0
    r = 1.0
    if kp && kp.is_a?(Array)
      kp = kp[0]
      accent=accent*1.5
    end
    if kp && kp.is_a?(Hash)
      fx = kp.values[0]
      kp = kp.keys[0]
    end
    if kp==dx
      #eek :Gs3
      r=[-0.125, 0.125].choose
      attack=0.1
      fx=:slicer
    end

    kp=_
#    with_swing 0.01 {
    with_fx(fx, phase: (ing 1/4.0, 1/4.0, 1/8.0,).look){ smp kp, amp: accent, rate: r, attack: attack if kp}
#  }

    k=k.look
    k=_
    yes{
      if k && spread(1,64).look
        cue(:sudden)
        violin_x
        strings_x
        sync :entry
      end
    }
    sidechain if k && spread(1,4).look
    condi = 1
    r= 1
    fx=:none
    accent=1
    if k.is_a?(Array) && k.count == 1
      accent = 1.1
      k=k[0]
    end
    if k && k.is_a?(Hash)
      fx = k.values[0]
      k=k.keys[0]
    end
    if k.is_a?(Array)
      condi = k[1]
      k = k[0]
      r= [1.0].choose
    end
    if rand(1.0) <= condi
      with_fx :krush, mix: dice(6) > 5 ? 0.15 : 0.0 do
        if k == f1
          r = 0.25
        end
        with_fx fx, phase: 4/8.0 do
          smp k, amp: 1*accent*1.1*(knit 0.8,4, 0.6,4, 0.7,4, 0.6,4).look, finish: 1.0 , rate: r, v: 0.2, attack: (knit 0.0,12, 0.02,4, 0.0,8).look#,  rate: (knit 1,(6*4)-4, 0.85,4, 1,(6*4)-4, 0.75,4).look
        end
      end
    end
    sleep 1/8.0
  }
end

with_fx :none, mix: 0 do
  sync :entry if @align
  live_loop :drums, sync: :metro do
    #stop
    with_fx :level, amp: 0.5 do
      with_fx :reverb, mix: 0.4, room: 0.5, mix_slide: 0.5 do |r_fx|
        8.times{
          #sync '18'
          tick
          #sync "16"
          t1 = CineAmbi[/One shots/,/tom/,2]
          k1,k2,k3 = Frag[/kick/,9], Mountain[/subkick/,0], (knit Dust[/kick/,24],3, Dust[/kick/,25],3).look
          p=Dust[/perc/, /conga/] #MagicDust[/perc/,/stone/,[4..8]].look #*Dust[/perc/, [7,7]]
          k3 = Tape[/tom/,23]
          k2 = Tape[/tom/,22]
          k7 = Tape[/tom/,24]
          k4 = Mountain[/kick/,4]
          k5 = Lo[/kick/,15]
          k6 = Drip[/orig_fx_12/,0]
          #k1 = Tape[/drum/,7]
          p1,p2,p3,p4 = *Crystal[/cymbal/,[32,18,12,13]]
          d1,d2,d3,d4 = *Drip[/cymbal/,[0,2,3,4]]
          d5 = Drip[/cymbal/,10]
          f3 = Drip[/fx/,/12/,14]
          f2 = Drip[/fx/,/88/,0]
          f1 = [Drip[/Drip_orig_fx_08/,0]].choose

          c1 = CineAmbi[/one shot/,/cymbal/,1]
          c3 = CineAmbi[/one shot/,/cymbal/,3]
          c2 = CineAmbi[/one shot/,/cymbal/,6]
          c4 = CineAmbi[/one shot/,/cymbal/,0]
          s1,s2 = Mountain[/stick/,[4,2]]
          c1 = CineAmbi[/one shot/,/cymbal/,8]
          c4 = CineAmbi[/one shot/,/cymbal/,13]
          s1 = Tape[/cymbal/,8]
          c4 = Tape[/cymbal/,20]

          oc1 = CineAmbi[/one shot/,/cymbal/,5]
          t1 = Tape[/tom/,0]
          cd1 =  Drip[/fx/,/12/,1]
          t1 = Tape[/tom/,[28,28,22]].look

          if spread(1,16).look
            accent = spread(1,32).look ? 30 : 20
            #eek (ring :A1, :E2).tick(:in), accent, sustain: 1, at: rand(1.0), mod: rand(1.0), mode: 2
          end

          s=(ing
            d2, d1, _, _,    _, d1, _, _,   #1,
            c4, _, s1, _,    s1, _, _, _,  #2,

            d2, d1, _, _,    _, d1, _, _,   #3,
            c4, _, s1, _,    c3, _, _, _,  #4,

            d2, d1, _, _,    _, d1, _, _,   #5,
            c4, _, s1, _,    s1, _, _, _,  #6,

            d2, d2, _, _,    _, d1, _, _,   #7,
            f1, _, _, d5,    s1, _, d5, _,  #8,
            ).look

          s=(ing
            d2, d1,  _, _,   _, d1, _, _,
            _, _, _, _,      _, _, _, _,

            d2, d1, _, _,    _, d1, _, _,
            _, _, _, _,      _, _, _, _,

            d2, d1, _, _,    _, d1, _, _,
            _, _, _, _,      _, _, _, _,

            d2, d1,  _, _,   _, d1, _, _,
            f1, _, _, _,     _, _, _, _,
            ).look

          p1=Analog[/click/].look
          p1=d1
          ffx =(ing :hpf,).look
          pp=(ing
            [p1], _, _, _,   _, _, p1, _,
            _, _, p1, _,
            _, _, _, _,      _, _, {p1=>ffx}, _,
            _, _, [p1], _,
            ).look

          zpp=(ing
            [p1], _,
            p1, _, _, _,
            _, p1, _, _,
            _, _, p1, _,
            _, _, _, p1,
            _, _, p1,
            _, _, p1,
            ).look
          pp=_
          if pp
            accent = pp.is_a?(Array) ? 1.0 : 0.8
            cutoff_bump = rand_i(5)
            fx = :none
            if pp && pp.is_a?(Hash)
              fx = pp.values[0]
              pp = pp.keys[0]
            end
            with_fx(fx){
              smp pp, cutoff: (line 110, 115, 6*4).look, attack: (line 0.02, 0.0,6*2).look, amp: accent*(line 1.0,0.9,6*8).look+10, start: 0.5, rate: -0.25*(knit 1,(6*4)-4, 0.85,4, 1,(6*4)-4, 0.75,4).look, pan: (ing 0.25, 0.25, -0.25, 0.25,).look, cutoff: 110-cutoff_bump#, cutoff: (ramp 40, 120,256*3).tick(:fireandice)
            }
            if spread(1,6).look
              #smp MagicDust[:clack, [0,2,3,6]].tick(:insider), amp: 0.5*1, pan: (ring 0.25,-0.25).look(:inside)
            end
          end
          if pp && spread(3,7).look
            #smp Junk[/RedShaker/,18..22].tick(:i), amp: 0.2, pan: (ing 0.25, -0.25,).tick(:ingit)
          end

          c1 =  (knit Analog[/clapraw/].look,8,Analog[/clap1/].look,8,Analog[/clap2/].look,8,Analog[/clap3/].look,16).look
          c2 =  (knit Frag[/coil/,-31],16).look#, Analog[/clap/,16],16, Analog[/clap/,17],16).look
          c2 =  #(knit Frag[/coil/,-46],16).look#, Analog[/clap/,16],16, Analog[/clap/,17],16).look
          c3 =  (knit Frag[/coil/,/f#/,[2,2]].look,16).look#, Analog[/clap/,16],16, Analog[/clap/,17],16).look
          c2 = Analog[/click/].look
          c3 = Tape[/snare/,9]
          c2 = Tape[/snare/,10]
          c4 = Tape[/snare/,11]
          c5 = Tape[/cymbal/,[7,7,7,7]].look

          s=(ing
            c5, _, c5, _,  c5, _, [c5], c5,
            c5, _, c5, _,  c5, _, c5, _,
            c5, _, c5, _,  c5, _, c5, _,
            c5, _, c5, _,  c5, _, [c5], _,
            c5, _, _, _,   c5, _, _, _,
            c5, _, _, _,   _, _, _, _,
            c5, _, c5, _,  c5, _, _, _,
            c5, _, c5, _,  c5, _, [c5], _,
            ).look
          accent = 0.5
          if s.is_a?(Array)
            accent = 0.8
            s = s[0]
          end
          s=_
          with_swing 0.02 {
          smp s, amp: accent*0.5+(ing
            0.5, 0, 0.125, 0, 0.5, 0, 0.8, 0.5,
            0.5, 0, 0.125, 0, 0.8, 0, 0.125, 0,
            0.125, 0, 0.125, 0, 0.8, 0, 0.125, 0,
            0.125, 0, 0.125, 0, 0.125, 0, 0.8, 0,).look, pan: 0.0125, cutoff: (line 100, 127,64).look, pan: Math.sin(vt*13)/1.5
          }

          s=(ing
            _, _, _, _,   [c3], c3, _, _,   _, _, _, _,   c4, _, _, _,
            _, _, _, _,   c3, _, _, _,      _, _, _, _,   c2, _, _, _,
            _, _, _, _,   [c3], _, _, _,    _, _, _, _,   c2, _, c5, _,
            _, _, _, _,   c3, _, _, _,      _, _, _, _,   c4, _, _, _,
            _, _, _, _,   c3, {path:Analog[/clapraw/, 0], amp:0.125}, _, _,
            ).look

          s=_
          accent=(s.is_a?(Array) ? 1.0 : 0.5)
          if s.is_a?(Array)
            s = s[0]
          end
          fin=s != c2 ? (line 0.05, 0.01, 64).look : (line 1.0, 0.99, 2*64).look
          amp = if (s != _)
                  s.is_a?(String) ? 1.0 : (s[:amp] || 1.0)
                else
                  0
                end
          smp s,amp: amp*accent, cutoff: (ine 127, 110, 1024,).look#, finish: fin

          h = Crystal[/high/,4..32].look
          h = Mountain[/microperc/,[5,5,5,6]].look

          p=(ing
            _, _, h, _,  h, h, [h], h,
            _, _, h, _,  h, h, h, [h],
            _, _, h, _,  _, _, h, _,
            _, _, h, _,  _, _, h, {path:h, amp:0.3},
            _, _, h, _,  _, _, h, _,
            ).look

          accent = if (p != _)
                     accent = (p.is_a?(Array) ? 1.0 : 0.8)
                     if p.is_a?(String) || p.is_a?(Array)
                       0.5 + accent
                     else
                       (p[:amp] || accent+0.5)
                     end
                   else
                     0
                   end
          p = p.is_a?(Array) ? p[0] : p
          p=_
          if p
            #eek (ing :A2, _, :GS3,).look, (line 1,20).look, sustain: 1/12.0, mode: 1, at: (line 0.0,1.0,128).look
          end
          smp p, amp: accent, attack: (line 0.001,0.0,64).look, sustain: (knit 0.01,4,0.1,4,0.1,4).look#, sustain: (knit 0.1,4,0.0125,16,0.5,4).look

          h = Frag[/hat/,8]
          p=(ing _,  _, h,  _,   _,  _, h,  _,
            _,  _, h,  _,   _,  _, h,  _,
            _,  _, h,  _,   _,  _, h,  {path:h, amp:0.1},
            _,  _, h,  _,   _,  _, h,  _,).look
          p=_
          if(p && dice(6) > 1)
            amp = if (p != _)
                    p.is_a?(String) ? 0.3 : (p[:amp] || 0.3)
                  else
                    0
                  end
            with_fx :reverb, mix: 0.5, dry: 1.0 do
             #smp h, amp: amp+(line 0, 0.1, 64).look, rate: (knit 0.85, 4*5, 0.5, 4, 0.85,2*4).look, cutoff: (line 120,127,32).look
            end
          end

          sleep 1/8.0
          control r_fx, mix: rand(0.5)
        }
      end
    end
  end
end

live_loop(:metro) do
  tick
  cue("16") if look % 16.0 == 0.0
  cue("24") if look % 24.0 == 0.0
  cue("18") if look % 18.0 == 0.0
  cue("32") if look % 32.0 == 0.0
  cue("64") if look % 64.0 == 0.0
  #  midi_start if tick == 0
  #  midi_clock_beat 1.0, port: :iac_bus_1
  sleep 1.0
end

live_loop :sixteen, sync: :drums do
  tick
  c1 = CineElec[/one shots/,/pepper/]
  c1 = Tape[/_high/,49]
  s=(ing
    _, _, _, _,   _, _, _, _,   _, _, _, _,   _, _, _, _,             _, _, _, _,   _, _, _, _,   _, _, _, _,   _, _, _, _,
    _, _, _, _,   _, _, _, _,   _, _, _, _,   _, _, _, _,             _, _, _, _,   _, _, _, _,   _, _, _, _,   _, _, _, c1,
    _, _, _, _,   _, _, _, _,   _, _, _, _,   _, _, _, _,             _, _, _, _,   _, _, _, _,   _, _, _, _,   _, _, _, _,
    _, _, _, _,   _, _, _, _,   _, _, _, _,   _, _, _, _,             _, _, _, _,   _, _, _, _,   _, _, _, _,   _, _, _, _,
    ).look
  if s
    #smp Words[/beaut/], start: 0.0, finish: 1.0, rate: 1.0, amp: 1.5
    with_fx (knit :none, 3*128, :echo, 128).look do
      smp s, amp: 0.5, rate: (knit 1,2, 0.85,2, 1,2, 0.75,2).tick(:active)
    end
  end
  sleep 1/16.0
end