// Ambiophonic Circuit // Copyright 2008 Les Hall // This software is protected by the GNU General Public License // parameters 300 => float freq_cutoff; // cutoff frequency of the filters 4 => float filter_Q; // Q of the filters 0.100::ms => dur delay; // delay of delay lines 0.5 => float attenuation; // attenuation of delay lines // the patch Gain L_in => LPF L_lpf => Gain L_out => dac.left; Gain R_in => LPF R_lpf => Gain R_out => dac.right; Gain L_mixer; Gain R_mixer; L_in => HPF L_hpf => L_mixer => DelayA L_delay => R_mixer; L_mixer => L_out; R_in => HPF R_hpf => R_mixer => DelayA R_delay => L_mixer; R_mixer => R_out; // the patch parameters L_lpf.freq (freq_cutoff); L_lpf.Q (filter_Q); R_lpf.freq (freq_cutoff); R_lpf.Q (filter_Q); L_hpf.freq (freq_cutoff); L_hpf.Q (filter_Q); R_hpf.freq (freq_cutoff); R_hpf.Q (filter_Q); L_mixer.gain (1); R_mixer.gain (1); L_delay.gain (-attenuation); L_delay.max (100*delay); L_delay.delay (delay); R_delay.gain (-attenuation); R_delay.max (100*delay); R_delay.delay (delay); L_out.gain (1); R_out.gain (1); // hook up an input for testing WvIn wvin => L_in; //wvin => R_in; wvin.path ("Synth_Lab.wav"); // put on the headphones and make some noise to test day => now;