// Pams_Synth.ck
// copyright 2007 Les Hall
// modified code to sound like chimes
// This code is released under the GNU General Public License

/*----------------------------------------------------------------------------
    S.M.E.L.T. : Small Musically Expressive Laptop Toolkit

    Copyright (c) 2007 Rebecca Fiebrink and Ge Wang.  All rights reserved.
      http://smelt.cs.princeton.edu/
      http://soundlab.cs.princeton.edu/

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
    U.S.A.
-----------------------------------------------------------------------------*/


// computer keyboard input via terminal
KBHit kb;

// minimum duration between clicks
4096::samp => dur T;

// patch
Impulse i => BPF f => JCRev r => dac;

// set up the filter
f.Q(1000);

// reverb mix
.02 => r.mix;

// time-loop
while( true )
{
    // wait on event
    kb => now;

    // loop through 1 or more keys
    while( kb.more() )
    {
        // get key...
        kb.getchar() => int c;

        // set filtre freq
        c => Std.mtof => f.freq;

        // fire an impulse
        1000000.0 / f.freq() => i.next;

        // advance time
        T-10::ms => now;
    }
}