Skip to content

Instantly share code, notes, and snippets.

@Sciss

Sciss/Negatum-observe.scala

Last active October 16, 2016 21:36
Show Gist options

  • Select an option

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

Select an option

Learn more about clone URLs
Save Sciss/494fe8c1f7acea67e6c0999868777c84 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Negatum-observe.scala
def Protect(in: GE, lo: Double, hi: Double, dynamic: Boolean): GE = {
val c1 = if (lo.isInfinite) in else in.max(lo)
val c2 = if (hi.isInfinite) c1 else c1.min(hi)
if (dynamic) LeakDC.ar(c2) else c2
}
def NegatumOut(in: GE): Unit = {
val ok = CheckBadValues.ar(in, post = 0) sig_== 0
val gate = Gate.ar(in, ok)
Out.ar(0, LeakDC.ar(gate.clip2(1)) * 0.47)
}
// ---- 33f31e90 ----
play {
// NegatumIn()
val lFDNoise3 = LFDNoise3.ar(Seq.fill(2)(0.2656262))
val freq_0 = Protect(0.2656262, 10.0, 20000.0, false)
val in_0 = Blip.ar(freq = freq_0, numHarm = 200.0)
val in_1 = Protect(0.2656262, -inf, inf, true)
val combN = CombN.ar(in_1, maxDelayTime = 0.2656262, delayTime = 0.2656262,
decayTime = 429.69058)
val excess = combN excess combN
val freq_1 = Protect(excess, 10.0, 20000.0, false)
val radius = Protect(429.69058, 0.0, 1.0, false)
val twoPole = TwoPole.ar(in_0, freq = freq_1, radius = radius)
val freq_2 = Protect(combN, 10.0, 20000.0, false)
val saw = Saw.ar(freq_2)
val freq_3 = Protect(twoPole, 0.01, 20000.0, false)
val iphase = Protect(saw, 0.0, 4.0, false)
val lFTri = LFTri.ar(freq = freq_3, iphase = iphase)
val freq_4 = Protect(in_0, 10.0, 20000.0, false)
val width = Protect(twoPole, 0.0, 1.0, false)
val pulse = Pulse.ar(freq = freq_4, width = width)
val in_2 = Protect(0.2656262, -inf, inf, true)
val hPZ1 = HPZ1.ar(in_2)
val freq_5 = Protect(0.2656262, 10.0, 20000.0, false)
val numHarm_0 = Protect(0.2656262, 1.0, inf, false)
val blip = Blip.ar(freq = freq_5, numHarm = numHarm_0)
val difsqr = pulse difsqr 0.2656262
val in_3 = Protect(combN, -inf, inf, true)
val bRZ2 = BRZ2.ar(in_3)
val min = 0.2656262 min excess
val mix = Mix(Seq[GE](lFDNoise3, lFTri, hPZ1, blip, difsqr, bRZ2, min))
NegatumOut(mix)
}
// ---- 4c307b49 ----
play {
val lFDNoise3 = LFDNoise3.ar(Seq.fill(2)(-1.4766873))
val freq_0 = Protect(-1.4766873, 10.0, 20000.0, false)
val numHarm_0 = Protect(-1.4766873, 1.0, inf, false)
val blip_0 = Blip.ar(freq = freq_0, numHarm = numHarm_0)
val in_0 = Protect(-1.4766873, -inf, inf, true)
val freq_1 = Protect(-1.4766873, 10.0, 20000.0, false)
val radius = Protect(-1.4766873, 0.0, 1.0, false)
val twoZero = TwoZero.ar(in_0, freq = freq_1, radius = radius)
val excess = twoZero excess twoZero
val d = excess min blip_0
val min_0 = d min excess
val min_1 = d min d
val min_2 = min_1 min d
val tailLevel = min_2 min d
val sqrdif = min_2 sqrdif min_0
val in_1 = Protect(twoZero, -inf, inf, true)
val earlyRefLevel = BRZ2.ar(in_1)
val min_3 = -1.4766873 min earlyRefLevel
val freq_2 = Protect(sqrdif, -inf, inf, false)
val a = Protect(min_2, -3.0, 3.0, false)
val b = Protect(blip_0, 0.5, 1.5, false)
val c = Protect(min_0, 0.5, 1.5, false)
val xi = Protect(sqrdif, -inf, inf, false)
val yi = Protect(d, -inf, inf, false)
val latoocarfianC = LatoocarfianC.ar(freq = freq_2, a = a, b = b, c = c, d = d, xi = xi, yi = yi)
val numHarm_1 = Protect(latoocarfianC, 1.0, inf, false)
val blip_1 = Blip.ar(freq = 440.0, numHarm = numHarm_1)
val in_2 = Protect(twoZero, -inf, inf, true)
val freq_3 = Protect(blip_1, 10.0, 20000.0, false)
val rLPF = RLPF.ar(in_2, freq = freq_3, rq = 1.0)
val wrap2 = excess wrap2 min_0
val dryLevel = wrap2 scaleneg earlyRefLevel
val in_3 = Protect(lFDNoise3, -inf, inf, true)
val protect = Protect(min_3, 0.55, inf, false)
val revTime = Protect(blip_0, 0.0, 100.0, false)
val damping = Protect(-1.4766873, 0.0, 1.0, false)
val inputBW = Protect(min_0, 0.0, 1.0, false)
val spread = Protect(rLPF, 0.0, 43.0, false)
val maxRoomSize = Protect(d, 0.55, 300.0, false)
val roomSize = protect min maxRoomSize
val gVerb = GVerb.ar(in_3, roomSize = roomSize, revTime = revTime, damping = damping,
inputBW = inputBW, spread = spread, dryLevel = dryLevel,
earlyRefLevel = earlyRefLevel, tailLevel = tailLevel, maxRoomSize = maxRoomSize)
val mix = gVerb
NegatumOut(mix)
}
// ---- c685de4 ----
play {
val in_0 = Protect(429.69058, -inf, inf, true)
val hPZ1 = HPZ1.ar(in_0)
val min_0 = hPZ1 min 429.69058
val lFDNoise3 = LFDNoise3.ar(Seq.fill(2)(429.69058))
val bRZ2 = BRZ2.ar(lFDNoise3)
val in_1 = Protect(429.69058, -inf, inf, true)
val maxDelayTime = Protect(min_0, 0.0, 20.0, false)
val protect = Protect(min_0, 0.0, inf, false)
val delayTime = protect min maxDelayTime
val combN = CombN.ar(in_1, maxDelayTime = maxDelayTime, delayTime = delayTime,
decayTime = lFDNoise3)
val excess = combN excess combN
val min_1 = 429.69058 min excess
val freq_0 = Protect(combN, 10.0, 20000.0, false)
val saw = Saw.ar(freq_0)
val numHarm = Protect(combN, 1.0, inf, false)
val in_2 = Blip.ar(freq = 429.69058, numHarm = numHarm)
val bitOr = in_2 | bRZ2
val freq_1 = Protect(excess, 10.0, 20000.0, false)
val radius = Protect(hPZ1, 0.0, 1.0, false)
val twoPole = TwoPole.ar(in_2, freq = freq_1, radius = radius)
val thresh = saw thresh twoPole
val freq_2 = Protect(in_2, 10.0, 20000.0, false)
val width = Protect(twoPole, 0.0, 1.0, false)
val pulse = Pulse.ar(freq = freq_2, width = width)
val difsqr = pulse difsqr lFDNoise3
val freq_3 = Protect(twoPole, 0.01, 20000.0, false)
val iphase = Protect(saw, 0.0, 4.0, false)
val lFTri = LFTri.ar(freq = freq_3, iphase = iphase)
val mix = Mix(Seq[GE](min_1, bitOr, thresh, difsqr, lFTri))
NegatumOut(mix)
}
// ---- 830de3a7 ----
play {
val iphase_0 = Protect(1.6980077, 0.0, 1.0, false)
val lFCub_0 = LFCub.ar(freq = Seq(0.1764286, 0.1764286 * 1.1), iphase = iphase_0)
val in_0 = Protect(-1.4766873, -inf, inf, true)
val freq_0 = Protect(0.1764286, 10.0, 20000.0, false)
val twoPole = TwoPole.ar(in_0, freq = freq_0, radius = 0.22132039)
val in_1 = Protect(0.1764286, -inf, inf, true)
val timeDown = Protect(twoPole, 0.0, 30.0, false)
val lag2UD = Lag2UD.ar(in_1, timeUp = 0.22132039, timeDown = timeDown)
val freq_1 = Protect(0.1764286, 10.0, 20000.0, false)
val saw_0 = Saw.ar(freq_1)
val freq_2 = Protect(0.22132039, 10.0, 20000.0, false)
val saw_1 = Saw.ar(Seq(freq_2, freq_2 * 1.1))
val in_2 = Protect(-1.4766873, -inf, inf, true)
val a = CombL.ar(in_2, maxDelayTime = 0.22132039, delayTime = 0.22132039,
decayTime = 0.22132039)
val in_3 = Protect(a, -inf, inf, true)
val bRZ2 = BRZ2.ar(in_3)
val freq_3 = Protect(bRZ2, -inf, inf, false)
val b_0 = Protect(-1.4766873, 0.5, 1.5, false)
val c = Protect(saw_1, 0.5, 1.5, false)
val latoocarfianC = LatoocarfianC.ar(freq = freq_3, a = -1.4766873, b = b_0, c = c, d = 0.1764286,
xi = -1.4766873, yi = -1.4766873)
val freq_4 = Protect(latoocarfianC, 10.0, 20000.0, false)
val pulse = Pulse.ar(freq = freq_4, width = 0.22132039)
val in_4 = Protect(0.2656262, -inf, inf, true)
val b_1 = DelayN.ar(in_4, maxDelayTime = 1.6980077, delayTime = 0.1764286)
val freq_5 = Protect(b_1, -inf, inf, false)
val x1 = Protect(lag2UD, -inf, inf, false)
val henonN = HenonN.ar(freq = freq_5, a = 1.6980077, b = b_1, x0 = 209.59813, x1 = x1)
val bitXor = henonN ^ pulse
val dur = Protect(b_1, 5.0E-5, 100.0, false)
val phase = Protect(bRZ2, 0.0, 1.0, false)
val lFGauss = LFGauss.ar(dur = dur, width = 0.1764286, phase = phase, loop = 0.2656262,
doneAction = doNothing)
val freq_6 = Protect(saw_0, 0.01, 20000.0, false)
val iphase_1 = Protect(latoocarfianC, 0.0, 1.0, false)
val lFCub_1 = LFCub.ar(freq = freq_6, iphase = iphase_1)
val min_0 = lFCub_1 min 0.1764286
val min_1 = min_0 min 209.59813
val min_2 = min_1 min lag2UD
val freq_7 = Protect(-1.4766873, 0.01, 20000.0, false)
val lFPar = LFPar.ar(freq = freq_7, iphase = 0.2656262)
val min_3 = lFPar min lFCub_1
val freq_8 = Protect(min_2, 10.0, 20000.0, false)
val numHarm = Protect(a, 1.0, inf, false)
val blip = Blip.ar(freq = freq_8, numHarm = numHarm)
val min_4 = min_3 min blip
val min_5 = min_4 min 0.2
val min_6 = min_5 min 0.2
val min_7 = min_6 min min_0
val min_8 = min_7 min 0.2656262
val freq_9 = Protect(b_1, -inf, inf, false)
val xi_0 = Protect(min_4, -inf, inf, false)
val cuspL = CuspL.ar(freq = freq_9, a = a, b = 0.2, xi = xi_0)
val difsqr = pulse difsqr 0.2656262
val min_9 = blip min saw_0
val mix = Mix(Seq[GE](lFCub_0, bitXor, lFGauss, min_8, cuspL, difsqr, min_9))
NegatumOut(mix)
}
// ---- 4b5d25cb ----
play {
val freq_0 = Protect(0.07843334, 10.0, 20000.0, false)
val numHarm_0 = Protect(0.07843334, 1.0, inf, false)
val in_0 = Blip.ar(freq = Seq(freq_0, freq_0 * 1.1), numHarm = numHarm_0)
val maxDelayTime_0 = Protect(77.88994, 0.0, 20.0, false)
val delayTime_0 = 0.07843334 min maxDelayTime_0
val combN = CombN.ar(in_0, maxDelayTime = maxDelayTime_0, delayTime = delayTime_0,
decayTime = 0.07843334)
val neq = in_0 sig_!= combN
val amclip = neq amclip in_0
val pow = combN pow amclip
val freq_1 = Protect(in_0, 0.01, 20000.0, false)
val iphase_0 = Protect(pow, 0.0, 1.0, false)
val width_0 = Protect(pow, 0.0, 1.0, false)
val varSaw = VarSaw.ar(freq = Seq(freq_1, freq_1 * 1.1), iphase = iphase_0, width = width_0)
val numHarm_1 = Protect(varSaw, 1.0, inf, false)
val blip = Blip.ar(freq = 77.88994, numHarm = numHarm_1)
val min_0 = blip min pow
val min_1 = -5.0 min varSaw
val freq_2 = Protect(min_0, 0.01, 20000.0, false)
val iphase_1 = Protect(min_1, 0.0, 1.0, false)
val lFCub_0 = LFCub.ar(freq = freq_2, iphase = iphase_1)
val min_2 = blip min lFCub_0
val freq_3 = Protect(combN, 10.0, 20000.0, false)
val width_1 = Protect(min_1, 0.0, 1.0, false)
val pulse = Pulse.ar(freq = freq_3, width = width_1)
val freq_4 = Protect(min_0, 0.01, 20000.0, false)
val iphase_2 = Protect(77.88994, 0.0, 1.0, false)
val lFCub_1 = LFCub.ar(freq = freq_4, iphase = iphase_2)
val min_3 = varSaw min pow
val min_4 = min_1 min varSaw
val in_1 = Protect(-5.0, -inf, inf, true)
val winSize = Protect(varSaw, 0.001, 2.0, false)
val pitchRatio = Protect(blip, 0.0, 4.0, false)
val pitchDispersion = Protect(lFCub_0, 0.0, 1.0, false)
val protect = Protect(min_4, 0.0, inf, false)
val timeDispersion = protect min winSize
val pitchShift = PitchShift.ar(in_1, winSize = winSize, pitchRatio = pitchRatio,
pitchDispersion = pitchDispersion, timeDispersion = timeDispersion)
val in_2 = Protect(-5.0, -inf, inf, true)
val maxDelayTime_1 = Protect(77.88994, 0.0, 20.0, false)
val delayTime_1 = 0.07843334 min maxDelayTime_1
val delayC = DelayC.ar(in_2, maxDelayTime = maxDelayTime_1, delayTime = delayTime_1)
val dur = Protect(-5.0, 5.0E-5, 100.0, false)
val width_2 = Protect(min_2, 0.0, 1.0, false)
val phase = Protect(-5.0, 0.0, 1.0, false)
val lFGauss = LFGauss.ar(dur = dur, width = width_2, phase = phase, loop = 77.88994,
doneAction = doNothing)
val mix = Mix(Seq[GE](pulse, lFCub_1, min_3, pitchShift, delayC, lFGauss))
NegatumOut(mix)
}
// ---- b9b659f9 ----
play{
val freq_0 = Protect(-2.4721158, 0.01, 20000.0, false)
val iphase_0 = Protect(146.13713, 0.0, 1.0, false)
val lFCub = LFCub.ar(freq = Seq(freq_0, freq_0 * 1.09), iphase = iphase_0)
val in_0 = Protect(lFCub, -inf, inf, true)
val hPF = HPF.ar(in_0, freq = 146.13713)
val in_1 = Protect(hPF, -inf, inf, true)
val coeff = Protect(-2.4721158, -0.999, 0.999, false)
val loop = OnePole.ar(in_1, coeff = coeff)
val min_0 = loop min -5.0
val in_2 = Protect(loop, -inf, inf, true)
val freq_1 = Protect(hPF, 10.0, 20000.0, false)
val lPF = LPF.ar(in_2, freq = freq_1)
val min_1 = lPF min lPF
val min_2 = min_1 min loop
val scaleneg = min_2 scaleneg loop
val min_3 = loop min scaleneg
val thresh = min_0 thresh min_3
val dur = Protect(lFCub, 5.0E-5, 100.0, false)
val width_0 = Protect(1.2935092, 0.0, 1.0, false)
val phase = Protect(1.2935092, 0.0, 1.0, false)
val lFGauss = LFGauss.ar(dur = dur, width = width_0, phase = phase, loop = loop,
doneAction = doNothing)
val min_4 = loop min min_3
val min_5 = min_4 min min_3
val min_6 = min_5 min min_3
val in_3 = Protect(min_6, -inf, inf, true)
val freq_2 = Protect(min_3, 10.0, 20000.0, false)
val rq = Protect(min_1, 0.01, 100.0, false)
val rHPF = RHPF.ar(in_3, freq = freq_2, rq = rq)
val min_7 = loop min min_4
val min_8 = min_7 min loop
val freq_3 = Protect(min_8, 0.01, 20000.0, false)
val iphase_1 = Protect(min_2, 0.0, 1.0, false)
val width_1 = Protect(1.2935092, 0.0, 1.0, false)
val lFPulse = LFPulse.ar(freq = freq_3, iphase = iphase_1, width = width_1)
val freq_4 = Protect(lFPulse, -inf, inf, false)
val xi_0 = Protect(lPF, -inf, inf, false)
val yi_0 = Protect(lFPulse, -inf, inf, false)
val gbmanL = GbmanL.ar(freq = Seq(freq_4, freq_4 * 1.09), xi = xi_0, yi = yi_0)
val min_9 = gbmanL min loop
val min_10 = gbmanL min rHPF
val freq_5 = Protect(lFPulse, 10.0, 20000.0, false)
val numHarm = Protect(min_6, 1.0, inf, false)
val blip = Blip.ar(freq = freq_5, numHarm = numHarm)
val min_11 = blip min loop
val min_12 = min_11 min loop
val min_13 = min_12 min loop
val min_14 = min_13 min loop
val min_15 = min_14 min loop
val k = min_15 min loop
val min_16 = scaleneg min 146.13713
val min_17 = min_16 min lFPulse
val min_18 = min_17 min -2.4721158
val xi_1 = Protect(min_18, -inf, inf, false)
val yi_1 = Protect(min_0, -inf, inf, false)
val standardL = StandardL.ar(freq = Nyquist(), k = k, xi = xi_1, yi = yi_1)
val bitOr = k | loop
val min_19 = bitOr min loop
val min_20 = lFPulse min hPF
val freq_6 = Protect(scaleneg, 0.01, 20000.0, false)
val iphase_2 = Protect(min_20, 0.0, 1.0, false)
val lFPar = LFPar.ar(freq = freq_6, iphase = iphase_2)
val in_4 = Protect(-5.0, -inf, inf, true)
val winSize = Protect(loop, 0.001, 2.0, false)
val pitchRatio = Protect(min_6, 0.0, 4.0, false)
val pitchDispersion = Protect(gbmanL, 0.0, 1.0, false)
val protect = Protect(min_19, 0.0, inf, false)
val timeDispersion = protect min winSize
val pitchShift = PitchShift.ar(in_4, winSize = winSize, pitchRatio = pitchRatio,
pitchDispersion = pitchDispersion, timeDispersion = timeDispersion)
val mix = Mix(Seq[GE](thresh, lFGauss, min_9, min_10, standardL, lFPar, pitchShift))
NegatumOut(mix)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment