examples\stk\modalbar.ck
// STK ModalBar

// patch
ModalBar bar => dac;

// scale
[0, 2, 4, 7, 8, 11] @=> int scale[];

// infinite time loop
while( true )
{
    // ding!
    Math.random2( 0, 8 ) => bar.preset;
    Math.random2f( 0, 1 ) => bar.stickHardness;
    Math.random2f( 0, 1 ) => bar.strikePosition;
    Math.random2f( 0, 1 ) => bar.vibratoGain;
    Math.random2f( 0, 60 ) => bar.vibratoFreq;
    Math.random2f( 0, 1 ) => bar.volume;
    Math.random2f( .5, 1 ) => bar.directGain;
    Math.random2f( .5, 1 ) => bar.masterGain;

    // print
    <<< "---", "" >>>;
    <<< "preset:", bar.preset() >>>;
    <<< "stick hardness:", bar.stickHardness() >>>;
    <<< "strike position:", bar.strikePosition() >>>;
    <<< "vibrato gain:", bar.vibratoGain() >>>;
    <<< "vibrato freq:", bar.vibratoFreq() >>>;
    <<< "volume:", bar.volume() >>>;
    <<< "direct gain:", bar.directGain() >>>;
    <<< "master gain:", bar.masterGain() >>>;

    // set freq
    scale[Math.random2(0,scale.size()-1)] => int winner;
    57 + Math.random2(0,2)*12 + winner => Std.mtof => bar.freq;
    // go
    .8 => bar.noteOn;

    // advance time
    .5::second => now;
}
home .. language .. program .. examples