// Lunetta-based boolean sequencer // copyright 2009 Les Hall // This software is protected by the GNU General Public License // variables [9, 17, 23, 7, 244, 120, 70, 30] @=> int switches[]; // the switch settings int b; // the binary counter // the patch Noise burst => LPF deglitch => Gain sum => dac; sum => DelayA dly => LPF lpf => sum; 2000 => deglitch.freq; second => dly.max; 1000 => lpf.freq; 0.85 => lpf.gain; // time loop while (true) { 0 => int sum; for (int i; i sum; } <<< b, sum >>>; if (sum > 0) { 1.0 => burst.gain; } else { 0.0 => burst.gain; } (1 + sum $ float) / switches.cap() * (50::ms) => dly.delay; second / 64 => dur burst_dur; burst_dur => now; 0.0 => burst.gain; 1 +=> b; // increment b 255 & b => b; // make b an 8 bit counter (second/4 - burst_dur) => now; }