Skip to content

Instantly share code, notes, and snippets.

@Sciss

Sciss/MyHeart_199_iter1_no475s.scala

Created September 5, 2015 21:54
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save Sciss/db5a60eff31d6009a38f to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save Sciss/db5a60eff31d6009a38f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
MyHeart_199_iter1_no475s.scala
play {
RandSeed.ir(trig = 1, seed = 123.0)
val in_0 = LeakDC.ar(119.41751, coeff = 0.995)
val lPF_0 = LPF.ar(in_0, freq = 10.0)
val henonC = HenonC.ar(freq = 0.00926502, a = Seq(17.394705, 17.395),
b = 1.6281785, x0 = 0.0, x1 = 0.054798387)
val in_1 = LeakDC.ar(119.41751, coeff = 0.995)
val delayC = DelayC.ar(in_1, maxDelayTime = 0.00926502, delayTime = 0.0034992173)
val in_2 = LeakDC.ar(119.41751, coeff = 0.995)
val onePole = OnePole.ar(in_2, coeff = 0.999)
val in_3 = LeakDC.ar(-686.3524, coeff = 0.995)
val a_0 = RHPF.ar(in_3, freq = 10.0, rq = 100.0)
val in_4 = LeakDC.ar(7433.657, coeff = 0.995)
val max_0 = onePole max 0.0
val time_0 = max_0 min 30.0
val lag2_0 = Lag2.ar(in_4, time = time_0)
val in_5 = LeakDC.ar(7433.657, coeff = 0.995)
val in_6 = HPZ1.ar(in_5)
val in_7 = LeakDC.ar(119.41751, coeff = 0.995)
val twoPole_0 = TwoPole.ar(in_7, freq = 440.0, radius = 1.0)
val lFTri = LFTri.ar(freq = 7433.657, iphase = 4.0)
val gbmanN_0 = GbmanN.ar(freq = twoPole_0, xi = Seq(119.41751, 119.42), yi = lFTri)
val wrap2 = 119.41751 wrap2 gbmanN_0
val max_1 = wrap2 max 0.0
val maxDelayTime_0 = max_1 min 20.0
val delayTime_0 = Constant(119.41751f) min maxDelayTime_0
val delayN_0 = DelayN.ar(lFTri, maxDelayTime = maxDelayTime_0, delayTime = delayTime_0)
val in_8 = LeakDC.ar(lag2_0, coeff = 0.995)
val max_2 = in_6 max 0.0
val timeDown_0 = max_2 min 30.0
val lagUD_0 = LagUD.ar(in_8, timeUp = 30.0, timeDown = timeDown_0)
val in_9 = LeakDC.ar(lagUD_0, coeff = 0.995)
val max_3 = delayN_0 max -1.0
val coeff_0 = max_3 min 1.0
val oneZero_0 = OneZero.ar(in_9, coeff = coeff_0)
val clip2_0 = oneZero_0 clip2 lagUD_0
val in_10 = LeakDC.ar(7433.657, coeff = 0.995)
val max_4 = lagUD_0 max 0.0
val pitchRatio_0 = max_4 min 4.0
val max_5 = oneZero_0 max 0.0
val pitchDispersion = max_5 min 1.0
val c = PitchShift.ar(in_10, winSize = 0.0034992173, pitchRatio = pitchRatio_0,
pitchDispersion = pitchDispersion,
timeDispersion = 0.0034992173)
val sqrsum = c sqrsum lagUD_0
val minus_0 = lagUD_0 - 119.41751
val freq_0 = LFDNoise1.ar(minus_0)
val in_11 = LeakDC.ar(5.0576534, coeff = 0.995)
val max_6 = c max 0.0
val timeUp_0 = max_6 min 30.0
val max_7 = minus_0 max 0.0
val timeDown_1 = max_7 min 30.0
val lagUD_1 = LagUD.ar(in_11, timeUp = timeUp_0, timeDown = timeDown_1)
val linCongN = LinCongN.ar(freq = onePole, a = a_0, c = -686.3524, m = -66.22471,
xi = lagUD_1)
val quadL = QuadL.ar(freq = freq_0, a = linCongN, b = 0.002318865, c = 36.321896,
xi = 1579.19)
val max_8 = linCongN max 0.0
val time_1 = max_8 min 30.0
val lag2_1 = Lag2.ar(onePole, time = time_1)
val in_12 = LeakDC.ar(0.39246875, coeff = 0.995)
val hPF_0 = HPF.ar(in_12, freq = 10.0)
val bitAnd = lag2_1 & hPF_0
val in_13 = LeakDC.ar(0.0018032823, coeff = 0.995)
val decay_0 = Decay.ar(in_13, time = 1.0)
val lFDNoise3 = LFDNoise3.ar(decay_0)
val tailLevel = delayN_0 min decay_0
val fold2_0 = tailLevel fold2 4.3698277
val in_14 = c < -0.023844872
val max_9 = lFTri max 0.55
val max_10 = wrap2 max 0.0
val revTime_0 = max_10 min 100.0
val max_11 = delayN_0 max 0.0
val damping_0 = max_11 min 1.0
val max_12 = onePole max 0.0
val spread_0 = max_12 min 43.0
val max_13 = lFTri max 0.55
val maxRoomSize_0 = max_13 min 300.0
val roomSize_0 = max_9 min maxRoomSize_0
val in_15 = GVerb.ar(in_6, roomSize = roomSize_0, revTime = revTime_0,
damping = damping_0, inputBW = 1.0, spread = spread_0,
dryLevel = delayN_0, earlyRefLevel = lag2_0, tailLevel = onePole,
maxRoomSize = maxRoomSize_0)
val max_14 = c max 10.0
val freq_1 = max_14 min 20000.0
val lPF_1 = LPF.ar(in_15, freq = freq_1)
val linCongC = LinCongC.ar(freq = lagUD_1, a = Seq(0.087519735, 0.0876), c = decay_0,
m = 17.394705, xi = lPF_1)
val in_16 = LeakDC.ar(linCongN, coeff = 0.995)
val bRZ2 = BRZ2.ar(in_16)
val roundTo_0 = lag2_0 roundTo lag2_0
val bitXor_0 = lag2_0 ^ 119.41751
val in_17 = LeakDC.ar(roundTo_0, coeff = 0.995)
val max_15 = bitXor_0 max 0.0
val dur_0 = max_15 min 30.0
val ramp = Ramp.ar(in_17, dur = dur_0)
val hPF_1 = HPF.ar(twoPole_0, freq = 10.0)
val henonL_0 = HenonL.ar(freq = roundTo_0, a = hPF_1, b = lPF_1, x0 = lagUD_0,
x1 = Seq(2257.039, 2257.1))
val in_18 = LeakDC.ar(8610.585, coeff = 0.995)
val max_16 = linCongN max 0.001
val winSize_0 = max_16 min 2.0
val max_17 = roundTo_0 max 0.0
val timeDispersion_0 = max_17 min winSize_0
val in_19 = PitchShift.ar(in_18, winSize = winSize_0, pitchRatio = 0.0,
pitchDispersion = 0.087519735,
timeDispersion = timeDispersion_0)
val in_20 = LeakDC.ar(7433.657, coeff = 0.995)
val dryLevel_0 = Delay2.ar(in_20)
val max_18 = dryLevel_0 max -13.466244
val max_19 = lFTri max 10.0
val freq_2 = max_19 min 20000.0
val max_20 = dryLevel_0 max 0.0
val radius_0 = max_20 min 1.0
val a_1 = TwoPole.ar(in_19, freq = freq_2, radius = radius_0)
val in_21 = LeakDC.ar(in_14, coeff = 0.995)
val max_21 = a_1 max 0.0
val delayTime_1 = max_21 min 0.0
val delayL = DelayL.ar(in_21, maxDelayTime = 0.0, delayTime = delayTime_1)
val minus_1 = in_6 - hPF_1
val in_22 = LinCongL.ar(freq = 0.18808211, a = gbmanN_0, c = wrap2, m = lag2_0,
xi = Seq(119.41751, 119.42))
val in_23 = LeakDC.ar(in_22, coeff = 0.995)
val combN = CombN.ar(in_23, maxDelayTime = 20.0, delayTime = 0.2, decayTime = wrap2)
val inputBW_0 = combN > sqrsum
val max_22 = in_22 max 0.01
val freq_3 = max_22 min 20000.0
val varSaw = VarSaw.ar(freq = freq_3, iphase = 0.0, width = 1.0)
val in_24 = varSaw thresh in_15
val max_23 = in_22 max 0.8
val coeff_1 = max_23 min 0.99
val in_25 = LeakDC.ar(545.17456, coeff = coeff_1)
val lPZ1 = LPZ1.ar(in_25)
val lag = Lag.ar(in_25, time = 30.0)
val max_24 = in_15 max 0.0
val timeUp_1 = max_24 min 30.0
val max_25 = roundTo_0 max 0.0
val timeDown_2 = max_25 min 30.0
val in_26 = LagUD.ar(in_25, timeUp = timeUp_1, timeDown = timeDown_2)
val in_27 = LeakDC.ar(in_26, coeff = 0.995)
val max_26 = lPF_1 max 10.0
val freq_4 = max_26 min 20000.0
val bPF = BPF.ar(in_27, freq = freq_4, rq = 0.01)
val excess = 545.17456 excess minus_1
val ring3_0 = excess ring3 0.18808211
val in_28 = LeakDC.ar(17.394705, coeff = 0.995)
val max_27 = c max 0.0
val revTime_1 = max_27 min 100.0
val max_28 = ring3_0 max 0.0
val inputBW_1 = max_28 min 1.0
val gVerb_0 = GVerb.ar(in_28, roomSize = 0.55, revTime = revTime_1, damping = 0.0,
inputBW = inputBW_1, spread = 0.4033064, dryLevel = minus_0,
earlyRefLevel = linCongN, tailLevel = 404.9955,
maxRoomSize = 0.55)
val max_29 = bPF max 0.0
val phase_0 = max_29 min 1.0
val impulse_0 = Impulse.ar(freq = 440.0, phase = phase_0)
val in_29 = LeakDC.ar(-0.020340122, coeff = 0.995)
val max_30 = impulse_0 max 0.001
val winSize_1 = max_30 min 2.0
val max_31 = gVerb_0 max 0.0
val pitchRatio_1 = max_31 min 4.0
val timeDispersion_1 = Constant(22.75913f) min winSize_1
val xi_0 = PitchShift.ar(in_29, winSize = winSize_1, pitchRatio = pitchRatio_1,
pitchDispersion = 0.0, timeDispersion = timeDispersion_1)
val in_30 = LeakDC.ar(in_24, coeff = 0.995)
val max_32 = xi_0 max 0.0
val delayTime_2 = max_32 min 2.2951372
val delayN_1 = DelayN.ar(in_30, maxDelayTime = 2.2951372, delayTime = delayTime_2)
val x0_0 = varSaw wrap2 0.56450105
val earlyRefLevel_0 = Constant(1.6281785f) max bPF
val in_31 = LeakDC.ar(0.0034328334, coeff = 0.995)
val max_33 = earlyRefLevel_0 max 0.0
val radius_1 = max_33 min 1.0
val yi_0 = TwoZero.ar(in_31, freq = 440.0, radius = radius_1)
val gbmanN_1 = GbmanN.ar(freq = minus_1, xi = Seq(0.15672906, 0.157), yi = yi_0)
val in_32 = LeakDC.ar(-66.22471, coeff = 0.995)
val in_33 = LPF.ar(in_32, freq = 119.41751)
val hPZ1_0 = HPZ1.ar(in_33)
val max_34 = hPZ1_0 max -0.999
val coeff_2 = max_34 min 0.999
val integrator_0 = Integrator.ar(lFTri, coeff = coeff_2)
val delay2 = Delay2.ar(delayN_0)
val max_35 = in_15 max 0.0
val release = max_35 min 30.0
val decay2 = Decay2.ar(onePole, attack = 0.21518144, release = release)
val in_34 = LeakDC.ar(lagUD_0, coeff = 0.995)
val integrator_1 = Integrator.ar(in_34, coeff = 0.999)
val in_35 = LeakDC.ar(lagUD_1, coeff = 0.995)
val oneZero_1 = OneZero.ar(in_35, coeff = 1.0)
val ring4 = bitXor_0 ring4 oneZero_1
val max_36 = bitXor_0 max 0.0
val phase_1 = max_36 min 1.0
val lFGauss = LFGauss.ar(dur = 1.0, width = 1.0, phase = phase_1, loop = decay2)
val ring2_0 = lFTri ring2 lFGauss
val impulse_1 = Impulse.ar(freq = 0.1, phase = 0.0)
val in_36 = LeakDC.ar(impulse_1, coeff = 0.995)
val bPZ2_0 = BPZ2.ar(in_36)
val henonL_1 = HenonL.ar(freq = decay2, a = impulse_1, b = Seq(0.268822, 0.269),
x0 = 5.6559896, x1 = -13.953196)
val in_37 = LeakDC.ar(1720.3104, coeff = 0.995)
val max_37 = lagUD_1 max 0.0
val time_2 = max_37 min 30.0
val in_38 = Lag.ar(in_37, time = time_2)
val in_39 = LeakDC.ar(in_38, coeff = 0.995)
val hPZ1_1 = HPZ1.ar(in_39)
val in_40 = LeakDC.ar(-66.22471, coeff = 0.995)
val max_38 = hPF_1 max 0.0
val dur_1 = max_38 min 30.0
val in_41 = Ramp.ar(in_40, dur = dur_1)
val in_42 = LeakDC.ar(in_41, coeff = 0.995)
val max_39 = in_19 max 10.0
val freq_5 = max_39 min 20000.0
val rHPF_0 = RHPF.ar(in_42, freq = freq_5, rq = 0.21518144)
val roundTo_1 = in_41 roundTo in_38
val max_40 = earlyRefLevel_0 max 0.0
val maxDelayTime_1 = max_40 min 20.0
val max_41 = roundTo_1 max 0.0
val delayTime_3 = max_41 min maxDelayTime_1
val delayN_2 = DelayN.ar(delayN_0, maxDelayTime = maxDelayTime_1,
delayTime = delayTime_3)
val ring2_1 = twoPole_0 ring2 oneZero_0
val in_43 = LeakDC.ar(-0.002844501, coeff = 0.995)
val max_42 = in_25 max 0.0
val time_3 = max_42 min 30.0
val decay_1 = Decay.ar(in_43, time = time_3)
val in_44 = LeakDC.ar(in_22, coeff = 0.995)
val max_43 = lPF_0 max 10.0
val freq_6 = max_43 min 20000.0
val max_44 = decay_1 max 0.01
val rq_0 = max_44 min 100.0
val rLPF = RLPF.ar(in_44, freq = freq_6, rq = rq_0)
val bitXor_1 = in_25 ^ 1720.3104
val sumsqr = impulse_1 sumsqr 0.27232122
val in_45 = LeakDC.ar(0.268822, coeff = 0.995)
val max_45 = delayC max 0.01
val rq_1 = max_45 min 100.0
val rHPF_1 = RHPF.ar(in_45, freq = 10.0, rq = rq_1)
val max_46 = lFGauss max 0.01
val freq_7 = max_46 min 20000.0
val lFCub = LFCub.ar(freq = freq_7, iphase = 0.0018872467)
val in_46 = decay_0 wrap2 0.18808211
val bPZ2_1 = BPZ2.ar(in_46)
val in_47 = LeakDC.ar(1.6281785, coeff = 0.995)
val max_47 = lPF_0 max 10.0
val freq_8 = max_47 min 20000.0
val twoPole_1 = TwoPole.ar(in_47, freq = freq_8, radius = 1.0)
val in_48 = LeakDC.ar(5.0576534, coeff = 0.995)
val max_48 = in_46 max 0.0
val maxDelayTime_2 = max_48 min 20.0
val max_49 = earlyRefLevel_0 max 0.0
val delayTime_4 = max_49 min maxDelayTime_2
val combL = CombL.ar(in_48, maxDelayTime = maxDelayTime_2, delayTime = delayTime_4,
decayTime = gbmanN_0)
val min = ring3_0 min 0.99113363
val freq_9 = 7433.657 roundUpTo lagUD_0
val freq_10 = LinCongC.ar(freq = freq_9, a = a_1, c = lPF_1, m = lFTri, xi = xi_0)
val x1_0 = QuadN.ar(freq = 810.59796, a = 1.0, b = henonL_0, c = c, xi = -1682.418)
val henonN = HenonN.ar(freq = freq_10, a = Seq(0.29676825, 0.297), b = 810.59796,
x0 = x0_0, x1 = x1_0)
val fold2_1 = yi_0 fold2 freq_10
val hypot = gVerb_0 hypot delayL
val in_49 = LeakDC.ar(8610.585, coeff = 0.995)
val lag2_2 = Lag2.ar(in_49, time = 1.076416)
val ring3_1 = -0.023844872 ring3 min
val in_50 = LeakDC.ar(-0.023844872, coeff = 0.995)
val max_50 = onePole max 0.0
val maxDelayTime_3 = max_50 min 20.0
val delayTime_5 = Constant(0.29676825f) min maxDelayTime_3
val xi_1 = CombN.ar(in_50, maxDelayTime = maxDelayTime_3, delayTime = delayTime_5,
decayTime = 0.0060483017)
val max_51 = xi_1 max 0.1
val freq_11 = max_51 min 20000.0
val impulse_2 = Impulse.ar(freq = freq_11, phase = 7.008627E-4)
val clip2_1 = -1682.418 clip2 ring2_0
val in_51 = LeakDC.ar(0.27232122, coeff = 0.995)
val decay_2 = Decay.ar(in_51, time = 30.0)
val in_52 = LeakDC.ar(0.27232122, coeff = 0.995)
val lPZ2 = LPZ2.ar(in_52)
val difsqr = 0.27232122 difsqr in_14
val eq = 0.30899763 sig_== delayN_0
val decayTime_0 = StandardN.ar(freq = 0.18808211, k = onePole, xi = Seq(0.30899763, 0.309),
yi = 0.29676825)
val hypotx = 1579.19 hypotx quadL
val in_53 = LeakDC.ar(1579.19, coeff = 0.995)
val max_52 = oneZero_0 max 0.0
val revTime_2 = max_52 min 100.0
val max_53 = in_25 max 0.0
val damping_1 = max_53 min 1.0
val max_54 = decayTime_0 max 0.0
val inputBW_2 = max_54 min 1.0
val max_55 = excess max 0.0
val spread_1 = max_55 min 43.0
val max_56 = tailLevel max 0.55
val maxRoomSize_1 = max_56 min 300.0
val roomSize_1 = Constant(18.025406f) min maxRoomSize_1
val gVerb_1 = GVerb.ar(in_53, roomSize = roomSize_1, revTime = revTime_2,
damping = damping_1, inputBW = inputBW_2, spread = spread_1,
dryLevel = impulse_1, earlyRefLevel = 0.11021214,
tailLevel = hPF_1, maxRoomSize = maxRoomSize_1)
val in_54 = LeakDC.ar(2816.9287, coeff = 0.995)
val allpassN = AllpassN.ar(in_54, maxDelayTime = 0.18808211, delayTime = 0.0034992173,
decayTime = minus_0)
val in_55 = LeakDC.ar(0.21518144, coeff = 0.995)
val max_57 = decay2 max -1.0
val coeff_3 = max_57 min 1.0
val oneZero_2 = OneZero.ar(in_55, coeff = coeff_3)
val in_56 = LeakDC.ar(18.025406, coeff = 0.995)
val max_58 = in_22 max 0.0
val timeUp_2 = max_58 min 30.0
val max_59 = roundTo_0 max 0.0
val timeDown_3 = max_59 min 30.0
val in_57 = LagUD.ar(in_56, timeUp = timeUp_2, timeDown = timeDown_3)
val in_58 = LeakDC.ar(in_57, coeff = 0.995)
val max_60 = gVerb_0 max 0.0
val revTime_3 = max_60 min 100.0
val max_61 = allpassN max 0.0
val damping_2 = max_61 min 1.0
val max_62 = excess max 0.55
val maxRoomSize_2 = max_62 min 300.0
val roomSize_2 = Constant(0.55f) min maxRoomSize_2
val gVerb_2 = GVerb.ar(in_58, roomSize = roomSize_2, revTime = revTime_3,
damping = damping_2, inputBW = inputBW_0, spread = 0.005251896,
dryLevel = dryLevel_0, earlyRefLevel = earlyRefLevel_0,
tailLevel = tailLevel, maxRoomSize = maxRoomSize_2)
val max_63 = in_57 max 0.0
val phase_2 = max_63 min 1.0
val impulse_3 = Impulse.ar(freq = 810.59796, phase = phase_2)
val in_59 = LeakDC.ar(0.11021214, coeff = 0.995)
val max_64 = lPF_1 max 0.0
val delayTime_6 = max_64 min 20.0
val combC = CombC.ar(in_59, maxDelayTime = 20.0, delayTime = delayTime_6,
decayTime = decayTime_0)
val in_60 = LeakDC.ar(-284.21997, coeff = 0.995)
val bRF = BRF.ar(in_60, freq = 10.0, rq = 0.01)
val max_65 = in_57 max 0.0
val iphase_0 = max_65 min 1.0
val lFPar = LFPar.ar(freq = 0.01, iphase = iphase_0)
val sqrdif = lFPar sqrdif a_0
val impulse_4 = Impulse.ar(freq = 464.2062, phase = 0.0)
val lorenzL = LorenzL.ar(freq = 0.023465427, s = twoPole_0, r = Seq(0.268822, 0.269),
b = minus_1, h = 0.005251896, xi = xi_1, yi = lagUD_1,
zi = henonL_0)
val in_61 = LeakDC.ar(1.076416, coeff = 0.995)
val max_66 = bRZ2 max 10.0
val freq_12 = max_66 min 20000.0
val twoPole_2 = TwoPole.ar(in_61, freq = freq_12, radius = 1.0)
val amclip = -5652.056 amclip bRF
val impulse_5 = Impulse.ar(freq = 0.1, phase = 0.011918449)
val leq = -665.74 <= xi_0
val in_62 = LeakDC.ar(-665.74, coeff = 0.995)
val bPZ2_2 = BPZ2.ar(in_62)
val mix = Mix(Seq(henonC, clip2_0, bitAnd, lFDNoise3, fold2_0, linCongC, ramp,
max_18, lPZ1, lag, delayN_1, gbmanN_1, integrator_0, delay2,
integrator_1, ring4, bPZ2_0, henonL_1, hPZ1_1, rHPF_0, delayN_2,
ring2_1, rLPF, bitXor_1, sumsqr, rHPF_1, lFCub, bPZ2_1, twoPole_1,
combL, henonN, fold2_1, hypot, lag2_2, ring3_1, impulse_2,
clip2_1, decay_2, lPZ2, difsqr, eq, hypotx, gVerb_1, oneZero_2,
gVerb_2, impulse_3, combC, sqrdif, impulse_4, lorenzL, twoPole_2,
amclip, impulse_5, leq, bPZ2_2
))
val checkBadValues = CheckBadValues.ar(mix, id = 0.0, post = 0.0)
val gate = checkBadValues sig_== 0.0
val in_64 = Gate.ar(mix, gate = gate)
val pan2 = Pan2.ar(in_64, pos = 0.0, level = 1.0)
Out.ar(0, Limiter.ar(LeakDC.ar(pan2) * Line.ar(1, 0, 60, doneAction = freeSelf)))
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment