plat.spi.spi

sop_cc motion: 0.0
#sop2_cc motion: 0.2
#sop2_cc motion: 0.1
#sop2_on :A4, mode: 4

live_loop :c, sync: :metro do
  tick
#  stop
  score =  (ing
    [[[:A2 2]]  2]
#    [[[:gS4 0.25]]                             0.5]
#    [[[:CS3 2] [:E4 2] [:GS3 2]]                2]
#    [[[:fs3 0.25]]                              0.5]
    )
  s=score.look
  c=s[0]
  if spread(1,6).look
    #eek :Gs3, 10
  end
  with_transpose -12*0 do
    #piano root(c),(ring 35,40).look*1.3, sustain: c[0][-1] #if c.count == 1
    #piano2 c[0], 20
    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#, mode: 1*(ring 0, 1, 1).look(:inner), cutoff: 1.0 # formant: 0.5, # form_amp: 0.5,
    }
    #harp c[-2][0],10, mode: 4 if c[-2]
    #sop c[0][0],10, mode: 1
    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
    #at{
      #sleep s[-1]/2.0
      #eek c[0][-1], 100, sustain: 1, mode: 0, at: rand
    #}
    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
#strings_on :fS4, 1
#violin_on  :fS5, 1

live_loop :do, sync: :metro do
  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
        pp = (ing
           [d1g] d1a _ _    _ _ _ _
           _ _ _ _        _ _ _ _
           d1 _ _ _       _ _ _ _
           _ _ _ _        _ _ _ _

           d1 d1e _ _     _ _ _ _
           _ _ _ _        _ _ _ _
           m1 _ _ _       _ _ _ _
          _ _ _ _        _ _ _ _

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

          d1 d1e _ _     _ _ _ _
          _ _ _ _        _ _ _ _
          m1 _ _ _       _ _ _ _
          _ _ _ _        _ _ _ _

          #s1 t1 _ _    _ _ _ _
          ).look
        pp2=(ing
          7 _ _ _   _ _ _ _
          _ _ _ _   _ _ _ _
          _ _ _ _   _ _ _ _
          _ _ _ _   _ _ _ _
          _ _ _ _   _ _ _ _
          _ _ _ _   _ _ _ _
          _ _ _ _   _ _ _ _
          _ _ _ _   _ _ _ _
          _ _ _ _   _ _ 6 _).look
        pp2=_
        pp=_
        dripkit(pp2,1) if pp2 && pp2.is_a?(Integer)
        if pp
          #fx = :none
          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/8.0, decay: 1){
          smp pp, amp: 1*accent+(rand*0.1),
          rate: (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: 90#, cutoff: (ramp 40,127,256*4).tick(:aaashoo2t)
          #}
        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])

  with_transpose -12*1 do
    if spread(1,2).look
#      bass :E3, 120, sustain:
    end
  end

#  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.1*(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
    comment do
      sharp :E4, 1, sustain: (3*3)#/3
    end
  end
end

@cp||=nil
live_loop :do_not_sync_on_sudden, sync: :sudden do;z=nil;tick
  live_loop :c {stop}
  with_transpose 12*0 do
    if spread(1,6).look #spread(1,4).look  # 4th?   #1/2 * 1-6  3
      cp = (ring
        [:A2,  :Cs4, :E3],
        [:CS3, :E4, :GS3],
        _,
        [:A3,  [:Cs4,:CS5].choose, :E3],
        [:CS3, :E4, :GS4],
        _,
        [:A2, :CS3, :E3],
        [:E3, :Gs4, :CS4],  #E G C
        [:E3, :Fs4, :B3],   #E-F-B
        _,
        [:E3,  :GS4, :B3],
        [:D3,  :Gs4, :A3],
        [:D3,  :Fs4, :A3],
        _,
        [:Fs3, :B3, :D4],
        [:B3, :Fs4, :D4],
        [:FS3, :A3, :Cs4],
        [:E3, :Gs3, :B3],
        [:A3, :B3,  :E4],
        [:A3, :D4, :E4],
        _,
        [:A2,  :Cs4, :E3],
        [:CS3, :E4, :GS3],
        _,
        [:A2, :CS4, :E3],
        [:E3, :Gs4, :CS4],  #E G C
        [:E3, :Fs4, :B3],   #E-F-B
        [:B3, :E4, :Gs3],
        _,
        [:E3, :GS4, :B3],
        [:D3, :Gs4, :A3],
        [:D3, :Fs3, :A3],
        _,
        [:Fs3, :B3, :D4],
        [:B3, :Fs4, :D4],
        [:FS3, :B3, :Cs4],
        [:E3, :Gs3, :B3],
        [:A3, :D3, :E4],
        [:A3, :Cs4, :E3, :B4],
        _
        )
      tick_reset(:inner)
      c=cp.tick(:inner)
      @cp ||= c
      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=[]
      #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]"

      pf=1.0
      with_transpose 12*0 do
        zero  c[0], (ing 30 10 30 10).look
        #with_transpose 9 { eek c[2], 50, sustain: 2,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], 40*pf, sustain: 2)
        i.call(c[4], 30*pf, sustain: 8)

        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}

        if @cp && @cp[1] != c[1]
          @cp = c
          with_transpose -12*1 do
              #strings c[1],1, sustain: 2
              if spread(1,2).tick(:notall)
                #violin  c[0], 20,  sustain: 4.0, mode: 1
                #violin2 c[-1], 1, sustain: 6.0
              end
              #piano2 c[1], 40, sustain: 2
              #violin c[1], 100, sustain: 2
            end
          end
        end
      end
    end

    z=(ing
      :D4 :D4 :D4 :D4  _ _ _ _
      :E4  _ _ _       _ _ _ _
      :D4  _ _ _       _ _ _ _
      :B4  _ _ _       _ _ _ _
      :Fs4 _ _ _       _ _ _ _
      :E4  _ _ _       _ _ _ _
      :A3  _ _ _       _ _ _ _
      :A3  _ _ _       _ _ _ _
      ).look
    z=(ing
      :GS4 :Cs4 _ :A3 _ :E4 _ :A4 :A4 :A4 :A4 :A4
      :Gs4 :Cs4 _ :A3 _ :B3 _ :A4 :A4 :A4 :Fs4 :A4
      ).look

    #z=_
    puts z if look % 9 == 0
    piano z, (ing 70 65 55).look * 1.1, sustain: 4/2.0
    #zero z, (ing 30 10 30 10).look

    if spread(1,9).look
      with_transpose (1*12) do
        #musicbox z,10, sustain: 1/8.0#*3
      end
    end
  end
  sleep 1
  with_transpose 12 do
    #eek z, 20, sustain: 2.0, at: 1.0, mod: 1.0
  end
  if spread(1,1).look && (ing 1 1 _   1 _ _   1 _ 1   _ 1 _).look
    with_transpose 0*(ing -5 0 0  0 0 0   0 0 -5  0 0 0 ).look do
      #violin z, 1, sustain: 2
      #violin2 z, 50, sustain: 1.5, shape: 0.58 #, deform: 0.5, mul: 0, shape: 0.58, at: 0
    end
    if false #z==:Cs4
      at{sleep 1/2.0;
        violin2 :E3, 1,  sustain: 4.0
        violin  :E4, 10, sustain: 4.0
        violin_cc at: 0.1
      }
    end
  end
  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]] _ _ _  ts[8] _ _ _    k1 _ _ _   _ _ _ _
      k1 _ _ _       _ _ _ _        k4 _ _ _   _ _ _ k7
      k1 _ _ _       _ _ _ _        k4 _ _ _   _ _ _ k7
      k1 _ _ _       _ _ _ _        k5 _ _ _   _ _ [f1 0.99] _
      kt[4] _ _ _    _ _ _ _        k1 _ _ _   _ _ _ _
      k1 _ _ _       _ _ _ _        k4 _ _ _   _ _ _ k7
      k1 _ _ _       _ _ _ _        k4 _ _ _   _ _ _ k7
      k1 _ _ _       _ _ _ _        k5 _ _ _   _ _ [f1 0.99] _)

    k3=(ing
      kt[5] _ k7 _    _ _ _ _
      tt[23] _ _ _        _ _ _ _
      _ _ _ _     _ _ tc[1] _

      kt[6] _ _ _     _ _ _ _
      _ _ _ _        _ _ _ _

      _ _ _ _     tc[4] _ tc[2] _
      )

    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
    if k && k!=kt[3] && kt[6] != k
      #midi :Fs3, channel: 1
    end
    #k=_
    #uncomment{
    cue(:sudden) if k && spread(1,64).look
    violin_x  if k && spread(1,64).look
    strings_x  if k && spread(1,64).look
    #}
    sidechain if k && spread(1,4).look
    condi = 1
    r= 1
    accent=1
    if k.is_a?(Array) && k.count == 1
      accent = 1.1
      k=k[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
        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
    sleep 1/8.0
  }
end

with_fx :none, mix: 0 do
  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
            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, rate: (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: 90#, 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

          # smp c5, amp: (ing
          #   0.5 0.125 0.5 0.8
          #   0.5 0.125 0.8 0.125
          #   0.125 0.125 0.8 0.125
          #   0.125 0.125 0.125 0.8).look, pan: 0.0125
          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