Fork Code: [beginner question] how to transmit parameter value to a function inside a SynthDef

name

code content

~freqgold = List[ 29.034441847481, 58.068883694963, 116.13776738993, 232.27553477985, 464.5510695597, 929.1021391194, 1858.2042782388, 3716.4085564776, 7432.8171129552, 14865.63422591, 29731.268451821 ];


~getFirstFreq = { | array = #[0], seuil = 0 |
	var rfreq=0;
	var i=0;
	while({ (rfreq==0) && (i < array.size()) }, { if( array[i] >= seuil , { rfreq=array[i];  }, { } ); i = i+1 });
	rfreq.postln;
	if( rfreq == 0,
		{ rfreq=array[array.size()-1] },
		{ rfreq }
		)
};


SynthDef(\synthexample, { |out, sustain = 1, amp = 0.5, bb = 5, threshold = 500|
	var env = Env.adsr(\atk.ir(0.05), \dec.ir(0.5), \slev.ir(0.4), \rel.ir (1) ).ar(Done.freeSelf, \gate.kr (1));
	var modHz = XLine.kr(1, bb, 10);
	var mod = SinOsc.ar(modHz, mul: 3);
	var f  = ~getFirstFreq.value(~freqgold, \threshold);
	var sig = SinOsc.ar([f, f+mod], mul: 0.2  ) * amp * env;
    Out.ar(out, sig );
}).add;


(instrument: \synthexample,  atk: 0.01, rel: 40, amp: 0.5, bb: 2, threshold: 500).play;

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change