CMLS_2025/SC/5_osc_communication.scd

// Module 5: OSC Communication Setup - MODIFIED FOR IDRAW OSC
// Save as "5_osc_communication.scd"

(
// Clear any existing OSC definitions
OSCdef.freeAll;

// Variables to track current pen type and color
~currentPenType = \pen;
~currentColor = (r: 0.0, g: 0.0, b: 1.0); // Default blue
~currentPadValues = (x: 0.0, y: 0.0, pressure: 1.0); //Default pad values


// Define OSC responder for iDraw touch data
~changeEffectParams = {
    var x = ~currentPadValues.x;
    var y = ~currentPadValues.y;
    var pressure = ~currentPadValues.pressure;

    // Log the received data
    ["Touch data:", x, y, pressure, ~currentPenType, ~currentColor].postln;

    // Handle touch based on current pen type
    switch(~currentPenType,
        // Pen - Controls amplitude envelope
		"/pen", {
            var ampAttack = y.linexp(-0.5, 0.5, 0.001, 5);
            var ampRelease = x.linexp(-0.5, 0.5, 0.001, 10);

			~setSynthsParam.(\ampAttack, ampAttack);
			~setSynthsParam.(\ampRelease, ampRelease);

            ["Amplitude envelope:", ampAttack, ampRelease].postln;
        },

        // Monoline - Controls filter envelope
		"/monoline", {
            var filterAttack = y.linexp(-0.5, 0.5, 0.001, 5);
            var filterRelease = x.linexp(-0.5, 0.5, 0.001, 10);

			~setSynthsParam.(\filterAttack, filterAttack);
			~setSynthsParam.(\filterRelease, filterRelease);

            ["Filter envelope:", filterAttack, filterRelease].postln;
        },

        // Marker - Controls pitch envelope
		"/marker", {
            var pitchAttack = y.linexp(-0.5, 0.5, 0.001, 5);
            var pitchRelease = x.linexp(-0.5, 0.5, 0.001, 10);

			~setSynthsParam.(\pitchAttack, pitchAttack);
			~setSynthsParam.(\pitchRelease, pitchRelease);

            ["Pitch envelope:", pitchAttack, pitchRelease].postln;
        },

        // Pencil - Effect preset 1
		"/pencil", {
            // Apply Preset 1 effects
            ~filterSynth.set(
                \cutoff, x.linexp(-0.5, 0.5, 20, 18000),
                \res, y.linlin(-0.5, 0.5, 0, 1)
            );

            ~lfoSynth.set(
                \freq, x.linlin(-0.5, 0.5, 0, 15),
                \intensity, pressure.linlin(1, 8, 0, 1)
            );

            ~reverbSynth.set(
                \roomsize, y.linlin(-0.5, 0.5, 0.1, 0.9)
            );

            ["Pencil preset:", "Cutoff", x.linexp(-0.5, 0.5, 20, 18000), "LFO", x.linlin(-0.5, 0.5, 0, 15)].postln;
        },

        // Crayon - Effect preset 2
		"/crayon", {
            // Apply Preset 2 effects
            ~lfoSynth.set(
                \freq, x.linlin(-0.5, 0.5, 15, 1),
                \intensity, x.linlin(-0.5, 0.5, 0, 1)
            );

            ~delaySynth.set(
                \delaytime, x.linlin(-0.5, 0.5, 0.01, 1.0)
            );

            ~filterSynth.set(
                \cutoff, y.linexp(-0.5, 0.5, 20, 18000),
                \res, pressure.linlin(1, 5, 0, 1)
            );

            ~reverbSynth.set(
                \mix, y.linlin(-0.5, 0.5, 0, 1)
            );

            ["Crayon preset:", "LFO", x.linlin(-0.5, 0.5, 15, 1), "Filter", y.linexp(-0.5, 0.5, 20, 18000)].postln;
        },

        // Fountain pen - Effect preset 3 (placeholder)
		"/fountainPen", {
            // Apply Preset 3 effects (TBD in documentation)
            ["Fountain pen preset (TBD)"].postln;
        },

        // Water color - Effect preset 4 (placeholder)
		"/waterColor", {
            // Apply Preset 4 effects (TBD in documentation)
            ["Water color preset (TBD)"].postln;
        }
    );
};


// ----- OSC Pad Vaues -----
// OSC responder for x coordinate
OSCdef(\xOSC, { |msg, time, addr, port|
    var x = msg[1].asFloat;

    // Update current pad value and change effects
    ~currentPadValues.x = x;
	~changeEffectParams.value;

}, '/aspectX');

// OSC responder for y coordinate
OSCdef(\yOSC, { |msg, time, addr, port|
    var y = msg[1].asFloat;

    // Update current pad value and change effects
    ~currentPadValues.y = y;
	~changeEffectParams.value;

}, '/aspectY');

// OSC responder for pressure coordinate
OSCdef(\pressureOSC, { |msg, time, addr, port|
    var pressure = msg[1].asFloat;

    // Update current pad value and change effects
    ~currentPadValues.pressure = pressure;
	~changeEffectParams.value;

}, '/pressure');




// ----- OSC Pen Types -----
// OSC responder for pen
OSCdef(\penOSC, { |msg, time, addr, port|
    var penType = msg[1].asFloat;

	if (penType == 1.0) {
		~currentPenType = msg[0].asString;
		["Current pen type:", ~currentPenType].postln;
	}

}, '/pen');

// OSC responder for monoline
OSCdef(\monolineOSC, { |msg, time, addr, port|
    var penType = msg[1].asFloat;

	if (penType == 1.0) {
		~currentPenType = msg[0].asString;
		["Current pen type:", ~currentPenType].postln;
	}

}, '/monoline');

// OSC responder for marker
OSCdef(\markerOSC, { |msg, time, addr, port|
    var penType = msg[1].asFloat;

	if (penType == 1.0) {
		~currentPenType = msg[0].asString;
		["Current pen type:", ~currentPenType].postln;
	}

}, '/marker');

// OSC responder for pencil
OSCdef(\pencilOSC, { |msg, time, addr, port|
    var penType = msg[1].asFloat;

	if (penType == 1.0) {
		~currentPenType = msg[0].asString;
		~initializePreset1.value;
		["Current pen type:", ~currentPenType].postln;
	}

}, '/pencil');

// OSC responder for crayon
OSCdef(\crayonOSC, { |msg, time, addr, port|
    var penType = msg[1].asFloat;

	if (penType == 1.0) {
		~currentPenType = msg[0].asString;
		~initializePreset2.value;
		["Current pen type:", ~currentPenType].postln;
	}

}, '/crayon');

// OSC responder for fountainPen
OSCdef(\fountainPenOSC, { |msg, time, addr, port|
    var penType = msg[1].asFloat;

	if (penType == 1.0) {
		~currentPenType = msg[0].asString;
		~initializePreset3.value;
		["Current pen type:", ~currentPenType].postln;
	}

}, '/fountainPen');

// OSC responder for waterColor
OSCdef(\waterColorOSC, { |msg, time, addr, port|
    var penType = msg[1].asFloat;

	if (penType == 1.0) {
		~currentPenType = msg[0].asString;
		~initializePreset4.value;
		["Current pen type:", ~currentPenType].postln;
	}

}, '/waterColor');




// ----- OSC RGB Colors -----
// OSC responder for red changes
OSCdef(\redOSC, { |msg, time, addr, port|
    var component = msg[1].asFloat;

    // Update current color
    ~currentColor.r = component;
	~setSynthsParam.(\redAmt, component);

    ["Color changed:", ~currentColor].postln;
}, '/r');

// OSC responder for green changes
OSCdef(\greenOSC, { |msg, time, addr, port|
    var component = msg[1].asFloat;

    // Update current color
    ~currentColor.g = component;
	~setSynthsParam.(\greenAmt, component);

    ["Color changed:", ~currentColor].postln;
}, '/g');

// OSC responder for blue changes
OSCdef(\blueOSC, { |msg, time, addr, port|
    var component = msg[1].asFloat;

    // Update current color
    ~currentColor.b = component;
	~setSynthsParam.(\blueAmt, component);

    ["Color changed:", ~currentColor].postln;
}, '/b');





// Start the OSC server on port 57120 (default SuperCollider port)
thisProcess.openUDPPort(57120);
"OSC server ready on port 57120".postln;
"Registered OSC commands: /touch, /pen, /color".postln;
"Ready to receive data from iDraw OSC app".postln;
)