Code to be tested here.
import("stdfaust.lib"); declare name "brightOrgan"; declare author "Claude AI"; // Organ parameters freq = hslider("h:Main/freq [style:knob][midi:ctrl 1]", 220, 55, 880, 0.1); gate = button("h:Main/gate [midi:ctrl 64]"); volume = hslider("h:Main/volume [style:knob][midi:ctrl 7]", 0.5, 0, 1, 0.01); // Organ stops foundation8 = hslider("h:Stops/Foundation 8' [style:knob][midi:ctrl 14]", 0.8, 0, 1, 0.01); principal4 = hslider("h:Stops/Principal 4' [style:knob][midi:ctrl 15]", 0.5, 0, 1, 0.01); fifteenth2 = hslider("h:Stops/Fifteenth 2' [style:knob][midi:ctrl 16]", 0.3, 0, 1, 0.01); flute8 = hslider("h:Stops/Flute 8' [style:knob][midi:ctrl 17]", 0.4, 0, 1, 0.01); nasard = hslider("h:Stops/Nasard 2 2/3' [style:knob][midi:ctrl 18]", 0.2, 0, 1, 0.01); tierce = hslider("h:Stops/Tierce 1 3/5' [style:knob][midi:ctrl 19]", 0.15, 0, 1, 0.01); // Reverb parameters reverbAmount = hslider("h:Reverb/Amount [style:knob][midi:ctrl 91]", 0.3, 0, 1, 0.01); reverbDamp = hslider("h:Reverb/Damp [style:knob][midi:ctrl 92]", 0.5, 0, 1, 0.01); reverbSize = hslider("h:Reverb/Size [style:knob][midi:ctrl 93]", 0.6, 0, 1, 0.01); // Organ pipe generator (filtered square wave + breath noise) organ_pipe(f, brightness) = pipe with { // Square wave with odd harmonics square = os.square(f); // Low-pass filter to soften the sound cutoff = f * (2 + brightness * 8); filtered = square : fi.lowpass(2, min(cutoff, 10000)); // Characteristic organ breath noise breath = no.noise * 0.015 : fi.resonlp(f, 1, 1); pipe = filtered + breath; }; // Flute pipe (more sinusoidal) flute_pipe(f) = pipe with { // Dominant sinusoidal fundamental fundamental = os.osc(f); // Some harmonics h2 = os.osc(f * 2) * 0.25; h3 = os.osc(f * 3) * 0.08; // Flute breath noise breath = no.noise * 0.02 : fi.resonlp(f * 1.5, 2, 1); pipe = fundamental + h2 + h3 + breath; }; // Combined stops organ = ( // Foundation 8' (fundamental) organ_pipe(freq, 0.3) * foundation8 + // Principal 4' (upper octave) organ_pipe(freq * 2, 0.4) * principal4 + // Fifteenth 2' (two octaves) organ_pipe(freq * 4, 0.5) * fifteenth2 + // Flute 8' flute_pipe(freq) * flute8 + // Nasard 2 2/3' (perfect fifth) flute_pipe(freq * 3) * nasard * 0.7 + // Tierce 1 3/5' (major third) flute_pipe(freq * 5) * tierce * 0.5 ) / 4; // Organ envelope (characteristic slow attack) env = en.asr(0.1, 1, 0.2, gate); // Dry signal dry = organ * env * volume; // Smaller reverb with adjustable parameters reverb(x) = x : re.mono_freeverb(reverbSize, reverbDamp, 0.3, 6000); // Dry/wet mix output = dry * (1 - reverbAmount * 0.5) + reverb(dry) * reverbAmount; // Stereo output process = output <: _,_;S
