CMLS_2025/SC/9_midi_controller.scd

// Module 9: MIDI Controller - Modified to use Synth Pool
// Save as "9_midi_controller.scd" (REPLACE YOUR EXISTING VERSION)

(
// MIDI note handling using synth pool
var midiIn, synths;

~midiNoteKeys = IdentityDictionary.new;  // Track which pool keys are used for MIDI notes

// Connect to MIDI
MIDIClient.init;
MIDIIn.connectAll;

// Note On: get synth from pool instead of creating new one
MIDIdef.noteOn(\noteOn, { |vel, num, chan, src|
    var freq = num.midicps;
    var amp = (vel/127) * 0.4;  // Reduced max amplitude
    var noteKey = "midi_" ++ num ++ "_" ++ chan;

    if (vel > 0) {
		// Check if note is already playing and release it first
		if(~midiNoteKeys[num].notNil, {
			~returnSynthToPool.value(~midiNoteKeys[num]);
			~midiNoteKeys.removeAt(num);
		});
		
		// Get a synth from the pool instead of creating new one
		var synth = ~startPoolSynth.value(noteKey, freq, amp);
		
		if(synth.notNil, {
			// Track this note
			~midiNoteKeys[num] = noteKey;
			// Uncomment for debugging: ["MIDI Note ON: % - Got synth from pool".format(num)].postln;
		}, {
			["MIDI Note ON: % - No free synths available!".format(num)].postln;
		});

    } { 
		// Treat as noteOff if it is a noteOn with velocity 0
		if(~midiNoteKeys[num].notNil, {
			~returnSynthToPool.value(~midiNoteKeys[num]);
			~midiNoteKeys.removeAt(num);
			// Uncomment for debugging: ["MIDI Note OFF: % (vel 0)".format(num)].postln;
		});
	}
});

// Note Off: return synth to pool instead of setting gate
MIDIdef.noteOff(\noteOff, { |vel, num, chan, src|
	if(~midiNoteKeys[num].notNil, {
		~returnSynthToPool.value(~midiNoteKeys[num]);
		~midiNoteKeys.removeAt(num);
		// Uncomment for debugging: ["MIDI Note OFF: %".format(num)].postln;
	});
});

// All Notes Off (MIDI Panic) - return all MIDI synths to pool
MIDIdef.cc(\allNotesOff, { |val, num, chan, src|
	if(num == 123, {  // All Notes Off CC
		~midiNoteKeys.keysValuesDo({ |noteNum, noteKey|
			~returnSynthToPool.value(noteKey);
		});
		~midiNoteKeys.clear;
		"MIDI: All notes off - All synths returned to pool".postln;
	});
});

// Cleanup all MIDI synths function
~cleanupAllMIDI = {
	~midiNoteKeys.keysValuesDo({ |noteNum, noteKey|
		~returnSynthToPool.value(noteKey);
	});
	~midiNoteKeys.clear;
	"All MIDI synths returned to pool".postln;
};

// Get MIDI status
~getMIDIStatus = {
	"=== MIDI Status ===".postln;
	"Active MIDI notes: %".format(~midiNoteKeys.size).postln;
	if(~midiNoteKeys.size > 0, {
		"Playing notes: %".format(~midiNoteKeys.keys.asArray.sort).postln;
	});
	"==================".postln;
};

// Register cleanup with CmdPeriod
CmdPeriod.add({
	~cleanupAllMIDI.value;
});

"MIDI functions loaded with synth pool integration.".postln;
"Notes will use pre-allocated synths from the pool.".postln;
"No more memory leaks or stuck notes!".postln;
"Available functions:".postln;
"  ~cleanupAllMIDI.value  - Return all MIDI synths to pool".postln;
"  ~getMIDIStatus.value   - Show active MIDI notes".postln;
)