Added hai parameter to hal

classes/CleanAux.sc

@@ -53,7 +53,7 @@ CleanAux {
 	initDefaultGlobalEffects {
 		this.globalEffects = [
 			// all global effects sleep when the input is quiet for long enough and no parameters are set.
-			GlobalCleanEffect(\clean_hal, [\hal, \rts, \bld, \edf, \ldf, \hhp, \hlp]),
+			GlobalCleanEffect(\clean_hal, [\hal, \hai, \rts, \bld, \edf, \ldf, \hhp, \hlp]),
 			GlobalCleanEffect(\clean_delay, [\delaytime, \delayfeedback, \delaySend, \delayAmp, \lock, \cps]),
 			GlobalCleanEffect(\clean_reverb, [\rev, \rin, \dry]),
 			//GlobalCleanEffect(\clean_grainfb, [\grainfb]),

superclean-parameters.scd

@@ -57,6 +57,7 @@ ocq:	Quarter-frequency harmonics (two octaves down).
 fsh:	Frequency shift, value range goes both positive and negative, works in combination with fsm, try values -32 to 32
 fsm:	Frequency shift multiplier, value range goes both positive and negative, works in combination with fsh, try values -4 to 4
 hal:	A hall reverb, this is the wet parameter, or put another way, the amplitude of the reverb.
+hai: The input or send into the hal reverb. Range is zero to one.
 rts:	The RT60 value of the reverb. This goes from 0 to 999. That top value is approaching inifity. It is super duper long.
 edf:	Early diffusion of the hal reverb.
 ldf:	Late diffusion of the hal reverb.

synths/core-synths-global.scd

@@ -150,9 +150,10 @@ They'll come back automatically.
 
 	// NHHall based reverb, this implementation works, but could be improved in future to accept n number of channels
 	SynthDef(\clean_hal ++ numChannels, {
-		|dryBus, effectBus, gate=1, hal, hhp=20, hlp=20000, rts=1, bld=0.5, edf=0.5, ldf=0.5|
+		|dryBus, effectBus, gate=1, hal, hai = 1, hhp=20, hlp=20000, rts=1, bld=0.5, edf=0.5, ldf=0.5|
 		var wet, lgt = 0.0625;
 		var signal = In.ar(dryBus, numChannels);
+		signal = signal * hai.lag(lgt); 
 		signal = HPF.ar(signal, hhp.clip(20,20000).lag(lgt));
 		signal = LPF.ar(signal, hlp.clip(20,20000).lag(lgt));
 		signal = signal.asArray.collect { |sig|