From 4f5b45101891f2557fae3ca2c381834c375b2c54 Mon Sep 17 00:00:00 2001
From: Daniel M Karlsson <daniel@danielmkarlsson.com>
Date: Sun, 13 Mar 2022 16:15:04 +0100
Subject: [PATCH] Added hai parameter to hal

---
 .DS_Store                     | Bin 0 -> 6148 bytes
 classes/CleanAux.sc           |   2 +-
 superclean-parameters.scd     |   1 +
 synths/core-synths-global.scd |   3 ++-
 4 files changed, 4 insertions(+), 2 deletions(-)
 create mode 100644 .DS_Store

diff --git a/.DS_Store b/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..9188c10f13213a38ecc565bcc76769100c4df05d
GIT binary patch
literal 6148
zcmeHK%}T>S5T0#on<`=sq8@Yc)<Wt<JP0AygEt|f2bDIl#Rg(hn$%EZC2yf`<Rkbx
z&g^arZ50GTiropb-|WuLhWTKB1^}2n>@)y$0MJkgOY7KtA>=1rkb)d3Au_&33|)x5
zH12!B!fZ957*Gr>8w0d=D{uz^xDewv-M^8Co_DVw_;F&IAFNO;t(7Yp$)<Me^rF;B
z++-Nr?%<kw=Wf#Tq<s-Z!PIuWOTU}8^zD-<Ok6+g4tTKN>Ee`|D?jW+sT~c&PR!SF
zgriE*(s#0~Zq|&tIj$Mm;Q^XQra2y0wcY*3@mc#}^pri1UtR^P3=bhLTM{SmhQ?fy
zkIo<rqVOI)6jjF5M-V~+y~zQ#Gz9Rpe^0<nigW2th*G#p49M-GZLCt#Dp$pTV&F#%
z(D`7X5?T^-f&A#ehL-?{^o-zwHq{aoV@R|l<^s`!!bB*d2xYRwU?LpH4LQ$}m<tr)
zz+~~k<e!<WP#FI^u5a+^z$}5PRSYNwW*I1ou1@#=>G$>jY>?_H1{4GTiUC$?I!zl>
zl6UJua&*@ksBKgdnwJaYA=t?4m>YBz@1b%*pFswqB{3I>BPi-2z-ds8V&G31_yo{l
BmJa{`

literal 0
HcmV?d00001

diff --git a/classes/CleanAux.sc b/classes/CleanAux.sc
index ee29f26..878e2b6 100644
--- a/classes/CleanAux.sc
+++ b/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]),
diff --git a/superclean-parameters.scd b/superclean-parameters.scd
index c281afa..6415ace 100644
--- a/superclean-parameters.scd
+++ b/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.
diff --git a/synths/core-synths-global.scd b/synths/core-synths-global.scd
index 0d198cd..d6885a7 100644
--- a/synths/core-synths-global.scd
+++ b/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|