Fred the Distorter true 2 2 kfrq = <freq> kdry = <dryMix> ilowf = 10 ihif = sr / 2 ivar = <var> kvarf = <varF> * kfrq kfAmin = <freqMin> kfAmax = <freqMax> kfAmid = (((kfAmax - kfAmin) / 2) + kfAmin) kfBmin limit kfrq / kfAmin, ilowf, ihif kfBmax limit kfrq / kfAmax, ilowf, ihif kfBmid limit kfrq / kfAmid, ilowf, ihif kfAmin limit kfAmin * kfrq, ilowf, ihif kfAmax limit kfAmax * kfrq, ilowf, ihif kfAmid limit kfAmid * kfrq, ilowf, ihif ifct = 2 kdelt = 1 / (kfBmax * ifct) isqr ftgentmp 0, 0, 2048, 7, 0, 1024, 0, 0, 1, 1024, 1 ; setup modulators kmod init 1 amod1 oscili 1, kfAmax * kmod, isqr amod2 oscili 1, kfAmid * kmod, isqr amod3 oscili 1, kfAmin * kmod, isqr amod4 oscili 1, kfBmin * kmod, isqr amod5 oscili 1, kfBmid * kmod, isqr amod6 oscili 1, kfBmax * kmod, isqr ; setup delay line adelA delayr (1 / (ilowf * ifct)) * (1 + ivar) kvar1 jspline ivar, kvarf, kvarf kvar1 = kvar1 + 1 alow3 deltapi kdelt * kvar1 alow2 deltapi kvar1 / (kfBmid * ifct) alow1 deltapi kvar1 / (kfBmin * ifct) ahgh1 deltapi kvar1 / (kfAmax * ifct) ahgh2 deltapi kvar1 / (kfAmid * ifct) ahgh3 deltapi kvar1 / (kfAmin * ifct) ; modulate signal asig1 = ain1 * amod1 asig2 = (asig1 + ahgh1) * amod2 asig3 = (asig2 + ahgh2) * amod3 asig4 = (asig3 + ahgh3) * amod4 asig5 = (asig4 + alow1) * amod5 asig6 = (asig5 + alow2) * amod6 asig7 = asig6 + alow3 ; write signal to delay line delayw ain1 aout1 = asig7 / 3 aout1 = (aout1*(1-kdry)) + (ain1*kdry) ; repeat for other channel... kvar2 jspline ivar, kvarf, kvarf kvar2 = kvar2 + 1 adelB delayr (1 / (ilowf * ifct)) * (1 + ivar) alow3 deltapi kdelt * kvar2 alow2 deltapi kvar2 / (kfBmid * ifct) alow1 deltapi kvar2 / (kfBmin * ifct) ahgh1 deltapi kvar2 / (kfAmax * ifct) ahgh2 deltapi kvar2 / (kfAmid * ifct) ahgh3 deltapi kvar2 / (kfAmin * ifct) asig1 = ain2 * amod1 asig2 = (asig1 + ahgh1) * amod2 asig3 = (asig2 + ahgh2) * amod3 asig4 = (asig3 + ahgh3) * amod4 asig5 = (asig4 + alow1) * amod5 asig6 = (asig5 + alow2) * amod6 asig7 = asig6 + alow3 delayw ain2 aout2 = asig7 / 3 aout2 = (aout2*(1-kdry)) + (ain2*kdry) I know, stupid name. But, well, it's a distortion unit. Play with the knobs and settings, see what comes out. It's ugly and raspy, but you can get a lot of variations on "ugly" out of this one. Now the detailed explanation. This distortion is designed around a simple technique: ring-modulate the input signal with a square wave valuing from 0 to 1, play it back along with a delayed version of this ring-modulation that is delayed by exactly the pulse-width of the square wave. The frequency of this ring modulation is based around the "Fundamental frequency" slider value. I say "based" because there are actually six ring-modulations and delays going on in here. Three multiples of the fundamental ranging from "Freq. Min" to "Freq. Max" increase the fundamental frequency, while the inverse of them decrease the fundamental frequency. They are all applied serially to each other, starting with the highest multiple. Variance is random variance in the delay times; amplitude is how much variance, frequency is how often the delay times are changed. If any of you find errors in this thing, please post to the blue users email list so I can fix it. Thanks and enjoy. V1.1 - Added wet/dry mix, automatable freqMin 21 17 1.001 10.0 2.289555 60 freqMax 101 16 1.001 10.0 5.2631516 60 25 99 Freq. Min 106 98 Freq. Max freq 22 131 0.0 3000.0 1.0 986.0 300 116 166 Fundamental frequency var 169 190 0.0 1.0 0.0 120 193 333 Variance Amp. varF 25 191 0.0 2.0 0.0 120 49 334 Variance Freq. dryMix 202 16 0.0 1.0 0.0 60 217 98 Dry Mix