s.boot;

s.waitForBoot {
// Initialize parameters
a = 0; // mix
b = 0; // roomsize
c = 0; // damping
d = 0; // amp
s.defualt.synch;
};

// Load the sound
~sound = Buffer.read(s,"ABDW_Fyre_Gut_Kick.wav" );

// Change Mix
~changeMix = { |temp1|
// Assign the parameter value to the global variable Amp
a = temp1;
"RoomSize value changed to:".post;
a.postln; // Print the new value
};

// Change RoomSize
~changeRoomSize = { |temp2|
// Assign the parameter value to the global variable Amp
b = temp2;
"RoomSize value changed to:".post;
b.postln; // Print the new value
};

// Change Damp
~changeDamping = { |temp3|
// Assign the parameter value to the global variable Amp
c = temp3;
"Damp value changed to:".post;
c.postln; // Print the new value
};

// Change Amp
~changeAmp = { |temp4|
// Assign the parameter value to the global variable Amp
d = temp4;
"Amp value changed to:".post;
d.postln; // Print the new value
};



// Define SynthDefs for dry sound and reverb
(
SynthDef(\drySound, {
arg out = 0, amp = 1;

var sound = PlayBuf.ar(2, ~sound.bufnum, doneAction: 2);
Out.ar(out, sound * amp);
}).add;

SynthDef(\reverbSound, {
arg in, out, mix = a, roomSize = b, damping = c, amp = d;
//arg in, out, mix = 0.5, roomSize = 0.5, damping = 0.5, amp = 0.5;
var sound = PlayBuf.ar(2, ~sound.bufnum, doneAction: 2);

// Process the input signal with FreeVerb
var input = In.ar(in, 2);
/*var reverb = FreeVerb.ar(input, a, b, c); */
var reverb = FreeVerb.ar(input, roomSize, damping, mix);

// Mix the dry and wet signals
var output = (input * (1 - mix)) + (reverb * mix);

// Output the signal
Out.ar(out, output * amp);

}).add;
)

// GUI
(
// Boot the GUI
//s.waitForBoot {
// Create a window
w = Window("Reverb Controls", Rect(100, 100, 400, 200));

// Mix slider
Slider(w, Rect(10, 10, 200, 20))
.value_(1)
.action_({|obj|
var temp1;
temp1 = obj.value;
~changeMix.(temp1);
/* var mx = obj.value.linexp(0, 1, 0, 1);
// Set the mix parameter
x.set(\mix, mx);*/
});

// Room size slider
Slider(w, Rect(10, 40, 200, 20))
.value_(1)
.action_({|obj|
var temp2;
temp2 = obj.value;
~changeRoomSize.(temp2);
/* var roomSize = obj.value.linexp(0, 1, 0, 1);
// Set the roomSize parameter
x.set(\roomSize, roomSize);*/
});

// Damping slider
Slider(w, Rect(10, 70, 200, 20))
.value_(1)
.action_({|obj|
var temp3;
temp3 = obj.value;
~changeDamping.(temp3);
/* var damping = obj.value.linexp(0, 1, 0, 1);
// Set the damping parameter
x.set(\damping, damping);*/
});

// Amplitude slider
Slider(w, Rect(10, 100, 200, 20))
.value_(1)
.action_({|obj|
var temp4;
temp4 = obj.value;
~changeAmp.(temp4);
/* var amp = obj.value.linexp(0, 1, 0, 1);
// Set the amp parameter
x.set(\amp, amp);*/
});

// Play Dry button
Button(w, Rect(220, 130, 150, 20))
.states_([["Play Dry", Color.black, Color.white]])
.action_({
// Start the dry sound Synth
Synth(\drySound);
});

// Play with Reverb button
Button(w, Rect(220, 160, 150, 20))
.states_([["Play with Reverb", Color.black, Color.white]])
.action_({
// Start the reverb Synth with specified parameters
Synth(\reverbSound, [
\in, 1, // Input bus
\out, 1, // Output bus
\mix, a,
\roomSize, b,
\damping, c,
\amp, d

/* \mix, x.get(\mix), // Reverb mix (0-1)
\roomSize, x.get(\roomSize),// Room size (0-1)
\damping, x.get(\damping), // Damping (0-1)
\amp, x.get(\amp) // Amplitude*/
]);
});

// StaticText for labels
StaticText(w, Rect(220, 10, 100, 20)).string_("Mix");
StaticText(w, Rect(220, 40, 100, 20)).string_("Room Size");
StaticText(w, Rect(220, 70, 100, 20)).string_("Damping");
StaticText(w, Rect(220, 100, 100, 20)).string_("Amplitude");

// Show the window
w.front;
//};
)

//s.quit;