primitive markov chain (in chuck)

simple_markov.ck

200::ms => dur beat;

"A" => string currentState;
ADSR env;
env.set(20::ms, 20::ms, 0.6, 20::ms);
env.keyOff();
SinOsc s => env => dac;

fun void enterState(string stateName) {
    if (stateName == "A") {
        enterState("A", 200);
    } else if (stateName == "B") {
        enterState("B", 300);
    } else if (stateName == "C") {
        enterState("C", 400);
    }
}

fun void enterState(string stateName, float freq) {
    stateName => currentState;
    freq => s.freq;
    env.keyOn();
    beat / 2 => now;
    env.keyOff();
    beat / 2 => now;
}

while(true) {    
    Math.rand2f(1, 100) => float i;
    if(currentState == "A") {
        if(i <= 20.0) {
            enterState("B");
        } else if(i >= 80.0) {
            enterState("C");
        }
    } else if (currentState == "B") {
        if(i <= 40.0) {
            enterState("A");
        } else if(i >= 50.0) {
            enterState("C");
        }
    } else {
        if(i <= 25.0) {
            enterState("A");
        } else if (i >= 35.0) {
            enterState("B");
        }
    }   
}