Fork Code: pitch tracker utility

name

code content

SynthDef(\pitchTrack, {
	var soundin = SoundIn.ar(0);
	var zc = ZeroCrossing.ar(soundin);
	// var pt = Pitch.kr(soundin);
	// var tt = Tartini.kr(soundin);
	SendReply.kr(Impulse.kr(1), '/pitchTrackUtil', [zc, zc.cpsmidi]);
}).add;

~pitchTrack = {
	if(~pitchTrackSynth.isNil or: { ~pitchTrackSynth.isRunning.not }, {
		~pitchTrackSynth = Synth(\pitchTrack);
		~pitchTrackNW = NodeWatcher.register(~pitchTrackSynth);
	}, {
		~pitchTrackSynth.free;
		~pitchTrackSynth = nil;
		"Pitch tracker stopped.".postln;
	});
};

~pitchTrackOSCFunc = {
	OSCFunc({
		| msg |
		("Pitch:"+msg[3].round.asString.padLeft(5)+msg[4].round.asString.padLeft(3)).postln;
	}, '/pitchTrackUtil');
};

~pitchTrackOSCFunc.();

CmdPeriod.add({~pitchTrackOSCFunc.();});

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