// title: EHX Analogizer
// author: bennigraf
// description:
// The EHX Analogizer (http://www.ehx.com/products/analogizer) is a guitar pedal that apparently consists of a ultra-short delay with some gain stage. It's supposed to "fatten" and somehow "spread" the sound to make it appear more "analog" (thus: dirty). I wanted to quickly test the effect myself.
// 
// I guess with some additional care of the distortion stage and maybe some very little modulation (stereo!) it could be way improved. I obviously don't really know what's going on in the inside of the original pedal...
// code:
// Analogizer
// a quick draft of a model of the EHX Analogizer pedal
// some info from "https://www.bassic.de/threads/electro-harmonix-ehx-analogizer.14865686/"

s.default
s.boot

// used this for testing: https://www.freesound.org/people/wescwave/sounds/169885/
~buf = Buffer.read(s, "169884__wescwave__double-bass-test2.wav");

(
~x.free;
~x = {
	var a, d, s;

	a = PlayBuf.ar(2, ~buf, 1, 1, 0, 1);
	a = a.sum!2; // go mono to make the effect more prominent

	// the "distortion modeling" could use some more love...
	s = (a * MouseY.kr(26/2, 0).dbamp).tanh;
	s = s * MouseY.kr(-16/2, 0).dbamp;

	// a simple delay
	d = DelayC.ar(s, 0.1, MouseX.kr(3.5/1000, 65/1000));

	// dry/wet...
	a = a + (d * MouseY.kr(0, -96).dbamp);

	Out.ar(0, a);
}.play
)