nestedAllpassC.help.hs

-- nestedAllpassL
let sig = soundIn 0
    nc = 2
    nestedAllpassL_def s =
      let d1 = 0.036
          d2 = 0.030
      in X.nestedAllpassL s d1 d1 0.08 d2 d2 0.3
    doubleNestedAllpassL_def s =
      let d1 = 0.0047
          d2 = 0.022
          d3 = 0.0084
      in X.doubleNestedAllpassL s d1 d1 0.15 d2 d2 0.25 d3 d3 0.3
    fb = localIn nc ar 0
    lp0 = lpf sig 6000
    lp1 = delayL lp0 0.024 0.024
    ap1 = doubleNestedAllpassL_def (lp1 + (0.5 * fb))
    ap2 = nestedAllpassL_def ap1
    revout = ap1 * 0.5 + ap2 * 0.6
    locout = localOut (bpf (revout * 0.5) 1600 0.5)
    rev = mrg2 revout locout
in sig + (rev * 0.5)

-- nestedAllpassL
let sig = soundIn 0
    nc = 2
    fb = localIn nc ar 0
    lp = lpf sig 6000
    ap1 = X.doubleNestedAllpassL (lp + (0.5 * fb)) 0.0047 0.0047 0.25 0.0083 0.0083 0.35 0.022 0.022 0.45
    ap2 = delayL (X.nestedAllpassL (delayL ap1 0.05 0.05) 0.03 0.03 0.25952 0.03 0.03 0.3) 0.067 0.067
    ap3 = X.nestedAllpassL (lp + (delayL ap2 0.015 0.015 * 0.4)) 0.0292 0.0292 0.25 0.0098 0.0098 0.35
    revout = sum_opt [ap1,ap2,ap3] * 0.5
    locout = localOut (bpf (revout * 0.4) 1000 0.5)
    rev = mrg2 revout locout
in sig + (rev * 0.5)

-- nestedAllpassL
let sig = soundIn 0
    nc = 2
    fb = localIn nc ar 0
    lp = lpf sig 4000
    ap1 = allpassL (lp + (0.5 * fb)) 0.008 0.008 0.0459
    ap2 = delayL (allpassL ap1 0.012 0.012 0.06885) 0.004 0.004
    ap3 = delayL (X.nestedAllpassL (delayL ap2 0.017 0.017) 0.025 0.025 0.5 0.062 0.062 0.25) 0.031 0.031
    ap4 = X.doubleNestedAllpassL (delayL ap3 0.003 0.003) 0.120 0.120 0.5 0.076 0.076 0.25 0.030 0.030 0.25
    revout = sum_opt [ap4 * 0.8,ap3 * 0.8,ap2 * 1.5]
    locout = localOut (bpf (revout * 0.4) 1000 0.5)
    rev = mrg2 revout locout
in sig + (rev * 0.5)