// Example of using the kbpiano.ck script to map the computer keyboard
// to a piano, tracker-style.

// - Radarsat-1, 2007
//   radarsat1@gmail.com

<<<"Press keys on your keyboard to play the piano.\nUp and down cursor keys change octave.\n(US keyboards only, sorry.. feel free to edit the keymap!)">>>;

fun void mandolpluck(float freq)
{
    Mandolin mand => dac;

    freq => mand.freq;

    mand.noteOn(1);
    3::second => now;
}

while (true)
{
    kbpiano.evt => now;
    
    <<<kbpiano.evt.note, kbpiano.evt.notename,
    kbpiano.evt.octave, kbpiano.evt.freq>>>;

    spork ~ mandolpluck(kbpiano.evt.freq);
}