kilobeat.ck

SinOsc sinner => dac;
StifKarp string1 => LPF o => dac;
StifKarp string2 => o => dac;
StifKarp string3 => o => dac;
SawOsc saww => LPF l => ADSR e => dac;

200 => float fr;
5 => l.Q;

4000 => o.freq;

0.1 => float vol;
50 => float beet;
0 => float offset;
20 => float offness;
0 => float countz;
1 => float top;
0 => float topped;
0.1 => float pos;
200 => float dec;

1 => float bar;
1 => float lastbar;

fr/3 => saww.freq;
vol*0.75 => saww.gain;

fr/4 => sinner.freq;
vol*0.75 => sinner.gain;

vol*0.5 => float strings;

fr => string1.freq;
pos+0.2 => string1.pickupPosition;

fr/2 => string2.freq;
pos+0.1 => string2.pickupPosition;

fr*0.75 => string3.freq;
pos => string3.pickupPosition;

1 => int i;

while ( true )
  {
    if (i == 1025) {1::week => now;};

    fr*(1+countz) => l.freq;
    (fr/4)*(1+countz) => saww.freq;
    ((fr/2)*(1+countz)+0.314) => sinner.freq;
    e.set( 0::ms, 0::ms, 1, dec*(countz+1)::ms );
    e.value(1);
    e.keyOn();
    e.keyOff();

    strings => string1.pluck;
    if ( i%countz != 1 )
      {strings => string2.pluck;};
    1 +=> i;

    beet::ms => now;

    strings => string3.pluck;

    (beet+offset)::ms => now;

    if (topped == 0) {offness +=> offset; 1 +=> countz;};
    if (countz == top) {1 => topped;};
    if (topped == 1) {offness -=> offset; 1 -=> countz; 1 +=> bar;};
    if (countz == 0) {0 => topped;};
    if (bar > (31+lastbar)) {1 +=> top; (31*(countz/5+1)) +=> lastbar;};

    ((countz+1)*beet)::ms => now;

  };